Excel VBA質問箱 IV

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

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


44088 / 76735 ←次へ | 前へ→

【37670】Re:Excelファイルの結合
回答  ハチ  - 06/5/15(月) 10:11 -

引用なし
パスワード
   ▼VBA初心者 さん:
>Excelファイルa.xls,b.xls,c.xls(各ファイルには1シートしか存在しない)を結合して、
>d.xlsを作成しかつそのd.xlsにはaシート(a.xls),bシート(b.xls),cシート(c.xls)と分けたいのですが
>どのように処理すればよいか教えていただけますでしょうか?
>よろしくお願いいたします。

「結合して、」が良くわかりませんが、1枚目のシートをコピーしたいということなら
こんな感じで動くと思います。

このマクロを貼り付けたbookと、
コピーしたいbook(ここでは、a.xls,b.xls,c.xls)を開いた状態で
実行してみてください。


Sub test()

Dim wb As Workbook
Dim Newwb As Workbook
Dim i, c As Integer

Set Newwb = Workbooks.Add
c = Newwb.Sheets.Count

For Each wb In Workbooks
  If wb.Name <> ThisWorkbook.Name And wb.Name <> Newwb.Name Then
    wb.Worksheets(1).Copy Before:=Newwb.Worksheets(1)
    Newwb.Worksheets(1).Name = wb.Name
  End If
Next wb

Application.DisplayAlerts = False

  For i = 1 To c
    Newwb.Sheets(Newwb.Sheets.Count).Delete
  Next i

  Newwb.SaveAs ThisWorkbook.Path & "\d.xls"
  Newwb.Close

Application.DisplayAlerts = True

Set Newwb = Nothing

End Sub

0 hits

【37664】Excelファイルの結合 VBA初心者 06/5/15(月) 9:16 質問
【37670】Re:Excelファイルの結合 ハチ 06/5/15(月) 10:11 回答
【37677】Re:Excelファイルの結合 Kein 06/5/15(月) 14:51 回答

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