現在、VB2008でフォームを作成し、DataGridViewなどの情報を
Excelに出力するというプログラムを設計したのですが、
デバックでテスト動作を行うと、問題なく実行できるのですが、
いざ、exeファイルをデスクトップに置き、実行すると
「指定されたファイルが見つかりません。」というエラーが
出てしまいます。
開こうとしているのは、既存のExcelファイルなのですが、
こちらが、Excelを開く部分のソースです。

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
'---------------------
' EXCELファイルを開く
'---------------------
xlApp = CreateObject("Excel.Application") 'Application生成
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
xlBook = xlBooks.Open("C:\TEMP\テスト.xls")

xlApp.Visible = True 'EXCELの表示
xlSheet = DirectCast(xlBook.ActiveSheet, Excel.Worksheet) 'Worksheet

少し見づらいかもしれないのですが、まずObject型で宣言し、
その値に、Excel.Applicationなどを代入し、
その中で、マイコンピュータの中のTEMPというフォルダから
テストというタイトルのExcelを立ち上げるという形になります。
他のサイトやこちらの質問掲示板なども見たのですが、
同じ結果になってしまうため、解決策が分からない状況と
なっています。
どなたか、原因か、対策方法が思いつく方は
ご教授願えないでしょうか、
よろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

突っ込みどころ満載なコードでもあるんですが、


デバッグじゃなくリリースでビルドしてみるとか、
とりあず、その開く部分の関数にtrycatch入れて確認してみるとか。

例。
Sub XlsFileOpen()
Try
' エクセル開く処理

Catch ex As Exception
' なんかエラーあれば内容を表示する
MessageBox.Show(ex.Message)
End Try
End Sub
    • good
    • 0

Exeファイルと同じ場所にDLL等のファイルがありませんか?


あるならそれも同じフォルダに置かないと動かないですが…。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング