(VB初心者) VB起動時既に起動されているExcelの情報

解決済

質問者：mmac
質問日時：2009/04/23 11:38
回答数：3件

VisualBasic 6.0 初心者です。
既に起動しているExcelの後にVisualBasicを立ち上げた場合、
既に起動しているExcelの情報を得ることが出来るのでしょうか？
やりたい事は
Excel起動⇒VB起動⇒Excelのセルを選択⇒そのセルに入力されている値
を取得。
VB起動⇒Excel起動の場合はActiveCellの値を取得出来たのですが
既に起動しているExcelの場合エラーになってしまいます。
お手数ですが、ご教授願います。

Private Sub コマンド1_Click()
MsgBox ActiveCell
End Sub

'Form_Load時にこれを実行しないと開いたExcelのアクティブセル値を得られない？？
Private Sub Form_Load()
MsgBox ActiveCell
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.1

回答者： imogasi
回答日時：2009/04/23 12:31

なぜＥｘｃｅｌＶＢＡでやらないのか。

＞VB初心者) と言ってながら、難しい途を選び、質問している。
そういう場合は自分で勉強が原則でしょう。他ソフトとの連携など
初心者には難しいと思ったほうが良い。
質問の記述を広げて、全体的にどういうことをやりたいのか。なぜＶＢが後から起動するのか。他人（素人）に使ってもらうとき、ＶＢを起動など操作の１ステップに入るのは、適当でないのでは。

- 0
- 件

通報する

この回答へのお礼

回答有難う御座います。
AccessVBAを主に進めてExcelVBAを少しかじった時点で、一度VisualBasicで
Excel操作を作ってみたいと思い深みにはまりました。
回答の通り、初心者が難しい途を選び質問しています。
原則・難しいと決め付けされると、ここで終わってしまいます、
このようなアドバイスも無知な私にとって大きなステップUPになります。
不快な思いをさせてしまった事はすみませんでした。

通報する

お礼日時：2009/04/24 11:47

No.2ベストアンサー

回答者： n-jun
回答日時：2009/04/23 14:13

http://okwave.jp/qa4895039.html

と照らし合わせても、提示されているコードをVB6.0で行なうとエラーになり、VBAであれば取得できるようなんです。

コードがVB6.0に書かれているのかVBAに書かれているのか、わからないのです。
⇒質問はExcelVBAの事のように思えてしまいます。

一応VB6.0でExcelの起動確認と値取得をコマンドボタンで実行したものは、

Private Sub Command1_Click()
Dim xlApp As Object

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")

If xlApp Is Nothing Then
MsgBox "Excelは起動してません"
Else
MsgBox "Excelは起動してます" & vbLf & xlApp.ActiveCell
End If

On Error GoTo 0

Set xlApp = Nothing
End Sub

でした。
⇒Form_Loadでは何もしてません。

- 0
- 件

通報する

この回答へのお礼

n-jun 様 imogasi 様共に度々の回答有難う御座います。
質問不足で失礼致しました。
コードはVB6.0のフォームに対して書いています。
しかもロード時
>MsgBox ActiveCell
ではエラーでした。On Error Resume Next追加でエラー無視していました
これは強制的にExcelの何か操作をしてしる？？
この後立ち上げたExcelから、ActiveCellのみで値を取得出来たのは
不思議ですが間違えた方法でした。
＞Set xlApp = GetObject(, "Excel.Application")
＞xlApp.ActiveCell
ゲットしたアプリをアクティブセルの前に指定してあげれば良いのですね、解決です。

助かりました、有難う御座います。

通報する

お礼日時：2009/04/24 14:21