Excel VBA質問箱 IV

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

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


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

19357 / 76732

←次へ　｜　前へ→


	【62808】何とか自力解決しました♪

ぴかる - 09/9/4(金) 11:55 -


	引用なし

	パスワード

良かったです。解決しました。ありがとうございました。

見て下さった方も沢山お見えになると思うので、内容報告させてもらいます。
AUTO_CLOSEマクロに条件を入れていてそれが影響していました。

変更前
ブック１…Ｄ組立日々管理09-9.xls
Sub AUTO_CLOSE()
　　
　　Application.DisplayAlerts = False　'警告メッセージオフにする
　　If ActiveWorkbook.Name <> "Ｄ組立日々管理ﾏｽﾀｰ.xls" And Mid(ActiveWorkbook.Name, 4, 2) = "日々" Then
　　　　ActiveWorkbook.Save
　　　　ファイル名 = ActiveWorkbook.Name
　　　　パス = "\\133.153.81.190\共有ファイル\ABS組立日々管理\Ｄ組立\" & 年度 & "年度"
　　　　フルパス = パス & "\" & ファイル名
　　　　If Dir(パス, vbDirectory) = "" Then
　　　　　　MkDir パス
　　　　End If
　　　　ActiveWorkbook.SaveAs Filename:=フルパス
　　Else
　　　　ActiveWorkbook.Close SaveChanges:=False
　　End If

End Sub
ブック２…Ｄ組立週報月報09-9.xls
Sub AUTO_CLOSE()
　　
　　If ActiveWorkbook.Name <> "Ｄ組立週報月報ﾏｽﾀｰ.xls" And Mid(ActiveWorkbook.Name, 4, 2) = "週報" Then
　　　　データプロット
　　Else
　　　　ActiveWorkbook.Close SaveChanges:=False
　　End If

End Sub

対策版
ブック１…Ｄ組立日々管理09-9.xls
Sub AUTO_CLOSE()
　　
　　Application.DisplayAlerts = False　'警告メッセージオフにする
　　If ThisWorkbook.Name <> "Ｄ組立日々管理ﾏｽﾀｰ.xls" And Mid(ThisWorkbook.Name, 4, 2) = "日々" Then
　　　　ファイル名 = ThisWorkbook.Name
　　　　Windows(ファイル名).Activate
　　　　ActiveWorkbook.Save
　　　　パス = "\\133.153.81.190\共有ファイル\ABS組立日々管理\Ｄ組立\" & 年度 & "年度"
　　　　フルパス = パス & "\" & ファイル名
　　　　If Dir(パス, vbDirectory) = "" Then
　　　　　　MkDir パス
　　　　End If
　　　　ActiveWorkbook.SaveAs Filename:=フルパス
　　Else
　　　　ActiveWorkbook.Close SaveChanges:=False
　　End If

End Sub
ブック２…Ｄ組立週報月報09-9.xls
Sub AUTO_CLOSE()
　　
　　If ThisWorkbook.Name <> "Ｄ組立週報月報ﾏｽﾀｰ.xls" And Mid(ThisWorkbook.Name, 4, 2) = "週報" Then
　　　　ファイル名 = ThisWorkbook.Name
　　　　Windows(ファイル名).Activate
　　　　データプロット
　　Else
　　　　ActiveWorkbook.Close SaveChanges:=False
　　End If

End Sub

変更内容
　IF分のActiveWorkbookをThisWorkbookに変更
以下を追加
　ファイル名 = ThisWorkbook.Name
　Windows(ファイル名).Activate

今回もとてもいい勉強になりました。またまたＶＢＡのおもしろさを実感しました。めちゃ登場回数が減っていますが、今後ともよろしくお願いします。

0 hits

▼

【62803】２つのブックのAUTO_CLOSEを有効に ぴかる 09/9/3(木) 19:05