Excel VBA質問箱 IV

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

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


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

12905 / 76734

←次へ　｜　前へ→


	【69342】Re:ブックを開く

SK63 - 11/6/28(火) 14:57 -


	引用なし

	パスワード

遅いかもですが、、新しく開いたBookがアクティブブックになるので
Call 初期設定SH　で始のBookをSETしてからOPEN、、
でWBK3に開いたブックをSET指定すればOKですが。
ｾﾙを指定するには、WBK3.SH1.Range(A1)~ のようにしていします、
ブックがいくつも開いたときには必ずSET指定をするようにしておけば
間違えて、意図しないブックを変えてしまうことは防げます
（指定しないとアクティブなブックのｼｰﾄに動作します）
開いたブックをアクティブにしない。ではなくブックを指定しする
という考えです。

Sh.range("A1)=100　’vbaの書いてあるブックのｼｰﾄ１へ　　
sh1.RANGE("a1")=10　’　開いたブックのｼｰﾄ１へ

Sub OP_file()

　　Call 初期設定SH

　　 Workbooks.Open Filename:=BasePath & strFILENAME’開くファイル
　　 Set WBK3 = ActiveWorkbook
　　 WBK3.Activate
　　 WBK3.Sheets(1).Activate
　　 Set SH1 = WBK3.Worksheets(1)

End Sub

Sub 初期設定SH()

　 Set WBK1 = ThisWorkbook　　　' 自ブック
　 Set SH = WBK1.Worksheets(1)
　 mypath = ThisWorkbook.Path & "\"
　 BasePath = ThisWorkbook.Path & "\原稿\"
　
　
End Sub

▼ＶＢＡ初心者さん：
>▼UO3 さん：
>▼neptune さん：
>
>お返事大変遅くなりました。
>
>色々やってみたのですが、
>どうもできないので、違う方法を考えることにしました。
>
>アドバイスいただきありがとうございました。

11 hits

▼

【69315】ブックを開く ＶＢＡ初心者 11/6/24(金) 3:00