|
VB6からExcleを表示させて任意の行をアクテイブにして番号を取得して
各セルの値をVB6でしたいのですがどの様にすればできるのでしょうか
フアイル名は指定しないのでExcel表示の後フアイル名を指定してデ−タ表示
しています。Cells(Target.Row, 1).Valueの値をVB6で使用したいのです
VB6で変数を設定してもVBでは無視されてしまいます。
説明がわかりずらいでしょうがどなたかお教えください。
使用環境 VB6(SP5) Excle 2002(SP3)です
VB6で
Private Sub Command3_Click() 'Excleファイルを開く
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
MsgBox " eee" '--- Excle画面を表示しておく為
xlApp.Application.Quit
Set xlApp = Nothing
Set xlBook = xlApp.Workbooks.open("c:\aaa.xls")
End Sub
VBで
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mo As String
'指定したセルの値を表示
MsgBox Cells(Target.Row, 1).Value: MsgBox Cells(Target.Row, 2).Value
End Sub
|
|