こちらでお世話になった者です。その節はありがとうございました。
http://okwave.jp/qa3972230.html
他のブックが開いているとエラーになるので、フォームのブックが開いていたら、
マクロの最初に閉じてしまいたいと思います。
dbase.xls
formフォルダ
001.xls
002.xls
003.xls
のようなフォルダ構造になっていて、001~003.xlsは入力フォームです。
dbase.xlsを開いて、マクロを貼り付けたボタンをクリックすると、すべてのフォームの
データがdbase.xlsに取り込まれます。
↓のような感じで、最初にメッセージが表示されるようにしたのですが、
自分以外の、formフォルダにあるブックが開いていたらそれをすべて閉じる
方法を教えていただけますか。
Sub data_torikomi()
MsgBox ("開いている他のエクセルブックをすべて閉じてください")
Dim Fn As String
Dim myPath As String
Dim dbBkSh As Worksheet
Dim i As Long
Set dbBkSh = Workbooks("dbase.xls").Worksheets("一覧表")
myPath = ThisWorkbook.Path & "\"
Fn = Dir(myPath & "form\*.xls")
i = 1
……
No.2ベストアンサー
- 回答日時:
こんばんは。
ちょっと考えてみました。
Sub data_torikomi()
Dim wb As Workbook
Dim Fn As String
Dim myPath As String
Dim dbBkSh As Worksheet
Dim i As Long
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name And _
InStr(1, wb.FullName, "form\", 1) > 0 Then 'formを検索
wb.Close False '閉じる
End If
Next wb
myPath = ThisWorkbook.Path & "\"
Set dbBkSh = Workbooks("dbase.xls").Worksheets("一覧表")
Fn = Dir(myPath & "form\*.xls")
i = 1
'・
'・
'・
End Sub
なんとなく、良く分からないのは、ThisWorkbook の存在は、とういう立場にあるのだろうかって思います。このままだと、アドインスタイルです。ただ、アドインは、Workbooks には掛からないです。
ところで、おまけですが、開いている他のExcelブックをすべて閉じるのは、このようにします。メッセージは、しばらく開いていますが、自動的に閉じます。つまり、このブックだけにしますが、PEROSNAL.XLS は、残します。
'開いているブックを、本体だけ残して閉じてしまうマクロ
Dim ret As Integer
ret = CreateObject("WScript.Shell").Popup("開いている他のエクセルブックをすべて閉じます", 3, "CloseMessage", 1)
If ret = 2 Then Exit Sub
For Each wb In Workbooks
If (Not StrConv(wb.Name, vbUpperCase) Like "PERSONAL.XLS") _
And (wb.Name <> ThisWorkbook.Name) _
And (wb.Name Like "Book#") Then
wb.Close False
End If
Next wb
いろいろと教えていただきまして、ありがとうございます。
上に書いていただいたコードできれいに目的を達成することができました。
私自身アドインがなんなのかよくわからないのですが、ThisWorkbookは、dbase.xlsです。
上書き保存したいファイルは、dbase.xlsのルートの中にあるformフォルダにあります。
ですからWorkbooksに掛からなくても問題ないということでしょうか。
どうもありがとうございましたm(_ _)m。
No.3
- 回答日時:
こんばんは。
>私自身アドインがなんなのかよくわからないのですが、ThisWorkbookは、dbase.xlsです。
まあ、アドインにすることはないですけれども、dbase.xls と違うブックから操作するのかと思いました。
そうすると、
Set dbBkSh = Workbooks("dbase.xls").Worksheets("一覧表")
どちらでも同じことですが、ここの部分は、
Set dbBkSh = ThisWorkbook.Worksheets("一覧表")
で済みますね。
ご回答ありがとうございます!
そうすると、ファイル名が変わってもこのマクロを動かすことができるようになり、大変便利になりました!
ありがとうございました。
No.1
- 回答日時:
こんなところでどうでしょう。
参考URLのコードを参考にさせていただきました。
フォルダー名は目的のものに変更してください。
また、マクロは dbase.xls 内に記述してください。
Sub test()
Dim WBK As Workbook
Dim strOwnBook As String
strOwnBook = ThisWorkbook.Name
For Each WBK In Workbooks
If WBK.Name <> strOwnBook Then
If WBK.Path = "C:\Documents and Settings\?????\My Documents" Then
Call WBK.Close(savechanges:=False)
End If
End If
Next WBK
End Sub
参考URL:http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
コメントありがとうございます。
参考になりました。
今回の場合、フォームを配布してデータベースを回収するという使い方になりますので、あまりパスにこだわらない方が使い勝手が良さそうに感じました。
どうもありがとうございましたm(_ _)m
またよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAを後ろで動かす方法
-
フォルダ内の全ブックのシート...
-
エクセルでマッチング
-
【ExcelVBA】指定の書式で、マ...
-
ExcelVBAで今開いているユーザ...
-
Powerpointでランダムな数字の...
-
エクセル終了時の保存確認メッ...
-
エラー内容が分かりません
-
サクラエディタのマクロ設定を...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
マクロを消すマクロは不可能?
-
ファイルリネームの良い知恵を...
-
エクセルマクロを有効にしない...
-
昨日まで動いていたエクセルの...
-
複数のデータ系列の線の太さを...
-
VBA[Private Sub]のコードをシ...
-
Adobe Reader を閉じる
-
常にカーソルが1ページ目の1...
-
エクセルマクロ実行中に別ファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
VB2010でExcelの行をコピーして...
-
EXCELマクロでxlsとxlsxを開く方法
-
【Excel VBA】ブックを複数開い...
-
すでに開いているブックのマク...
-
【ExcelVBA】指定の書式で、マ...
-
Excel VBAを後ろで動かす方法
-
他のBookのユーザー定義関数を使う
-
フォルダ内の全ブックのシート...
-
VBA セル入力された日付データ...
-
[Excel VBA] フォルダ内の複数...
-
VBA、Excelのworkbook.open に...
-
コマンドボタンでマクロを起動...
-
フォルダ内の全てのBookに同じ...
-
excelマクロ、任意セルの値で名...
-
エクセルVBAでブックを開くと処...
-
excelでハイパーリンク 別ブッ...
-
Excelの一括印刷で通し番号をつ...
おすすめ情報