Vbscript 使用Vb脚本在Excel中创建命名范围

我创建了一个使用Range对象在Excel中创建命名范围的代码，但它在VBA中不起作用。错误出现在我试图创建一个范围对象的语句中，不确定如何创建

如果有人能给我提个主意，那就太好了

Set Exobj = CreateObject("Excel.Application")
Set Newbook = Exobj.Workbooks.Add()
Newbook.SaveAs("C:\Users\ACER\Desktop\Project Folder\Test17.xlsx")

Exobj.Workbooks.Open("C:\Users\ACER\Desktop\Project Folder\Test17.xlsx")
Exobj.Visible = True

Set Myrange = Exobj.Worksheets(sheets1).Range("A1:H11") ' statement where Error comes

For each C in Myrange
If c.Value = "" Then 
C.Value ="Blank"
End if
Next

Exobj.Workbooks.Save()
Exobj.Activeworkbooks.Close()

---

我想你需要在

表单1

周围加上引号，即

Set Myrange = Exobj.Worksheets("sheets1").Range("A1:H11") 

---

我想你需要在

sheets1

周围加上引号，即

Set Myrange=Exobj.Worksheets（“sheets1”）.Range（“A1:H11”）

比你更有效。我会把我的评论作为答案发表，干杯；）：）我在使用

Next C

时遇到了类似的问题，但当我使用

Next

时，它只起作用