HOME       LIST

【VB6】 Excelファイル読み込み

VB6でExcelファイルを読み込むコード

誰もが一週間以内に良いアイデアが浮かんでくる。お見逃しなく。 - 2017/03/18(DOJEUN)

packed like sardines(狭い場所に詰め込む/ぎゅうぎゅう詰め)


環境

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

以前コンテンツ:【VB6】IntegerとLongの範囲
次のコンテンツ:【VB6】ユーザー定義型変数(構造体)を一括初期化する。



Copyright(c) 2007-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional