ถามเรื่อง Improt Excel To Access
กระทู้เก่าบอร์ด อ.Yeadram

 1,867   13
URL.หัวข้อ / URL
ถามเรื่อง Improt Excel To Access

คือกระผมกำลังศึกษาการ Import Excel To Access ครับ
หาตัวอย่างCode ในเวปนี้แหละครับ ได้วิธี Browse หา File excel แล้ว
แต่ติดที่ตรงจะเอาเข้าตารางยังไงครับ

Private Sub cmd_Browse_Click()
Dim s As String

    If IsNull(txt_FilePath) Or txt_FilePath = "" Then
        s = GetOpenFile("D:\")
    Else
        s = GetOpenFile(Me.txt_FilePath)
    End If
    If s = "" Then
     
    Else
        If Dir(s) = "" Then
            Beep
            MsgBox "????????? " & s
        Else
           vbYesNoCancel) = vbYes Then
       
            txt_FilePath = s
        End If
    End If
End Sub

แต่พอได้แล้วจะใช้คำสั่งอะไรหรือท่านได พอมีตัวอย่างช่วยกระผมด้วยครับ
ขอบพระคุณอย่างสูงครับ

13 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R20788
ไปที่หน้าโฮมเพจ แล้วหากระทู้เก่าๆด้วยคำว่า TransferSpreadsheet ครับ มีถามกันเยอะแล้ว
2 @R20789
ขอบคุณอาจย์ครับ
3 @R20790
อาจาร์ หรือใครก็ได้ครับ ช่วยดูให้กระผมหน่อยครับ มันมี Error แเวลาจะเอาเข้า Teble1 ครับ




ขอบพระคุณครับ
4 @R20791
คำสั่งของคุณคือ

Private Sub Command5_Click()
        Dim AAA As String
        txt_FilePath.Value = AAA
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", AAA, False
End Sub

มันต้องเป็น

        AAA = txt_FilePath.Value

หรือไม่ก็

        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", txt_FilePath , False

เลือกอย่างใดอย่างหนึ่ง

ปล. ในเวปบอร์ดนี้สามารถใส่ภาพได้ครับ คราวหลัง capture ภาพข้อความที่มีปัญหามาใส่ดีกว่าครับ
5 @R20792
อ่อ ในโค้ดให้เปลี่ยนจาก False เป็น True ด้วย
6 @R20793
ขอบคุณครับอาจารย์

พึ่งหัดเขียนครับ ยังไงอาจจะขอรบกวนท่านอาจารย์บ่อยหน่อยนะครับ

ขอบพระคุณครับ
7 @R20794
อาจารย์ครับ Error ครับ



และอีกแบบก็ Error เดียวกันครับผม รบกวนอีกแล้วครับ
ขอบคุณครับ
8 @R20795
table1 ต้องเป็นเป็นหรือไฟล์หรือฟอร์มที่คุนมดเอ็ดต้องการ export ครับ
9 @R20796
table1 ต้องเปลี่ยนเป็นชื่อไฟล์หรือฟอร์มที่คุนมดเอ็ดต้องการ export ครับ
10 @R20797
เรียนคุณกิตครับ

Import ครับ
แต่ผมก็ลองเปลี่ยนชื่อ Excel นะครับแต่ก็เหมือนเดือมครับ

ขอบคุณครับ
11 @R20799
โทษทีครับ
เหมือน Access มันหาชื่อ table1 ไม่เจอครับลองตรวจสอบชื่อ table ที่เราจะเอาเข้าอีกทีครับว่าตรงกันหรือเปล่าครับ
12 @R20800
มันฟ้องว่ามีฟิลด์ชื่อ FG อยู่ในไฟล์ Excel ซึ่งฟิลด์นี้ไม่มีอยู่ในเทเบิล Table1
13 @R20825
ขอบคุณทุกอาจารย์ครับ

มันยากครับผมเลยเปลี่ยนเป็นอีกแบบคือ
ใช้วิธีเขียน Funtion ใน Module แล้วกำหนดชื่อ File Excel ที่จะ Import
แล้ว ให้จับลงตารางตามต้องการครับ เดี๋ยวค่อยศึกษาการ Browse เลือก File ตามที่สอบถามอาจารย์ใหม่ครับ

ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.4410s