VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 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の操作を行えません。
何か解決策はあるものでしょうか？
宜しくご指導下さい。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -