สอบถาม Laod Excel แล้ว ไม่แสดง Row แรก

kai

สวัสดีครับ
ผม โหลดไฟล์ Excel มาแสดงใน List1
แต่มันไม่แสดง แถวแรก อ่ะครับ
ต้องแก้ไข Code อย่างไรครับ

Sub LoadExcel()
Dim Conn As ADODB.Connection
Dim rsExl As ADODB.Recordset
Dim shName As String
Dim CountExl As Integer
Dim A As String, B As String

    Set Conn = New ADODB.Connection
    With Conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & App.Path & "\Book1.xls" & ";Extended Properties=Excel 8.0;"
        .Open
       End With
        '***************************************
    List1.Clear
       Set rsExl = New ADODB.Recordset
    rsExl.CursorType = adOpenStatic
    rsExl.Open "SELECT * FROM [Sheet1$]", Conn         
    CountExl = rsExl.RecordCount
    lblC.Caption = CountExl & "Record"
    If CountExl > 0 Then
        For i = 0 To CountExl - 1
            A = Trim(rsExl.Fields(0).Value)
            B = Trim(rsExl.Fields(1).Value)
            List1.AddItem A & "   " & B
            rsExl.MoveNext
        Next
    End If
    rsExl.Close
    Conn.Close
  Set rsExl = Nothing
  Set Conn = Nothing

End Sub


ไฟล์ Excel

thongkorn

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

kai

thongkorn ตอบกลับเมื่อ 2019-5-9 18:20
ในตารางของ Excel แถวแรกจะต้องถูกกำหนดเป็นชื่อหลัก หรือ ...

ขอบคุณครับ พี่