Page 1 of 1

หา Code แปลง .dbf เป็น .xls

Posted: Mon Mar 13, 2017 4:01 pm
by prawitpj
พอดีผมต้องเขียนโปรแกรมออกรีพอทจาก File .dbf ที่ถูกสร้างขึ้นจาก DOS แต่ผมลอง Link Table ไปที่ .dbf file ปรากกว่า ไม่สามารถอ่านค่าภาษาไทยได้ ผมเลยลอง Save .dbf เป็น .xls แล้วลอง Link ใหม่ปรากฏว่าอ่านได้นะครับ
แต่ประเด็นคือถ้าให้ User มาทำเองคงไม่สะดวกเพราะ Program ใช้กันหลายคน และผมไม่ต้องการให้ User ไปยุ่งกับไฟล์ใน Server เพราะ File เยอะมากเลยลองเขียน Script แปลงค่าดูดังนี้ครับ
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

Dim fn As String
Dim newfn As String
fn = "C:\Users\User\Desktop\XJ\New folder\tx5025A.dbf"
Set xlq = CreateObject("excel.application")
Set xl = xlq.workbooks.Open(fn)
newfn = Replace(fn, ".dbf", ".xls")
xl.saveas filename:=newfn, FileFormat:=xlnormal
xl.Close savechanges:=False
xlq.Quit
Set xl = Nothing
Set xlq = Nothing

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub

แต่พอลองใช้ไม่สามารถแปลงได้นะครับ มันขึ้นเตือนแบบนี้ครับ
"SaveAs Method of Workbook class failed"

ทำอย่างไรดีครับ

Re: หา Code แปลง .dbf เป็น .xls

Posted: Sat May 06, 2017 8:58 am
by snasui
:o ผมอ่านหลุดกระทู้นี้ไปเลยยังไม่ได้ตอบ ต้องขออภัยด้วยครับ ไม่ทราบกระบวนการของงานนี้ต้องการจะทำอะไร ลองลำดับมาอีกรอบ อ่านแล้วยังไม่กระจ่างครับ

ตอนนี้แปลงไฟล์เป็น .xls ได้แล้วใช่หรือไม่ครับ แล้วปัญหาที่บอกว่าไม่สามารถ Save As ได้นั้นเกิดขั้นตอนไหน แปลงไปเป็น .xls แล้วแสดงว่ามันต้อง Save ได้แล้ว ช่วยอธิบายมาอีกรอบครับ

สำหรับการโพสต์ Code ให้อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ :roll: