作者mindscold (********)
看板Visual_Basic
标题[.NET] 无法取用
时间Fri Jul 17 16:03:27 2009
请输入专案类型(网站专案或者应用程式专案)：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