สอบถาม Laod Excel แล้ว ไม่แสดง Row แรก
แก้ไขครั้งสุดท้ายโดย kai เมื่อ 2019-5-9 13:55สวัสดีครับ
ผม โหลดไฟล์ 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 ", 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
ในตารางของ Excel แถวแรกจะต้องถูกกำหนดเป็นชื่อหลัก หรือเสมือนหนึ่งเป็นชื่อฟิลด์สำหรับตารางข้อมูล เพื่อให้เราใช้อ้างอิงในการเข้าถึงข้อมูลในแต่ละเซลล์ครับผม แถวนี้เลยไม่แสดงผลข้อมูลออกมา ...
thongkorn ตอบกลับเมื่อ 2019-5-9 18:20
ในตารางของ Excel แถวแรกจะต้องถูกกำหนดเป็นชื่อหลัก หรือ ...
ขอบคุณครับ พี่
หน้า:
[1]