|
おはようございます。
返信が遅くなり大変申し訳ございません!
>別インスタンスのApplicationを作成して
>そこから開けばいいと思います。
>但し、自分のブックは編集できませんよ。
>例
>Private xlApp As Application
>
>Private Sub CommandButton1_Click()
> Dim strFname As String
> strFname = Application.GetOpenFilename
> If strFname = "False" Then Exit Sub
> If xlApp Is Nothing Then
> Set xlApp = New Application
> xlApp.Visible = True
> End If
> xlApp.Workbooks.Open strFname
>End Sub
上記のサンプルコードを試してみたところ、
私のイメージ通りの動きが実現できました!
また、自分のブックが操作できないということでしたが、
画面下のタスクバーをクリックし、
自分のブックをアクティブにすると操作は可能でした。
サンプルコードの内部をもう一度確認し、自分のものにしたいと思います。
とても助かりました。
ありがとうございました!
|
|