Excel VBA質問箱 IV

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

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


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

43327 / 76735

←次へ　｜　前へ→


	【38458】Re:複数のCSVファイルを一つのブックに

かみちゃん - 06/6/3(土) 12:03 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>時間が無いのでTestしていませんが、こんなで読めると思いますが？

ちょうど、別の案件で使おうとしていましたので、私のほうで検証してみました。
私の手元にあるCSVファイルが悪いのかもしれませんが、ファイルの末尾がEOFに
なっている場合、EOFコードまで、Excelシート上に読み込まれるようです。
したがって、それを除去する必要があると思い、以下のように修正してみて、き
れいに読み込めることを確認しました。

何かアドバイスがあれば、よろしくお願いします。

　　　　　　　　'ファイルから１行読み込み
　　　　　　　　strBuff = .ReadLine
　　　　　　　　
　　　　　　　　If Len(strBuff) <> 0 Then
　　　　　　　　　'ファイルの末尾がEnd Of File (16進数の1A、文字コードの26)である場合は、除去
　　　　　　　　　strBuff = Replace(strBuff, Chr(26), "")
　　　　　　　　　'読み込んだ行がEnd Of File のみだった場合は、其の行は書きこまない
　　　　　　　　　If Len(strBuff) = 0 Then blnHeader = True
　　　　　　　　End If
　　　　　　　　
　　　　　　　　'「blnHeader = True」の場合其の行は書きこまない
　　　　　　　　If Not blnHeader Then

0 hits

▼

【38407】複数のCSVファイルを一つのブックに maki 06/6/2(金) 8:08