タイトル : EXCELファイルが開けない 投稿日 : 2004/07/12(Mon) 17:07 投稿者 : ラッシー
[OSのVer]:Windows2000 [VBのVer]:VB.NET 始めまして。 プログラミングを始めて2年、VB.netは初挑戦のラッシーと申します。 現在、データベースから読込んできたレコードを、EXCELにはきだすといったようなことをしています。 Private Function EXCELwrite() As String Dim boOpenExcel As Boolean Try Dim strExcelPath As String EXCELwrite = "" strExcelPath = pubGetAccCopy("test.xls") prvObjXLApp = CreateObject("Excel.Application") boOpenExcel = False With prvObjXLApp .Visible = False ☆☆☆☆☆ .Workbooks.Open(FileName:=strExcelPath, ReadOnly:=False) boOpenExcel = True prvObjXLSheet = .Workbooks(1).Worksheets(1) prvObjXLSheet.Copy(After:=prvObjXLSheet) prvObjXLSheetSample = .Workbooks(1).Worksheets(2) 'ここにレコード内容をEXCELに記述する処理 .DisplayAlerts = False .Workbooks(1).Worksheets(2).Delete() .ActiveWorkbook.Save() .DisplayAlerts = True .Quit() boOpenExcel = False End With Catch ex As Exception 'エラー処理 Finally If boOpenExcel Then prvObjXLApp.Quit() End If prvObjXLSheet = Nothing prvObjXLSheetSample = Nothing prvObjXLApp = Nothing End Try End Function なぜか☆☆☆☆☆の個所でエラーで落ちてしまうのです。 err.number : 438 err.description : メンバが見つかりません。 これは、うまく開けていないということになるのでしょうか? 下の3つは宣言はもちろんしてあります。 Private prvObjXLApp As Excel.Application 'Excelアプリケーション Private prvObjXLSheet As Excel.Worksheet 'Excelシート Private prvObjXLSheetSample As Excel.Worksheet 'Excelシート なにか宣言が足りない等あるのでしょうか・・・ コレが出来ずに悩んでいます・・ どなたかご教授いただけると幸いです。 |