Excel VBA質問箱 IV

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

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


28569 / 76732 ←次へ | 前へ→

【53457】Re:別インスタンス間でのセルの参照
質問  yhar  - 08/1/14(月) 12:53 -

引用なし
パスワード
   ichinoseさん

いつも貴重なアドバイスをありがとうございます。
さて、御教示頂いた下記のコードでは
●mainから開いた別インスタンスのワークシートのセルを
 「With」を使って一連の記述で参照する。
と言う形になっています。

具体的な仕様も書かずに恐縮ですが、やりたいことは
●既に起動している別インスタンスのワークシートのセル
 の値を
●一定の周期で参照して取り込む
と言うことです。

もう少し具体的?に言うと

Dim app As Application
Set app = 開いている別インスタンスのファイルの名前
Range("a5").Value = app.Worksheets("sheet1").Range("a1").Value

と言った記述で参照出来ないかと言うことです。
ご提案のコードを見る限り出来そうな気がしますが、上のSetとDimの
ところをどう表記して良いのか… 基本が分かっていないのが良く分
かる今日この頃です。

ちなみに下記のコードで別インスタンス起動をしています。
Dim Myapp As Object
Set Myapp = CreateObject("excel.Application")
  With Myapp
    .Visible = True
    .Workbooks.Open ThisWorkbook.Path & "\ura.xls"
  End With

▼ichinose さん:
>▼yhar さん:
>こんばんは。
>具体的な仕様を提示してほしいのですが(極簡単な)
>
>新規ブックの標準モジュールに
>'===================================================
>Sub main()
>  Dim app As Application
>  With CreateObject("excel.application")
>    .Visible = True
>    With .Workbooks.Add
>     With .ActiveSheet
>       .Range("a1").Value = "別インスタンスのExcel上のブックに書き込み"
>      
>       Range("a5").Value = .Range("a1").Value
>       AppActivate Application.Caption
>       DoEvents
>       MsgBox "別インスタンスのセルの値を参照できました" & _
>          vbCrLf & "別インスタンスで作成したブックのセルA1と比較してください"
>      
>       End With
>     End With
>    End With
>End Sub
>
>こんなことが出来ればよいのですか?
1 hits

【53431】別インスタンス間でのセルの参照 yhar 08/1/10(木) 17:07 質問
【53433】Re:別インスタンス間でのセルの参照 ichinose 08/1/10(木) 22:34 発言
【53457】Re:別インスタンス間でのセルの参照 yhar 08/1/14(月) 12:53 質問
【53459】Re:別インスタンス間でのセルの参照 ichinose 08/1/14(月) 17:36 発言
【53460】Re:別インスタンス間でのセルの参照 yhar 08/1/14(月) 18:46 お礼

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