|
#2
mrexcel2022-11-30 21:33
 程序代码：Set D = C.Workbooks.Open("d:\test.xlsx") Set sh = D.Worksheets.Add sh.Name = "newsheet" D.Close True Set C = Nothing |
下面是删除工作表的，测试是成功的。
程序代码：Set C = CreateObject("Excel.Application")
Set D = C.Workbooks.Open("C:\Users\Admin\Desktop\test.xlsx")
D.Worksheets("sheet1").Delete
D.Close True
Set C = Nothing
Set D = C.Workbooks.Open("C:\Users\Admin\Desktop\test.xlsx")
D.Worksheets("sheet1").Delete
D.Close True
Set C = Nothing