投稿日 | : 2005/02/14(Mon) 20:44 |
投稿者 | : アイ |
Eメール | : |
URL | : |
タイトル | : 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