|
▼しのしの さん:
>今Excelが手元にないので、いい加減ですが、
>
>提案1 GetObject関数で取得
>Sub dd()
> Dim f As Excel.Workbook
> Set f = GetObject(OpenFile1)
>End Sub
>取得したブックfは非表示となるはず。詳しくはヘルプを見てください。
↑
この方法でやってみました。確かに出来るのですが、
この非表示にしたファイルのファイル名を取得したい場合には
どうしたらよいのでしょうか?
>PS
>質問とかけはなれているのですが。
>> OpenFile1 = Sheet1.TextBox1.Value ' ファイルのフルパス取得
>> OpenFile2 = Sheet1.TextBox1.Value ' ファイルのフルパス取得
>で同じコントロール値を参照にしていて、2つめ開くときに、エラーになりませんか?
>(それともこの間に他の処理が入っているのかな?)
>
>新しいブックを開いていて
>> OpenFile2 = Sheet1.TextBox1.Value
>Sheet1オブジェクトは、ご希望とおりのシートオブジェクトを参照している?
↑
すみません。書き方が違ってました。
正確には、
Dim OpenFile1 As String 'ファイル1のフルパス
Dim OpenFile2 As String 'ファイル2のフルパス
Application.ScreenUpdating = False
OpenFile1 = Sheet1.TextBox1.Value
Workbooks.Open OpenFile1
OpenfName1 = ActiveWindow.Caption
ActiveWindow.Visible = False
OpenFile2 = Sheet1.TextBox2.Value
Workbooks.Open OpenFile2
OpenfName2 = ActiveWindow.Caption
ActiveWindow.Visible = False
Application.ScreenUpdating = True
となっています。
シートのテキストボックスにあるフルパスを取得して、
ファイルをOPENし、ファイル名を取得して、非表示にしています。
追加の質問になりますが、
Application.ScreenUpdating はエクセルのファイル毎に
指定した方が良いのでしょうか?
|
|