Sub copySheet()

Dim wkbk As Workbook

Set wkbk = Workbooks.open("原始檔.xls") "先開啟要複製的檔案

wkbk.sheets(1).Copy thisworkbook.sheets(1) "再將此檔案中第一個工作表複製到當前工作簿的第一個工作表前

End Sub

這樣是最簡單的程式碼了，但是有些限制：如果工作表的某些單元格中字元數超過255個，則副本的該單元格中只保留前255個字元。

如果複製原始檔中第一個工作表內容到當前工作簿第一個工作表中，用下列程式碼：

Sub copySheet()

Dim wkbk As Workbook

Set wkbk = Workbooks("book2") "先開啟要複製的檔案

wkbk.Sheets(1).UsedRange.Copy "複製原始檔中第一個工作表的內容

ThisWorkbook.Sheets(1).Range("A1").Paste "貼上到當前工作簿第一個工作表中

End Sub