投稿日 | : 2003/06/26(Thu) 17:57 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 再現方法(訂正) |
>
> 'コピーファイルを開く
> Set xlBook = xlApp.Workbooks.Open(strTmpFileNm)
>
> End Sub
下記のようにして見てはどうでしょうか?
'コピーファイルを開く
Set xlBook = xlApp.Workbooks.Open(strTmpFileNm)
xlApp.Windows("TMP.xls").Visible = False
'xlApp.Windows(1).Visible = False
End Sub