Excel VBA質問箱 IV

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

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


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

29036 / 76738

←次へ　｜　前へ→


	【52991】Re:テキストファイルの読み込み

かみちゃん - 07/12/10(月) 21:47 -


	引用なし

	パスワード

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

>>>>エラーが出ているところは
>>>>With Range("A" & i).Resize(1, UBound(vv) + 1)　　です。
>>>>　　
>>>>入力のテキストファイルは今の所10行です。
>>
>>テキストファイルにデータのない行を間に作ってテストすると、
>>同じ場所で同じエラーは出ましたね。
>>（でも、書き込む際にそう言う事が起こりえるのかは未体験なのですが。）
>
>改行しかない行が存在する事でエラーが起きてるのなら、

52990 で書きましたが、
Resize(1, UBound(vv) + 1)
において、
UBound(vv) + 1
が0より大きくなるようにしないといけません。

つまり、
UBound(vv)
が0以上の場合という分岐処理をすればいいと思います。

改行だけある行は、
UBound(vv)
は、-1になります。

i = i + 1
は、どこに入れるかは、改行だけの行を詰めるか詰めないかで書く位置が変わると
思います。

0 hits

▼

【52955】テキストファイルの読み込み ryo 07/12/10(月) 14:57