テキストファイルに接続する

テキストファイルに接続する

Sub フォルダに接続()
Dim myCon As New ADODB.Connection, conStr As String, myFolder As String

'テキストファイルの格納されている接続先のフォルダ
myFolder = ThisWorkbook.Path & "\txt"

'接続文字列
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Extended Properties=TEXT;" & _
         "Data Source=" & myFolder
'接続
myCon.Open conStr

MsgBox "テキストファイルのあるフォルダに接続完了！"

'接続を解除し、オブジェクトをクリア
myCon.Close: Set myCon = Nothing

End Sub

テキストファイルを扱うための接続文字列
接続文字列 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=TEXT;" & _
"Data Source=" & 接続先のフォルダ名

実行結果