- 帖子
- 32
- 主題
- 7
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- windows 8
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲端
- 註冊時間
- 2013-3-19
- 最後登錄
- 2024-3-14
|
- Sub 報表()
- Dim Wb As Workbook
- Dim Thesou As String
- Application.ScreenUpdating = False
- Thesou = ThisWorkbook.Path & "\報表範本.xlsx"
- Set Wb = GetObject(Thesou)
- Dim X As Integer
- X = 2
- Do
- Wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(Sheets.Count)
- ActiveSheet.Name = Sheets("Shall").Cells(X, 1) & Sheets("Shall").Cells(X, 2)
- X = X + 1
- Loop Until Sheets("Shall").Cells(X, 1) = "" Or Sheets("Shall").Cells(X, 2) = ""
- Wb.Close False
- Set Wb = Nothing
- Application.ScreenUpdating = True
- End Sub
在活頁簿總報表.xlsx的Shall工作表，欄A和欄B分別是商品編號和商品名稱，
要把同資料夾活頁簿報表範本.xlsx的Sheets(1)複製回活頁簿總報表.xlsx，
並分別建立名稱為商品編號+商品名稱的n個工作表
因我是大菜鳥，所以程式碼又臭又長，目前只能反覆複製報表範本.xlsx的Sheets(1)工作表貼回總報表.xlsx
懇請高手們賜教更有效率的寫法，感激不盡！謝謝！ |
|
發表於 2013-11-15 17:14
| 
