Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72153 / 76738

←次へ　｜　前へ→


	【9070】Re:ScreenUpdatingについて

もとみ - 03/11/17(月) 16:00 -


	引用なし

	パスワード

▼しのしのさん：
>今Excelが手元にないので、いい加減ですが、
>
>提案1　GetObject関数で取得
>Sub dd()
>　　Dim f As Excel.Workbook
>　　Set f = GetObject(OpenFile1)
>End Sub
>取得したブックｆは非表示となるはず。詳しくはヘルプを見てください。

　↑
この方法でやってみました。確かに出来るのですが、
この非表示にしたファイルのファイル名を取得したい場合には
どうしたらよいのでしょうか？

>PS
>質問とかけはなれているのですが。
>>　　OpenFile1 = Sheet1.TextBox1.Value　　　　　 ' ファイルのフルパス取得
>>　　OpenFile2 = Sheet1.TextBox1.Value　　　　　 ' ファイルのフルパス取得
>で同じコントロール値を参照にしていて、2つめ開くときに、エラーになりませんか？
>（それともこの間に他の処理が入っているのかな？）
>
>新しいブックを開いていて
>>　　OpenFile2 = Sheet1.TextBox1.Value
>Sheet1オブジェクトは、ご希望とおりのシートオブジェクトを参照している？
　　↑
すみません。書き方が違ってました。
正確には、

Dim OpenFile1 As String　　　　　　 'ファイル１のフルパス
Dim OpenFile2 As String　　　　　　 'ファイル２のフルパス
　　
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 はエクセルのファイル毎に
指定した方が良いのでしょうか？

0 hits

▼

【8965】ScreenUpdatingについて もとみ 03/11/12(水) 11:15