tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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シート

なにか宣言が足りない等あるのでしょうか・・・
コレが出来ずに悩んでいます・・
どなたかご教授いただけると幸いです。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。