作者ifye (回家真好)
看板Office
标题[算表] 请问VBA语法哪里写错 谢谢
时间Sat Feb 6 15:19:06 2021
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1612595949.A.BAB.html
1F：→ soyoso: 看新活页簿是不是只有一张工作表，只有一张工作表的话，要 02/06 15:34
2F：→ soyoso: 复制到第二张工作表时就会出现该错误讯息，可先於新活页簿 02/06 15:34
3F：→ soyoso: 内新增工作表worksheets.add、sheets.add方式排除 02/06 15:34
4F：→ ifye: 加入: .Worksheets.Add after:=ActiveSheet後成功 感谢S大 02/06 16:16
※ 编辑: ifye (220.138.45.40 台湾), 02/06/2021 16:26:03