อยากรู้วิธีการ Import ข้อมูลจาก Excel เข้าไป Table Access

[Serverchita]

อยากรู้วิธีการ Import ข้อมูลจาก Excel เข้าไป Table Access โดยการสร้างปุ่ม Browse ไว้บนฟอร์ม เมื่อคลิกแล้วให้เราเลือกไฟล์ตามต้องการ

(ไม่รู้แนวทางเลยครับ ว่าจะเริ่มจากตรงไหนครับ)

[snasui]

ลองดูที่นี่เป็นแนวทางครับ Import data form Excel to table

[Serverchita]

ผมมีไฟล์แนบมาให้ดูครับ คือ ต้องการอัพเดทข้อมูลใน Data Table ใหม่ จากไฟล์ใน Excel

[snasui]

ได้เขียน Code สำหรับการ Import ข้อมูลไว้แล้วหรือไม่ ชื่อ Code ว่าอะไร ติดขัดบรรทัดใด โพสต์ Code มาพร้อมกับแจ้งปัญหาที่เป็นมาด้วย จะได้ช่วยตอบต่อไปจากนั้นครับ

[Serverchita]

ผมได้วิธีจาก youtube แล้วครับ ขอบคุณครับ (ไฟล์ที่ส่งไปไม่รู้แนวทางโค้ดเลยครับ)

[bank9597]

การ Import From Excel มีหลักการทำที่ค่อนข้างละเอียดครับ ยังไงต้องศึกษาให้ดีก่อนครับ เพราะแค่โค๊ดอย่างเดียวนั้นไม่สามารถ Import ได้ถูกต้องหรือแม้แต่ Import เข้าไปได้ครับ

[logic]

โค้ดที่ผมใช้มีบรรทัดเดียว ดูตัวอย่างได้จาก https://msdn.microsoft.com/en-us/librar ... 44793.aspx ครับ

[bank9597]

การ Import ลักษณะดังกล่าว เป็นการ Import เข้าไปแล้วสร้างเป็นตารางใหม่ แต่หากต้องการ Import จาก Excel ไปลงในตารางที่สร้างไว้แล้วก็จะไม่ใช่แบบนั้นครับ

[logic]

อันนั้นเป็นการ Import เข้าไปในตารางเดิม ผมใช้อยู่เป็นประจำครับ

[bank9597]

อันนั้นเป็นการ Import เข้าไปในตารางเดิม ผมใช้อยู่เป็นประจำครับ

ใช่แล้วครับ ผมลืมไปว่าที่พูดถึงนั้นคือ Import From Text ซึ่งต้องมี Specification

ผมลืมเองครับ ฮ่าๆ

[Serverchita]

อันที่จริงผมอยากได้แบบลิ้งค์นี้ครับ

http://quickstarts.asp.net/QuickStartv2 ... d1_vb.aspx

ก็คือเป็นการอัพเดทข้อมูลเข้าไปเพิ่มใน Table ที่มีอยู่

[bank9597]

Import เข้ามาก่อนเสมอครับ แล้วค่อยค่อย Append เข้าสู่ตารางที่เราต้องการ

[Serverchita]

Import เข้ามาก่อนเสมอครับ แล้วค่อยค่อย Append เข้าสู่ตารางที่เราต้องการ

ตอนนี้ผมติดที่ อยากให้ลิ้งค์มาอยู่บน textbox ครับ อยากให้คำสั่ง Browse ส่วนคำสั่งดึงข้อมูลเข้าผมได้แล้วครับ

[bank9597]

ลองปรับโค๊ดที่ผมแป๊ะไว้ดูครับ

Code: Select all

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

[Serverchita]

ผมดูไม่ออกเลยครับ ยังมือใหม่อยู่ครับ ถ้ามีไฟล์ตัวอย่างให้ดูผมพอจะปรับเข้ากับไฟล์ผมได้ครับ

[bank9597]

ยังไงก็ต้องลองเขียนมาเองก่อนครับ ทำไฟล์ตัวอย่างมาดู ถ้าโค๊ดที่เขียนมามีข้อผิดพลาดอยู่และโค๊ดก็เป็นไปตามสิ่งที่เราต้องการแล้ว เดี๋ยวจะช่วยปรับให้ครับ

พยายามรักษากฏครับ

[Serverchita]

ไฟล์แนบครับ

[bank9597]

ลองปรับโค๊ดใหม่ครับ

Code: Select all

Private Sub Browse_Click()

    Dim intChoice As Integer
    Dim strPath As String

    'make the file dialog visible to the user
    intChoice = Application.FileDialog(msoFileDialogOpen).Show
    'determine what choice the user made
    If intChoice = 0 Then
        Me.txtBrowse = "Not Select"
    Else
        strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
        Me.txtBrowse = strPath
    End If

End Sub

*** อย่าลืม Add Reference ตามภาพด้านล่างครับ
ไปที่ Tool > Reference

[Serverchita]

ทำได้แล้วครับ ขอบคุณมากครับ

[saribut.m@gmail.com]

ขอโทษทีครับ พอดีผมอยากได้วิธีนี้เช่นกันแต่ติดที่มีคำถามเพิ่มเติมนั้นจากเจ้าของกระทู้นี้ คือ การ import ขอมูลมาจาก Excel นั้นสามารถจำกัด
ช่อง Cells จาก ไฟร์ excel ว่าเราจะ เอามาแค่บาง Cells แบบนี้ได้ไหมครับ หรือทำได้แค่ทางเดียวคือนำมาทั้งหน้าของ Excel เลย

ขอขอบคุณล่วงหน้าสำหรับคำตอบ ครับ