投稿日 | : 2003/06/26(Thu) 19:47 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: 再現方法 |
ORG.xlsをダブルクリックで開くと起動しているExcel上に開くので終了する場合は
Excelを終了せずにORG.xlsを閉じるなら問題ないかと。
Excelを2重に起動しないと無理なようなので、別途Excelを起動しておく位しか思い浮かびません。
xlApp.Windows("TMP.xls").Visible = False
Dim Ret As Long
Dim MyFile As String
MyFile = Chr$(34) & "C:\Program Files\Microsoft Office\Office\Excel.exe" & Chr$(34)
Ret = Shell(MyFile, vbHide)
End Sub