Excel VBAにてCSVファイルを読みたい

解決済

質問者：Koba5
質問日時：2012/02/10 09:31
回答数：3件

ExcelにてCSVファイルを読んで処理をしたい。

ただし、CSVファイルをExcelでopenすると遅いので、
VBAにてファイルとして読み込みで処理をしたいのですが、
皆さんは、どのように行っていますか？

※CSVファイルは、テキスト区切り→"(ダブルコーテーション)です
　テキスト区切り無しであれば、1行読んで、カンマをsplitすれば良いと思いますが。。。。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： nicotinism
回答日時：2012/02/14 11:03

例）"ABC,DEF""GHIJ"の場合、ABC,DEF"GHIJを出力したい

これは無理かと？、ABC,DEF GHIJ のようなら出来るかも。

ところで、"ABC,DEF""GHIJ" のようになっているとしたら
カンマ区切りでは無くて、タブ区切りのファイルになっているとかではありませんか？

もう少し、本番データに近い感じで例示されると回答も楽です (^^ゞ
その際に取得したいデータの形の表現として
[ABC,DEF][GHIJ]
[] がセルを表現してます。
ですと、こちらも分かりやすいです。

- 0
- 件

通報する

この回答へのお礼

nicotinismさん　コメントありがとうございます

無理ですか？何度もありががとうございました

ちなみに、ABC,DEF"GHIJをExcelのセルに入力して、
CSVにて保存すると、"ABC,DEF""GHIJ"としてファイルに出力されます

通報する

お礼日時：2012/02/14 12:07

No.2

回答者： nicotinism
回答日時：2012/02/10 22:06

Sub test()

'sample.csv の中味は、
Rem "ss",12,"dd"
Rem "tt",34,"yy"
Dim ff As Integer
Dim str1 As Variant
ff = FreeFile
Open "e:\sample.csv" For Input As #ff
Do Until EOF(ff)
　　Line Input #ff, str1
　　Debug.Print str1, Replace(Split(str1, ",")(0), Chr(34), "")
Loop
Close #ff
End Sub

かな？