投稿日	： 2005/02/14(Mon) 20:44
投稿者	： アイ
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^8: 既存Excel・・・

こんばんは

解決しました。
というか原因は不明なのですが、色々模索しているなかで
一番はじめのコードのままで、
「Excelを起動してファイルを読み込み、
印刷する」部分をまるごとタイマーの処理にして、
通信経由でデータが変化する部分にはタイマーの
EnableをTrueにしただけなのですが。

これが直接Excelファイルの処理をData1_Changeに
書いていると、ずっとアプリケーションエラーが
出ていたのです。
違いがわからないのですが。

Private Sub Timer1_Timer()
　　Dim objExcelApp　 As Workbook
　　Dim strExcelFile　As String
　　Dim strExcelSheet As String

　　strExcelFile = "C:\test.xls"
　　strExcelSheet = "sheet1"
　　Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")
　　objExcelApp.Worksheets(strExcelSheet).PrintOut
　　objExcelApp.Windows(1).Visible = True
　　objExcelApp.Save
　　objExcelApp.Application.Quit
　　Set objExcelApp = Nothing

　　Timer1.Enabled = False　　
End Sub

Private Sub Data1_Change()

　　Timer1.Enabled = True

End Sub

★ - 既存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