投稿日	： 2005/02/09(Wed) 20:45
投稿者	： アイ
Ｅメール	：
ＵＲＬ	：
タイトル	： 既存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

何か調べてみる点などありましたらご教示ください。
よろしくお願いします。

★ - 既存Excelファイルの印刷 - アイ 02/09-20:45No.2065
• Re: 既存Excelファイルの印刷 - 花ちゃん 02/09-21:39 No.2066
  • Re^2: 既存Excelファイルの印刷 - アイ 02/10-09:49 No.2074
• Re: 既存Excelファイルの印刷 - 魔界の仮面弁士 02/10-15:44 No.2078
  • Re^2: 既存Excelファイルの印刷 - アイ 02/10-20:23 No.2083
    • Re^3: 既存Excelファイルの印刷 - アイ 02/11-16:38 No.2084
      • Re^4: 既存Excelファイルの印刷 - 花ちゃん 02/12-09:08 No.2085
        • Re^5: 既存Excelファイルの印刷 - Wendy 02/14-02:45 No.2098
          • Re^6: 既存Excelファイルの印刷 - アイ 02/14-12:45 No.2106
            • Re^7: 既存Excelファイルの印刷 - Wendy 02/14-14:21 No.2108
              • Re^8: 既存Excel・・・ - アイ 02/14-20:44 No.2122
                • Re^9: 既存Excel・・・ - 花ちゃん 02/14-21:44 No.2123
                  • Re^10: 既存Excel・・・ - アイ 02/15-07:55 No.2129
                    • Re:既存Excel - 花ちゃん 02/15-08:58 No.2131
                      • Re^12: 既存Excelファイルの印刷 - アイ 02/15-11:05 No.2137
                • Re: 既存Excelファイルの印刷 - K.J.K. 02/15-10:49 No.2136
        • Re^5: 既存Excelファイルの印刷 - アイ 02/14-12:28 No.2105