Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2167 / 76735

←次へ　｜　前へ→


	【80212】タブ区切りのテキストファイル読み込み

ken - 18/10/25(木) 15:30 -


	引用なし

	パスワード

初歩的な質問ですが、行き詰まってしまったので
ご教授をお願いいたします。

ADODB.Streamオブジェクトを使用し
タブ区切りのUTF-8コードのテキストファイルを読み込んで
データ処理を行いたいのですが、１行ずつ読み込んだデータが
なぜかタブが削除されてしまう動作をしてしまい。
データ処理ができません。

他に確認すべき事項があれば教えて下さい。

Dim adoSt As Object
Set adoSt = CreateObject("ADODB.Stream")

With adoSt
　　.Charset = "UTF-8"　　
　　.Type = adTypeText　
　　.Open　　　　　　　　　
　　.LoadFromFile (strPath)

　　Do Until .EOS　　　　

　　　　strLine = .ReadText(adReadLine) ←この時点でタブが無くなります。

　　　　aryLine = Split(strLine,vbTab)　　　　

　　　　'書き込み処理

　　Loop

　　.Close
End With

0 hits

▼

【80212】タブ区切りのテキストファイル読み込み ken 18/10/25(木) 15:30