Excel VBA質問箱 IV

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

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


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

8019 / 76736

←次へ　｜　前へ→


	【74297】Re:CSVファイルの読み込みの繰り返し

Ib(初心者） - 13/5/15(水) 19:02 -


	引用なし

	パスワード

ループは実行されているのですが、セル内容の部分がループしていないようで、
Empty値になったままになっていました。
NameCの中を見ていると、１週目はセルの内容を読みこんでくれていたのですが、
２週目から読みこめていないようでした。

CopyVとNameV自体ループはしているみたいです。

「セル内容＝」の部分の位置を変えてみたら１週目は無事にセル内容のところに読み込みました。ループの中身を、
　　For i = LBound(nameV) To UBound(nameV)
　
　　　　Set NameC = shM.Range(nameV(i))　　 '保存ブック名セル
　　　　Set myR = shF.Range(CopyV(i))　　　 '転記元領域
　　　　myR.Copy shT.Range("A3")
　　　　セル内容 = NameC.Value
　　　　Application.DisplayAlerts = False　 '同名ブックがあれば無条件上書き
　　　　'マクロブックの複製ブックを新規作成
　　　　ThisWorkbook.SaveCopyAs パス名 & "\" & セル内容 & ".xlsm"
　　　　'次のコピーのため、転記した領域をクリア
　　　　shT.Range("A3").Resize(myR.Rows.Count, myR.Columns.Count).ClearContents
のように変更してみました。

それから、「転記領域サイズが、必ずしも一定ではないようですので」といわれて初めて気付いたのですが、
一部範囲指定を間違えてしまっていました、
正しくは"A2:R272", "A273:R543", "A544:R814", "A815:R1085", "A1086:R1356", "A1357:R1627"です、すみません・・・

6 hits

▼

【74273】CSVファイルの読み込みの繰り返し Iｂ（初心者） 13/5/13(月) 11:32