|
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
>
>こんなことが出来ればよいのですか?
|
|