投稿日	： 2003/01/25(Sat) 00:42
投稿者	： 上総ノ助
ＵＲＬ	：
タイトル	： 任意に選択したセルに出力

お手数ですが教えてもらいたいことがあります。
VBで他のアプリケーションから取得した値をExcelの
任意(VB側で指定しない)セルに出力したいのです。

このホームページを参考にしてコードを書きましたが
うまくいきません。

Private Sub Command1_Click()
    ' Excel の Application、Workbook および Worksheet オブジェクトに対
   ' するオブジェクト変数を宣言します。
   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   Dim R, C As Integer

   ' 変数にオブジェクトの参照を代入します。Add メソッドを使って
   ' 新規 Workbook と Worksheet オブジェクトを作成します。
   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets.Add
   R = xlApp.ActiveCell.Row
   C = xlApp.ActiveCell.Columns
   lbl1.Caption = R + C
   xlApp.Visible = True

    ' Excel のセルに値を代入します。
    xlSheet.Cells(R, C).Value = "12"　　'制作中のために簡単な値
    
End Sub

という具合です。
まず、実行すると'実行時エラー1004'
アプリケーション定義またはオブジェクト定義エラーです。となります。
また、BOOK1を開いていたのにBOOK3のSheet4のA1がアクティブになっている？？
これはエラーが起きるたびにBOOKが開くという現象ですか？

ちなみに　xlSheet.Cells(R, C).Value = "12"のR、Cに整数値を入れると
そのセルに12がはいります。　　
よろしくお願いします。

★ - 任意に選択したセルに出力 - 上総ノ助 01/25-00:42No.2421
• Re: 任意に選択したセルに出力 - 花ちゃん 01/25-02:02 No.2422
  • Re^2: 任意に選択したセルに出力 - 上総ノ助 01/26-00:05 No.2430
    • Re^3: 任意に選択したセルに出力 - 花ちゃん 01/26-01:00 No.2431
      • Re^4: 任意に選択したセルに出力 - 上総ノ助 01/27-12:46 No.2435