VB6にてエクセルのセルに貼り付けで・・・

質問

お願いします。VB6にてエクセルの任意のセルへデータを貼り付けたいのですが、そのエクセルにauto_openが含まれていてフォームを開くようになっています。

Option Explicit
Dim objExcelApp As Workbook
----------------------------
strExcelFile = "C:\A.xls"
strExcelSheet = "Sheet1"
objExcelApp.ActiveSheet.Cells(1, 1).Value = "A"

ではフォームが開いて更新ができません。エクセルを開かずに値をセルへ代入できないものでしょうか？
どうかお願いします。

回答No.1

pen_pen_pen · ベストアンサー

実験したんですが、できてしまいました。
質問文のソースはエクセルを起動するところが書いてありませんが、そのあたりはどうなっているのでしょうか？
セルに値を入れると何かメッセージが出たりしますか？

一応私が実験したソースを載せますね。
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("EXCEL.Application")
Set xlBook = xlApp.Workbooks.Open("C:\tmp\Book1.xls")
Set xlSheet = xlBook.Sheets(1)
xlSheet.Range("A1").Value = "A"
xlBook.Save
xlBook.Close
xlApp.Quit
です。
開くファイルの
C:\tmp\Book1.xls
は、ただの新規のEXCELファイルに
フォームUserForm1を作り、
標準モジュールに
Sub Auto_open()
UserForm1.Show
End Sub
書きました。
状況を勘違いしているようでしたらご指摘下さい。

お礼

お礼が送れて申し訳ありません。大変助かりました。ありがとうございました。