:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Access and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่างเพิ่มเติม)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
prawitpj
Member
Member
Posts: 2
Joined: Mon Mar 13, 2017 3:34 pm

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

#1

Post 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"

ทำอย่างไรดีครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#2

Post by snasui »

:o ผมอ่านหลุดกระทู้นี้ไปเลยยังไม่ได้ตอบ ต้องขออภัยด้วยครับ ไม่ทราบกระบวนการของงานนี้ต้องการจะทำอะไร ลองลำดับมาอีกรอบ อ่านแล้วยังไม่กระจ่างครับ

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

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