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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

13 มิ.ย. 66 , 11:41:44
อ่าน 330 ครั้ง

ingfahm59

  • สมาชิกไท.Access
  • กระทู้: 29

    • ดูรายละเอียด

ไฟล์ 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 ค่ะ มีวิธีแก้อย่างไรบ้างคะ

 

15 มิ.ย. 66 , 08:15:19
ตอบกลับ #1

sjs

: ปุ่ม import ข้อมูลไฟล์ excel ไม่มีชื่อคอลัมน์
« ตอบกลับ #1 เมื่อ: 15 มิ.ย. 66 , 08:15:19 »
ลองใช้แบบนี้ครับ

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


 

15 มิ.ย. 66 , 11:39:39
ตอบกลับ #2

nonc31

: ปุ่ม import ข้อมูลไฟล์ excel ไม่มีชื่อคอลัมน์
« ตอบกลับ #2 เมื่อ: 15 มิ.ย. 66 , 11:39:39 »
ไฟล์อาจจะไม่อยู่ในรูปแบบของ Excel อาจเป็นรูปแบบ html ลองบันทึกแฟ้มเป็น Excel2003 (.xls) ลองดูครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: oong2521

26 ก.ย. 66 , 10:58:15
ตอบกลับ #3

oong2521

  • สมาชิกไท.Access
  • กระทู้: 3

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5