|
自作関数で、別のブックに作成した数値表を参照して計算を実行するFunctionを作成してます。
参照先のブックは常に開かれた状態ではなく、Functionが実行される時に開く方法をとりたいと考えています。
が、参照先の特定ブックをFunction中に開くことができません。
何か良い方法が無いものでしょうか?
ちなみに、以下のコードを試してみましたがダメでした。
1.Functionコード中に、
Dim flag As Boolean, Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = "Sansyo.xls" Then flag = True
Next Wb
If Not flag = True Then
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Sansyo.xls"
End If
2.Functionコード中には、
Fl_Opn
として、以下のSubプロシージャを別に記述する
Sub Fl_Opn()
Dim flag As Boolean, Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = "Sansyo.xls" Then flag = True
Next Wb
If Not flag = True Then
Application.Dialogs(xlDialogOpen).Show arg1:="E:\Sansyo.xls"
End If
End Sub
どちらも Application.Dialogs(xlDialogOpen).Show が無視されて先に進んでしまいました(T T)
どなたか、ヘルプお願いします。
|
|