タイトル : Re^5: VB6参照設定(修正) 投稿日 : 2011/12/04(Sun) 22:27 投稿者 : 花ちゃん
> 「Microsoft Office 11.0 Object Library」を参照していなくても > 問題ないでしょうか。 その辺の機能に依存するコードを使っていないのならExcel の参照設定だけで問題ないかと 思います。 その辺を確認する意味でもエラーの発生した部分のコードのみで確認して原因を特定する 必要があるかと思い前回のような提案をしたのです。 (本当にその部分が原因でエラーが発生しているのか切り分ける為にも。違う部分でエラーが 発生しているような気がしたものですから) 開発環境で問題が無く、実行環境でエラーが発生するなら、環境の違いをひとつひとつ 調べて潰して行くのが一番の早道かと思いますよ。 例えば、エラーが発生している部分のコードをコメントにしたらエラーがでなくなったとか、 違うExcel ファイルで試したらエラーがで無くなったとか、Excelを表示してから 問題の部分を実行したら、直ったとか。 (投稿されたコードと実際に使っているコードが違うようなのでその辺の確認をする意味でも objXlsApp.CommandBars("Worksheet Menu Bar").Enabled = True の部分を実行するだけの コードで試してほしかったので) Command5 内でエラーが発生しているのなら、勝手にエラーの個所を推測しないで、Command5 内の全てのコードを投稿して頂かないと...。 Data Formatting Object Library に起因していると言う事はありませんか? 下記を実行して同じエラーがでるのかどうかを試して見て下さい。 (Excel の参照設定をしてください。) Option Explicit Private Sub Command1_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) xlApp.Visible = True xlApp.CommandBars("Worksheet Menu Bar").Enabled = True Set xlSheet = Nothing xlBook.Close Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing End Sub 又は、参照設定せずに下記ではどうなるのか Option Explicit Private Sub Command1_Click() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True xlApp.CommandBars(1).Enabled = True xlBook.Close Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing End Sub |