Excel VBA質問箱 IV

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

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


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

21392 / 76732

←次へ　｜　前へ→


	【60741】Re:わかりません。

kanabun - 09/3/12(木) 14:39 -


	引用なし

	パスワード

▼質問者さん： >エラーが起こります。 > ><初期省略> > >'ファイルを開く >　　　io = FreeFile() >　　　Open myText For Binary As io >　　　ReDim buf(1 To LOF(io))　　←ここの部分でエラーが発生いたします。 >　　　Get #io, , buf　　推測ですが、 >　　myText = "指定フォルダの更新日の新しいCSVファイル" 変数 myText に手順(1)で求めた最新のCSVファイル名が入ってなくて、ありもしないファイル名を Open してしまって、ファイルサイズLOF(io) がゼロの状態なのでしょう。　ReDim buf(1 To 0) は、ありえない配列の宣言ですから。 myText には別スレで求めた最新のCSVファイル名を（フルパスで）代入してください。