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

タイトル ： Re^2: Excelのプロセス
投稿日： 2007/03/05(Mon) 13:46
投稿者： Jack
よねKENさん、魔界の仮面弁士さん初めまして
早速の御教授ありがとうございます。
お二方のアドバイスを参考に以下のようなソースに変更してみました
が、巧くいきません。
①でエラーが出る為、以降のソースが正しいかどうかも解りません
それと、魔界の仮面弁士さんのアドバイスにもありますWorkBooksの開放にあたり「ReleaseComObject」メソッドが表示されない為参照の仕方がおかしいとは思いま
すが是非宜しくお願いします。

        Dim objExcel As Excel.Application
        Dim objBooks As Excel.Workbooks
        Dim objBook As Excel.Workbook
        Dim objWSheets As Excel.Worksheets
        Dim objWSheet As Excel.Worksheet
        Dim objRange As Excel.Range
        Dim strName As String  '開くファイルのパスを入力する

        MsgBox("出力する帳票を選択して下さい！",MsgBoxStyle.Information, "確認")
        objExcel = CreateObject("Excel.Application")
        strName = objExcel.GetOpenFilename("Excelファイル (*.xls), *.xls")
        objBooks = objExcel.Workbooks()
        objBook = objBooks.Open(strName)
        objWSheets = objExcel.Worksheets() '①ココでエラーが出ます
        objWSheet = objWSheets("Sheet1")
        objRange = objWSheet.Cells(1, 1)
        objRange.Value = "TestTest"

        objRange = Nothing
        objWSheet = Nothing
        objWSheets = Nothing
        objBook.Close()
        objBooks.Close()
        objExcel.Quit()
        MsgBox("出力終了", MsgBoxStyle.Information, "報告")
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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