Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


65645 / 76734 ←次へ | 前へ→

【15662】VB6からExcleの値を使いたい
質問  VB初心者  - 04/7/1(木) 18:15 -

引用なし
パスワード
   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
0 hits

【15662】VB6からExcleの値を使いたい VB初心者 04/7/1(木) 18:15 質問
【15663】Re:VB6からExcleの値を使いたい IROC 04/7/1(木) 18:23 回答
【15666】Re:VB6からExcleの値を使いたい VB初心者 04/7/1(木) 18:44 お礼
【15664】Re:VB6からExcleの値を使いたい ちゃっぴ 04/7/1(木) 18:28 回答
【15665】Re:VB6からExcleの値を使いたい VB初心者 04/7/1(木) 18:42 お礼
【15696】Re:VB6からExcleの値を使いたい ちん 04/7/2(金) 21:58 回答
【15700】Re:VB6からExcleの値を使いたい 初心者 04/7/3(土) 11:38 質問
【15704】Re:VB6からExcleの値を使いたい IROC 04/7/3(土) 12:45 回答
【15710】Re:VB6からExcleの値を使いたい ちん 04/7/3(土) 17:07 回答
【15711】Re:VB6からExcleの値を使いたい 初心者 04/7/3(土) 18:08 お礼

65645 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free