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="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,2).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,3).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,4).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,5).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,6).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,7).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,8).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,9).value="https://bbs.csdn.net/topics/SN"
ExcelBook.WorkSheets(1).cells(1,10).value="https://bbs.csdn.net/topics/SN"
cnt=2
do while not rs.Eof
ExcelBook.WorkSheets(1).cells(cnt,1).value=https://bbs.csdn.net/topics/rs.fields("SN").value
ExcelBook.WorkSheets(1).cells(cnt,2).value=https://bbs.csdn.net/topics/rs.fields("PN").value
ExcelBook.WorkSheets(1).cells(cnt,3).value=https://bbs.csdn.net/topics/rs.fields("TEST_Temp").value
ExcelBook.WorkSheets(1).cells(cnt,4).value=https://bbs.csdn.net/topics/rs.fields("DDM_BIAS").value
ExcelBook.WorkSheets(1).cells(cnt,5).value=https://bbs.csdn.net/topics/rs.fields("DDM_TXPWR").value
ExcelBook.WorkSheets(1).cells(cnt,6).value=https://bbs.csdn.net/topics/rs.fields("TX_PWR").value
ExcelBook.WorkSheets(1).cells(cnt,7).value=https://bbs.csdn.net/topics/rs.fields("TX_ER").value
ExcelBook.WorkSheets(1).cells(cnt,8).value=https://bbs.csdn.net/topics/rs.fields("RX_SEN").value
ExcelBook.WorkSheets(1).cells(cnt,9).value=https://bbs.csdn.net/topics/rs.fields("LOS_AST").value
ExcelBook.WorkSheets(1).cells(cnt,10).value=https://bbs.csdn.net/topics/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")
不報錯，但是沒有生成對應檔案
初入手請大佬知道
uj5u.com熱心網友回復：
路徑問題.自己換個絕對路徑就知道能不能生成了.
uj5u.com熱心網友回復：
既然“不報錯”，那必然是把檔案生成了。
我也同意樓上的說法，你用“相對路徑”，自己都不知道“相對”到哪去了！
用“絕對路徑”一試便知分曉！
或者，也可以在“另存”操作之后，MsgBox 一下 ExcelBook.path（大概是這個屬性吧
）看看它到底保存到哪去了。
uj5u.com熱心網友回復：
不是保存不了，而是不知道保存到哪里去了。uj5u.com熱心網友回復：
上一級目錄有沒有dataExcel？
uj5u.com熱心網友回復：
路徑問題，試試以下：Excelbook.SaveAs(App.Path & "dataExcel\order.xls")
或者
Excelbook.SaveAs(App.Path & "order.xls")
uj5u.com熱心網友回復：
斜杠反了？？？？？？uj5u.com熱心網友回復：
想要上級目錄，你可以嘗試用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就是當前程式的上級目錄了！
uj5u.com熱心網友回復：
也可以用fso的getparentfoldername函式.
uj5u.com熱心網友回復：
保存的代碼不全，還有其他引數： g_Newbook.SaveAs(COleVariant(SaveExcelPath), covOptional,covOptional, covOptional,
covOptional, covOptional, (long)0, covOptional, covOptional, covOptional,
covOptional, covOptional);
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/8866.html
標籤：VBA
上一篇：最新改進財務金額控制元件
下一篇：求助：vbs正則運算式匹配問題