Excel VBA質問スレ Part7at TECHExcel VBA質問スレ Part7 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト981:デフォルトの名無しさん 08/08/25 00:14:27 "abc,def","ghi","""" ってな感じのデータに対応しようと思ったら面倒よ、自前でやるのは 982:デフォルトの名無しさん 08/08/25 02:00:47 FSOでやるなら普通にGetExtensionNameでcsvかどうかを見ればいいんでね？ 983:y 08/08/25 19:17:14 >>976 あ、そっちの方が簡単かも... オブジェクト作らないで済みますし。 Const fPath = "（フォルダのパス）" Dim fName As String fName = Dir(fPath, vbNormal) Do While fName <> "" If UCase(fName) Like "*.CSV" Then 'Open ～ '>>979の後半みたいな処理 'Close ～ End If fName = Dir Loop こんなやり方でいいのかな。 CSVデータは、シングルクォーテーション（''）で囲まれたタイプのも ざらにあるので意外と厄介ですよね。 984:デフォルトの名無しさん 08/08/25 20:21:21 Dir(fPath & "\*.csv", vbNormal) Ifはいらない 985:デフォルトの名無しさん 08/08/25 20:28:40 FSOとかつかうと 2008/08/25 20:27:30 みたいなフィールドがtextstream通した時点で 2008/08/25 20:27 とかされるからやめたほうがいいぞ。他にも罠多数。 どうしてもVBAっちゅーんなら、バイナリで読み込んで処理。これしかない。 自作のあるけど、バグあるとはずかしいから公開できん。 結構、考慮するべきパターンあるんで、かなり大きい。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch