投稿時間：2004/11/10(Wed) 23:23
投稿者名：Excel素人
ＵＲＬ ：
タイトル：VB Excel起動処理
いつもこちらを参考にしています。
VB6にてExcelブックの更新処理のプログラムを作成しています。
Public sub abc( sFileName as string )
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open sFileName
Set xlSheet = xlBook.Worksheets(1)
' Excel のセルに値を代入します。
xlSheet.Cells(1, 1).Value = "12"
xlSheet.Cells(2, 1).Value = "34"
'いろいろな処理（ファイルのクローズ等・・）
' Quit メソッドを使って Excel を終了します。
xlApp.Quit
' オブジェクトを解放します。
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End sub
上記のような処理を行っていますが、CreateObjectでExcelを起動最中に
Excelブックをエクスプローラ等からダブルクリックすると、VBから起動
したExcelが表示され、そのブックも開かれるのですが、VBで開いている
ブックも表示され、セルへのデータの書込みやセルのカット＆ペースト
作業等が表示され困っています。
処理に１〜２分かかるのですが、その間Excelの操作を行えません。
何か解決策はあるものでしょうか？
宜しくご指導下さい。
|