VB6でのExcel.Applicationの定義？ (ID:142315)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > ユーザー定義型は定義されていません そふと９９さんの書き込みのとおりです。 参照設定行ってください。 ちなみに、ＶＢ６で動かすには このエラー以外にもエラーだらけです。 > xlApp = CreateObject("Excel.Application") Set xlApp = CreateObject("Excel.Application") が正解 > xlbook = xlApp.Workbooks.Open(file_pn) こちらも Set が必要 > xlbook = CType(xlApp.Workbooks.Add, Excel.Workbook) この「CType」って何ですか？ＶＢ６にはないと思います。 > xlApp.Quit() xlApp.Quit が正しい オブジェクトを解放する際も Set が必要です。 下記サイトに、ＶＢ６でエクセルを扱う方法が書かれています。 ご参考まで。 ttp://hanatyan.sakura.ne.jp/vbhlp/excelframe.htm エクセルとは関係ない部分ですが、もう少しプログラムを 改良できると思います。 たとえば、 If hide_f = True Then xlApp.Visible = False Else xlApp.Visible = True End If としていますが、 xlApp.Visible = Not hide_f とすればいいのではないでしょうか？ あと引数を ByVal にする必要はないのでは？ ByRef と ByVal の違いはわかりますか？