シートのコピー

vbaにて開いたexcelのシートをマクロ等を実行しているexcelのSheet1にコピーしたいのですが、どのように記述したらよいでしょうか。
Sheet1が既に存在した場合Sheet１（2）のようにならずにSheet1にコピーできるようにしたいです。

行動規範の内容に同意します

回答1件

ベストアンサー

シートが存在していたら削除してからコピーでしょうか。
存在チェックがワークシート分ループさせているのが少々面倒ですね。

VBA
1Sub macro()
2    Dim fb As Workbook ' コピー元ワークブック
3    Dim tb As Workbook ' コピー先ワークブック
4    Dim fs As Worksheet ' コピー元ワークシート
5    Dim ws As Worksheet ' ワークシートテンポラリ
6        
7    Set fb = Workbooks.Open("c:\temp\Book1.xlsx")
8    Set tb = ThisWorkbook
9    
10    Set fs = fb.Worksheets("Sheet1")
11    
12    Application.DisplayAlerts = False
13    For Each ws In tb.Worksheets
14        If ws.Name = fs.Name Then
15            ws.Delete
16            Exit For
17        End If
18    Next
19    fs.Copy After:=tb.Worksheets(1)
20    fb.Close
21    Application.DisplayAlerts = True
22End Sub
23