ワークシートを別のワークブックにコピー

Question

ワークブックAから別のワークブックBにワークシートをエクスポートしたい場合は、Excelに選択を促す必要があります。 「タイプの不一致」というエラーが表示されます。また、全く新しいワークブックにエクスポートすることもできます。

Sub savefile() 
Worksheets("Test").Activate 

Dim wb As Workbook 
Dim filter As String 
Dim linkf As Variant 
Dim targetWorkbook As Workbook 

Set targetWorkbook = Application.ActiveWorkbook 
caption = "Please Select an output file " 
linkf = Application.GetOpenFilename(filter, , caption) 

If linkf = False Then Exit Sub 

Set wb = Workbooks.Open(linkf) 
targetWorkbook.Sheets("Test").Copy After:=Workbooks(wb).Sheets("Sample") 

End Sub 

Answer 1

targetWorkbook.Sheets("Test").Copy After:=wb.Sheets("Sample") 

Answer 2

に次の行

targetWorkbook.Sheets("Test").Copy After:=Workbooks(wb).Sheets("Sample") 

を交換し、これにあなたの最後の行に置き換えます。= wb.Sheets： targetWorkbook.Sheets（ "テスト"）の後をコピー（「サンプル」）

2番目のワークブックに「サンプル」というワークシートがあることを確認してください