Excel VBA質問箱 IV

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

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


21398 / 76738 ←次へ | 前へ→

【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ファイル名を(フルパスで)代入してください。
2 hits

【60729】わかりません。 お願いします 09/3/11(水) 19:39 質問
【60730】Re:わかりません。 kanabun 09/3/11(水) 20:16 発言
【60740】Re:わかりません。 質問者 09/3/12(木) 14:22 お礼
【60741】Re:わかりません。 kanabun 09/3/12(木) 14:39 発言
【60743】Re:わかりません。 kanabun 09/3/12(木) 15:46 発言
【60744】Re:わかりません。 感謝いたします。 09/3/12(木) 16:53 お礼

21398 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free