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

Propertiesコレクションを使用して接続の設定を行う

Sub フォルダに接続2()
'Propertiesコレクションを使用して接続
Dim myCon As New ADODB.Connection, myFolder As String

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

'接続
With myCon
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Extended Properties") = "TEXT"
  .Open myFolder
End With

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

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

End Sub

実行結果