ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 386|ตอบกลับ: 2

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

[คัดลอกลิงก์]

5

กระทู้

12

โพสต์

120

เครดิต

Member

Rank: 2

เครดิต
120

แก้ไขครั้งสุดท้ายโดย 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 [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
ttttt.PNG

ไฟล์ Excel
ppppp.PNG


213

กระทู้

301

โพสต์

2407

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2407
โพสต์ 2019-5-9 18:20:29 | ดูโพสต์ทั้งหมด

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

5

กระทู้

12

โพสต์

120

เครดิต

Member

Rank: 2

เครดิต
120
 เจ้าของ| โพสต์ 2019-5-9 21:53:07 | ดูโพสต์ทั้งหมด

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

ขอบคุณครับ พี่
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-21 13:29 , Processed in 0.329721 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้