Ｐａｇｅ 100 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ﾌｧｲﾙが開いているかを確認したい ちか 02/9/19(木) 10:28 ┗Re:ﾌｧｲﾙが開いているかを確認したい つん 02/9/19(木) 10:56 ┣Re:ﾌｧｲﾙが開いているかを確認したい 角田 02/9/19(木) 11:48 ┃ ┣Re:ﾌｧｲﾙが開いているかを確認したい ちか 02/9/19(木) 12:53 ┃ ┗フォローありがとうございました つん 02/9/19(木) 12:56 ┗Re:ﾌｧｲﾙが開いているかを確認したい ちか 02/9/19(木) 12:03 ─────────────────────────────────────── ■題名 ： ﾌｧｲﾙが開いているかを確認したい ■名前 ： ちか ■日付 ： 02/9/19(木) 10:28 -------------------------------------------------------------------------
| 検索をかけてはみたのですが、条件が悪いのか引っかからないので 質問させていただきました。 Ａというエクセルブックを閉じる時に、ＢとＣは閉じたいのですが Ｄは閉じたくありません。 ブックのOpen/Closeを確認するソースを教えていただけますでしょうか？ よろしくお願いします。 |
| ちかさん、こんにちは。 >ブックのOpen/Closeを確認するソースを教えていただけますでしょうか？ 指定したブックが開いているかどうか？は以下で確認できると思います。 '============================================== Sub test() Dim strFileName As String On Error Resume Next strFileName = Workbooks("Ａ.xls").Name On Error GoTo 0 If strFileName = "" Then MsgBox "指定されたファイルは開いていません" Else MsgBox "指定されたファイル『" & strFileName & "』は開いています" End If End Sub '============================================== これで、「Ａ.xls」というファイルが開いているかどうかがわかります。 一度お試しくださいませ。 |
| こんにちは。 > On Error Resume Next strFileName = "" > strFileName = Workbooks("Ａ.xls").Name > On Error GoTo 0 事前にクリアしてからにしましょう。 Ａに続いてＢで試したときに､Ａの結果が残ってるので[""]ではない 可能性があります。 実行時エラーによって[""]が書き込まれる事はないです。 |
| ▼角田 さん： 入れ違いになりました〜。 ご忠告ありがとうございます。 早速追加いたします。 ありがとうございました。 |
| 角田さん、こんにちは〜 >こんにちは。 >> On Error Resume Next > strFileName = "" >> strFileName = Workbooks("Ａ.xls").Name >> On Error GoTo 0 >事前にクリアしてからにしましょう。 >Ａに続いてＢで試したときに､Ａの結果が残ってるので[""]ではない >可能性があります。 >実行時エラーによって[""]が書き込まれる事はないです。 あ！そうですよね。 フォローありがとうございました。 |
| ▼つん さん： ばっちり出来ました。 助かりました〜。これでエラーメッセージが出なくなります。 ありがとうございました。 |