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

Question

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

如果有人能给我一个想法，那就太好了。

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()

Answer 1

我认为你需要用引号括起sheets1，即

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