Excel VBA質問スレ Part7
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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っちゅーんなら、バイナリで読み込んで処理。これしかない。 自作のあるけど、バグあるとはずかしいから公開できん。 結構、考慮するべきパターンあるんで、かなり大きい。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4679日前に更新/336 KB
担当:undef