| |
▼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 & "別インスタンスで作成したブックのセルＡ１と比較してください"
End With
End With
End With
End Sub
こんなことが出来ればよいのですか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
