ปุ่ม import ข้อมูลไฟล์ excel ไม่มีชื่อคอลัมน์

[ingfahm59]

ไฟล์ excel ที่นำเข้าไม่มี ชื่อคอลัมน์ค่ะ

Option Compare Database
  Dim diag As Office.FileDialog
    Dim item As Variant
Private Sub cmd_browse_Click()
    Set diag = Application.FileDialog(msoFileDialogFilePicker)
    diag.Title = "Please select an Excel Spreadsheet"
    diag.Filters.Clear
    diag.Filters.Add "Excel Spreadsheets", "*.xls, *.xlsx"
   
    If diag.Show Then
    If MsgBox("comfirm click yes", vbYesNo) = vbYes Then
        For Each item In diag.SelectedItems
            Me.txt_showimport = item
            Call DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel8, "tbl_import", item,False ,"A1:E30")
            MsgBox "Update Finish"
            Next
    End If
    End If
    End Sub

ติดปัญญา field f1 doesn't exist in destination table ค่ะ มีวิธีแก้อย่างไรบ้างคะ

[sjs]

ลองใช้แบบนี้ครับ

DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:="myNewTable", _
        FileName:="C:\Users\Gord\Desktop\foo.xlsx", _
        HasFieldNames:=True

ที่มา :
https://stackoverflow.com/questions/34956548/import-excel-into-access-get-column-headers-dynamically

[nonc31]

ไฟล์อาจจะไม่อยู่ในรูปแบบของ Excel อาจเป็นรูปแบบ html ลองบันทึกแฟ้มเป็น Excel2003 (.xls) ลองดูครับ

[oong2521]

สอบถามครับจาก code บนสุดเป็นวิธี import excel โดยให้ user เลือกไฟล์จากหน้าต่าง file exploer ได้เองใช่หรือไม่ครับพอดีหาวิธีอยู่เนื่องจากงานของผมข้อมูลและคอลัมน์เหมือนเดิมแต่ชื่อไฟล์จะเปลี่ยนไปเรื่อยๆและอาจไม่ได้ว่างที่ path เดิมตลอด