〔VBA〕Copy-複製工作表至另一個活頁簿--v008

2019-06-17

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

【複製指定的工作表至另一個活頁簿】

本範例以完整Function撰寫，可自行修改改
fWBName：被複製的活頁簿
fWSName：被複製的工作表
tWBName：複製至的活頁簿(空白代表產生新的活頁簿，非空白一律複製到最後一張工作表)
執行結果，成功回傳True，失敗回傳False

Private Function CopyDataSource(ByVal fWBName As String, ByVal fWSName As String, ByVal tWBName As String) As Boolean

On Error GoTo Err

Workbooks(fWBName).Activate '複製來源Workbook必需Activate

If tWBName = "" Then

Sheets(fWSName).Copy

Else

Sheets(fWSName).Copy After:=Workbooks(tWBName).Sheets(Workbooks(tWBName).Sheets.Count)

End If

CopyDataSource = True

Exit Function

Err:

CopyDataSource = False

End Function

參考文件：