投稿日 | : 2003/06/26(Thu) 20:22 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: お礼 |
> やっぱり、別途起動しておくぐらいしかないですかね?
TMP.xlsの終了を監視して終了されたら再起動するとか。
Private Sub Timer1_Timer()
If xlApp.Workbooks.Count = 0 Then
Dim strOrgFileNm As String 'オリジナルファイル
Dim strTmpFileNm As String 'コピーファイル
'ファイル名設定
strOrgFileNm = App.Path & "\" & WCON_ORG_FILE
strTmpFileNm = App.Path & "\" & WCON_TMP_FILE
Set xlBook = Nothing
Set xlApp = Nothing
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(strTmpFileNm)
xlApp.Windows("TMP.xls").Visible = False
End If
End Sub