Создание именованных диапазонов в Excel с помощью Vb Script

Question

Я создал код для создания Named Ranges в Excel с использованием объекта Range, но не работал, так как он работает в 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")