| |
▼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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
