Excelbook.SaveAs 保存不了文件

[yimu_95]

Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = False
' ExcelApp.WorkBooks.Open("e:/data.xls")
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value="SN"
ExcelBook.WorkSheets(1).cells(1,2).value="SN"
ExcelBook.WorkSheets(1).cells(1,3).value="SN"
ExcelBook.WorkSheets(1).cells(1,4).value="SN"
ExcelBook.WorkSheets(1).cells(1,5).value="SN"
ExcelBook.WorkSheets(1).cells(1,6).value="SN"
ExcelBook.WorkSheets(1).cells(1,7).value="SN"
ExcelBook.WorkSheets(1).cells(1,8).value="SN"
ExcelBook.WorkSheets(1).cells(1,9).value="SN"
ExcelBook.WorkSheets(1).cells(1,10).value="SN"
cnt=2
do while not rs.Eof
ExcelBook.WorkSheets(1).cells(cnt,1).value=rs.fields("SN").value
ExcelBook.WorkSheets(1).cells(cnt,2).value=rs.fields("PN").value
ExcelBook.WorkSheets(1).cells(cnt,3).value=rs.fields("TEST_Temp").value
ExcelBook.WorkSheets(1).cells(cnt,4).value=rs.fields("DDM_BIAS").value
ExcelBook.WorkSheets(1).cells(cnt,5).value=rs.fields("DDM_TXPWR").value
ExcelBook.WorkSheets(1).cells(cnt,6).value=rs.fields("TX_PWR").value
ExcelBook.WorkSheets(1).cells(cnt,7).value=rs.fields("TX_ER").value
ExcelBook.WorkSheets(1).cells(cnt,8).value=rs.fields("RX_SEN").value
ExcelBook.WorkSheets(1).cells(cnt,9).value=rs.fields("LOS_AST").value
ExcelBook.WorkSheets(1).cells(cnt,10).value=rs.fields("LOS_DAST").value
rs.movenext
cnt = cint(cnt) + 1
loop
Excelbook.SaveAs("../dataExcel/order.xls")
wscript.sleep 3000

ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象

Excelbook.SaveAs("../dataExcel/order.xls")
不报错，但是没有生成对应文件
初入手请大佬知道

[小噤]

路径问题.自己换个绝对路径就知道能不能生成了.

[舉杯邀明月]

既然“不报错”，那必然是把文件生成了。


我也同意楼上的说法，你用“相对路径”，自己都不知道“相对”到哪去了！
用“绝对路径”一试便知分晓！
或者，也可以在“另存”操作之后，MsgBox 一下 ExcelBook.path（大概是这个属性吧）
　　看看它到底保存到哪去了。

[脆皮大雪糕]

不是保存不了，而是不知道保存到哪里去了。

[dsd999]

引用 3 楼 chewinggum 的回复:

不是保存不了，而是不知道保存到哪里去了。

上一级目录有没有dataExcel？

[aguangkj]

路径问题，试试以下：

Excelbook.SaveAs(App.Path & "dataExcel\order.xls")
或者
Excelbook.SaveAs(App.Path & "order.xls")

[dragonrabb]

斜杠反了？？？？？？

[kinkolau]

想要上级目录，你可以尝试用 dim tempstr dim newpath as string tempstr=split(App.Path,”\”) for I=0 to ubound(tempstr)-1 newpath=newpath & “\” & tempstr(I) Next I newpath=right(newpath,len(newpath)-1) newpath就是当前程序的上级目录了！

[milaoshu1020]

引用 7 楼 kinkolau 的回复:

想要上级目录，你可以尝试用
dim tempstr
dim newpath as string
tempstr=split(App.Path,”\”)
for I=0 to ubound(tempstr)-1
newpath=newpath & “\” & tempstr(I)
Next I
newpath=right(newpath,len(newpath)-1)
newpath就是当前程序的上级目录了！

也可以用fso的getparentfoldername函数.

[weixin_40214407]

保存的代码不全，还有其他参数： g_Newbook.SaveAs(COleVariant(SaveExcelPath), covOptional, covOptional, covOptional, covOptional, covOptional, (long)0, covOptional, covOptional, covOptional, covOptional, covOptional);