0

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

1 に答える 1

1

sheets1引用符で囲む必要があると思います。

Set Myrange = Exobj.Worksheets("sheets1").Range("A1:H11")
于 2013-02-26T17:07:25.843 に答える