投稿日 | : 2005/02/09(Wed) 20:45 |
投稿者 | : アイ |
Eメール | : |
URL | : |
タイトル | : 既存Excelファイルの印刷 |
はじめまして、アイと申します。
本サイト、既存Excelファイルの操作を参考に、
印刷を実行しようとしたところ、実行時エラーが
必ず出て困っております。
エラーは2147417843で、内容を調べると
hhttp://support.microsoft.com/default.aspx?scid=kb;ja;186063
アプリケーションエラーで、
An outgoing call cannot be made since the application is
dispatching an input-synchronous call
というコメントがMicrosoftには載っておりました。
以下コードです。(ほぼそのままですが)
Private Sub Command1_Click()
On Error Resume Next
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
この行で必ずエラー発生
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.SaveAs "c:\Test.xls"
'終了処理
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
**以上コード**
参照設定はしてあり、何度再起動してトライしても
同じでした。
ほぼサンプルコードどおりなので、環境を。
OS:Windows2000Sp4
OFFICE2000(Excel2000)
VB5.0
何か調べてみる点などありましたらご教示ください。
よろしくお願いします。