請教不同活頁簿間的工作表複製 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教不同活頁簿間的工作表複製

返回列表下一主題上一主題發帖

[發問] 請教不同活頁簿間的工作表複製

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2013-11-15 23:48 | 顯示全部帖子

本帖最後由 stillfish00 於 2013-11-16 00:00 編輯

回復 1# oao
試試有沒有比較快

Sub 報表()
Dim x As Long
Dim Thesou As String
Thesou = ThisWorkbook.Path & "\報表範本.xlsx" '範本只含一個工作表
Application.ScreenUpdating = False
With Sheets("Shall")
For x = .[A1].End(xlDown).Row To 2 Step -1
Sheets.Add(After:=Sheets(1), Type:=Thesou).Name = .Cells(x, 1) & .Cells(x, 2)
Next
End With
Application.ScreenUpdating = True
End Sub

複製代碼

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-11-16 10:37 | 顯示全部帖子

在 Type:=Thesou 處會發生錯誤.
luhpro 發表於 2013-11-16 07:15

Excel2003 範本另存新檔為 "報表範本.xlt" 看看

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題