|
皆さん今晩は、ちんといいます
> xlApp.Visible = True 命令の下に、
MSGBOX xlApp.Application.Cells(Target.Row, 1).Value を入れてみて下さい。
▼VB初心者 さん:
>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 xlApp.Application.Cells(Target.Row, 1).Value
※この命令を追記すれば、エクセルから値が取得・書換えもできるはずです。
ただし、Excel表のActiveになってる画面からの取得になります。
以上、参考までに・・・
> 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
|
|