PTT數位生活區 / Office

[算表] 請問VBA語法哪裡寫錯 謝謝

看板Office作者 (回家真好)時間5年前 (2021/02/06 15:19), 5年前編輯推噓0(0推 0噓 4→)
留言4則, 2人參與, 5年前最新討論串1/1
軟體:EXCEL 版本: office365 請教一下想 這裡執行時原本沒有問題 Sub EX() Dim iPath As String Dim NewName As String Dim ibook As Workbook Application.ScreenUpdating = False iPath = "C:\Users\ifye0\Desktop\" '指定路徑 NewName = Format(Now, "yyyymmddhhmmss") & CStr(Sheets("工作表1").Range("A1")) Set ibook = ActiveWorkbook With Workbooks.Add: ibook.Activate Sheets("工作表1").Range("A1:G10").Copy .Sheets(1).Range("A1"): .Sheets(1).Name = "工作表1" .SaveAs iPath & NewName: .Close True End With: Set ibook = Nothing End Sub 但是在 Sheets("工作表1").Range("A1:G10").Copy .Sheets(1).Range("A1"): .Sheets(1).Name = "工作表1" 加入下面這一段就會秀出ERROR Sheets("工作表2").Range("A1:G10").Copy .Sheets(2).Range("A1"): .Sheets(2).Name = "工作表2" 執行階段錯誤9 陣列索引超出範圍 請問是為什麼 感謝 https://imgur.com/a/TzYt0Qn https://imgur.com/IliFurp
-- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.138.45.40 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1612595949.A.BAB.html
→
02/06 15:34, 5年前 , 1F
看新活頁簿是不是只有一張工作表，只有一張工作表的話，要
02/06 15:34, 1F
→
02/06 15:34, 5年前 , 2F
複製到第二張工作表時就會出現該錯誤訊息，可先於新活頁簿
02/06 15:34, 2F
→
02/06 15:34, 5年前 , 3F
內新增工作表worksheets.add、sheets.add方式排除
02/06 15:34, 3F
→
02/06 16:16, 5年前 , 4F
加入: .Worksheets.Add after:=ActiveSheet後成功 感謝S大
02/06 16:16, 4F
※ 編輯: ifye (220.138.45.40 臺灣), 02/06/2021 16:26:03
‣ 更多 ifye 的文章
文章代碼(AID): #1W7aBjkh (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ifye 的文章
文章代碼(AID): #1W7aBjkh (Office)