Q&A
Workbook に縦も横も無いと思うのですが、WorkSheet の事ですか？
複数のブックの内容を縦方向に連結し、新しいブックとして保存するような処理は可能でしょうか？
lang
1For var = 1 To 10 2 3 path = Cells(var, 1).Value // セルのファイルパスを取得 4 Workbooks.Open path // ブックを開く 5 6Next 7 8// ↑ 開いたブック内の内容をすべて連結して新しいブックとして保存したい
わかりにくくて申し訳ありません。シートの内容をシートの縦方向末尾に追加したいという事です。
WorkBook には、複数の WorkSheet が含まれますが、どのようにしたいのですか？
「縦方向に連結して」が、具体的に何をすることか説明すると、回答が期待できると思います。
回答1件
0
ベストアンサー
以下のような手順で実現できると思います。
①出力用に新規ブック作成（このブックのSheet1を出力シートとする） ②出力位置（出力行番号を管理する変数)に初期値として１を設定 ③開くブックの数だけループ処理 --ここからブックのループ-- ④対象ブックをオープン ⑤ブック内のすべてのシートをループ処理 --ここからシートのループ処理-- ⑥対象シートの最終行番号を取得 ⑦対象シートの先頭行から最終行までを範囲指定してコピー ⑧出力シートの出力位置に貼り付け ⑨出力位置を出力シートの最終行に更新 --シートループここまで-- ⑩対象ブックを閉じる --ブックループここまで-- ⑪出力用のブックを名前を付けて保存
全体を見ると膨大に見えるかもしれませんが、ひとつひとつはそんなに難しいものではありません。
以下のようなキーワードにVBAをつけて検索すれば、それぞれの段階でどんな処理が必要かわかると思います。（例：「VBA 新規にブックを作成」）
・新規にブックを作成
・他のブックを開く
・ブック内の全てのシートをループ処理
・範囲を指定してコピー＆ペースト
・シートの最終データ行を取得
・名前を付けてブックを保存
がんばってみてください。
投稿2017/05/31 04:43
編集2017/05/31 04:44
総合スコア3013
あなたの回答
tips
プレビュー
