กระทู้เก่าบอร์ด อ.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
แต่พอได้แล้วจะใช้คำสั่งอะไรหรือท่านได พอมีตัวอย่างช่วยกระผมด้วยครับ
ขอบพระคุณอย่างสูงครับ
หาตัวอย่าง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 ภาพข้อความที่มีปัญหามาใส่ดีกว่าครับ
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 เดียวกันครับผม รบกวนอีกแล้วครับ
ขอบคุณครับ
และอีกแบบก็ Error เดียวกันครับผม รบกวนอีกแล้วครับ
ขอบคุณครับ
8 @R20795
table1 ต้องเป็นเป็นหรือไฟล์หรือฟอร์มที่คุนมดเอ็ดต้องการ export ครับ
9 @R20796
table1 ต้องเปลี่ยนเป็นชื่อไฟล์หรือฟอร์มที่คุนมดเอ็ดต้องการ export ครับ
10 @R20797
เรียนคุณกิตครับ
Import ครับ
แต่ผมก็ลองเปลี่ยนชื่อ Excel นะครับแต่ก็เหมือนเดือมครับ
ขอบคุณครับ
Import ครับ
แต่ผมก็ลองเปลี่ยนชื่อ Excel นะครับแต่ก็เหมือนเดือมครับ
ขอบคุณครับ
11 @R20799
โทษทีครับ
เหมือน Access มันหาชื่อ table1 ไม่เจอครับลองตรวจสอบชื่อ table ที่เราจะเอาเข้าอีกทีครับว่าตรงกันหรือเปล่าครับ
เหมือน Access มันหาชื่อ table1 ไม่เจอครับลองตรวจสอบชื่อ table ที่เราจะเอาเข้าอีกทีครับว่าตรงกันหรือเปล่าครับ
12 @R20800
มันฟ้องว่ามีฟิลด์ชื่อ FG อยู่ในไฟล์ Excel ซึ่งฟิลด์นี้ไม่มีอยู่ในเทเบิล Table1
13 @R20825
ขอบคุณทุกอาจารย์ครับ
มันยากครับผมเลยเปลี่ยนเป็นอีกแบบคือ
ใช้วิธีเขียน Funtion ใน Module แล้วกำหนดชื่อ File Excel ที่จะ Import
แล้ว ให้จับลงตารางตามต้องการครับ เดี๋ยวค่อยศึกษาการ Browse เลือก File ตามที่สอบถามอาจารย์ใหม่ครับ
ขอบคุณครับ
มันยากครับผมเลยเปลี่ยนเป็นอีกแบบคือ
ใช้วิธีเขียน Funtion ใน Module แล้วกำหนดชื่อ File Excel ที่จะ Import
แล้ว ให้จับลงตารางตามต้องการครับ เดี๋ยวค่อยศึกษาการ Browse เลือก File ตามที่สอบถามอาจารย์ใหม่ครับ
ขอบคุณครับ
Time: 0.4410s