VBScript脚本运行后，提示“远程服务器不存在或不可用:✀CreateObject✀”

我电脑没excel没法测试
Set ExcelSheet = CreateObject("Excel.Sheet","My Server")
看了一下，应该是
Set ExcelSheet = CreateObject("Excel.application")
我以前做的关于excel的一些脚本
希望对你有帮助

'InXlsFile = CreateObject("Excel.Application").GetOpenFilename("Excel Files (*.xls), *.xls")
set args = wscript.arguments
if args.count <> 1 then wscript.quit
arg = args(0)
'msgbox arg
set e = CreateObject("Excel.Application")
e.visible = true
'****************************打开指定文件，并读取指定单元内容*********************************
'Set ew = e.Workbooks.Open(arg)
'set es = ew.Worksheets(1)
'on error resume next
'for i = 1 to 10
' for j = 1 to 10
' msgbox(es.cells(i,j))
' next
'next
'**********************************************************************************
set nb = e.workbooks.add
set ns = nb.worksheets(1)
'ns.cells(1,1) = now
'ns.saveas "c:\excel.xls"
'*******************************************************************************
'for i = 1 to 7
'ns.cells(1,i) = "星期"&i
'next
'ns.saveas "c:\e.xls"
'e.quit
'***********************************************************************
for i = 1 to 200
for j = 97 to 122
k = chr(j)
ns.range(k&i).value = "第"&i&"个"
next:next
ns.saveas "c:\xx.xls"