tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: エクセルに結果を貼り付けたい。
投稿日: 2010/08/24(Tue) 15:54
投稿者ミヤ
> > どのセルが選択されたかVB6上で認識するにはどうすればよいのでしょうか?
> VB6上で宣言したエクセルオブジェクトのイベントを取得します。
>
> 当サイト内検索キーワード『Excel Withevents』

お世話になっています。
ここを参考に下を追加したら、自分が選択したシートの(1,C)セルに1を書き込み出来ました。
ただ、自分がやりたいのは、ユーザーがアクティブにしたセルにデータを書き込むことです。
コメント部分を追加すればアクティブのセルが取得できるかと思い、追加しましたが、
「Excel.Cells」の部分で「ユーザー定義型は定義されていません。」とエラーが出ます。
「Excel.Cells」が使えないと思うのですが、アクティブなセルを取得するには
どうすれば良いのでしょうか?
Excel.と入力した後に候補が出ますが、Cellが存在しません。

Private WithEvents xlApp As Excel.Application
Private WithEvents xlWb As Excel.Workbook
Private WithEvents xlWs As Excel.Worksheet
'Private WithEvents xlCl As Excel.Cells

Private Sub Command1_Click()
 Set xlApp = GetObject(, "Excel.Application")
 Set xlWb = xlApp.ActiveWorkbook
 Set xlWs = xlWb.ActiveSheet
 'Set xlCl = xlWs.ActiveCells
 xlWs.Cells(1, "C") = "1"
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。