請輸入專案類型(網站專案或者應用程式專案)：VB2008
我寫了如下的程式碼、是用來在DB裡撈資料寫入Excel後存檔並開啟用的，但是到了開啟
的步驟的時候，程式總是會出錯說無法取用檔案，但已經確定過檔案是存在的，請大家幫
忙看一下為什麼會這樣？@@
Dim SavePath As String
Dim FolderBrowserDialog1 As New FolderBrowserDialog
FolderBrowserDialog1.ShowDialog()
SavePath = FolderBrowserDialog1.SelectedPath
Dim Fcmd As New Odbc.OdbcCommand
Dim Fdr As Odbc.OdbcDataReader
Fcmd.CommandText = "select * from PIC"
Fcmd.Connection = cnn
Fdr = Fcmd.ExecuteReader
Dim EA As New Microsoft.Office.Interop.Excel.Application
Dim EWorkbook As Microsoft.Office.Interop.Excel.Workbook
Dim ESheet As Microsoft.Office.Interop.Excel.Worksheet
EWorkbook = EA.Workbooks.Add()
ESheet = EWorkbook.ActiveSheet()
While Fdr.Read
'中間處理
End While
Dim excelFileName As String = SavePath & "\20090717.xls"
EWorkbook.SaveAs(excelFileName)
Shell(excelFileName)
EWorkbook.Close()
EA.Quit()
EA = Nothing
有問題的就是Shell(ExcelFileName)那一行…Orz
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.248.17.41