---

環境

Visual Basic 6
Excel 2000

説明

test.xlsファイルを読んで画面に表示するサンプルコード

test.xls

VB6 コード

Option Explicit

Private Sub Form_Load()
Dim adoCON As New adoDB.Connection
Dim adoRS As New adoDB.Recordset
Dim adoDB As String
Dim wrkSQL As String
Dim wrkI As Integer

'# Excelファイル指定
adoDB = App.Path & "\test.xls"

'# DB接続
Set adoCON = New adoDB.Connection
With adoCON
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties") = "Excel 8.0"
.Open adoDB
End With

'# Sheet1をテーブルとして使う
wrkSQL = "SELECT * FROM [Sheet1$];"

'# RecordSet Open
adoRS.Open wrkSQL, adoCON, adOpenDynamic

'# テーブルを読み込む
Do Until adoRS.EOF
wrkI = wrkI + 1
Debug.Print wrkI & " - " & _
adoRS.Fields("No").Value & " - " & _
adoRS.Fields("名前").Value & " - " & _
adoRS.Fields("電話番号").Value
adoRS.MoveNext
Loop
Debug.Print "---------------------------"

'# Close
adoRS.Close
Set adoRS = Nothing
adoCON.Close
Set adoCON = Nothing

End Sub