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

问题描述：

我创建了一个用于在Excel中使用Range对象创建命名范围的代码，但因为它在VBA中工作，所以无法工作。错误发生在声明中，我尝试创建一个Range对象，不知道如何做到这一点。使用Vb脚本在Excel中创建命名范围

如果任何人可以建议我一个想法它会很好。

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

我认为你需要围绕'加上引号sheets1'，即'设置Myrange = Exobj.Worksheets（ “sheets1”）。范围（“A1：H11”）' – 2013-02-26 00:43:56

比你，它的工作。 – user1925406 2013-02-26 02:42:17

我会发表我的评论作为答案，欢呼;） – 2013-02-26 17:06:37

答

我认为你需要围绕sheets1加上引号，即

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

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

相关推荐