マクロは難しい・・・
https://oshiete.goo.ne.jp/qa/2598781.html
上記URLでフォルダ内の全ファイルを開くマクロがありましたので参考にしていたのですが別名で保存の段階で詰まってしまいました。貴重な休日がああ~~
現在仕事の引き継ぎでマクロ非対応のファイルをマクロ有効にしようとしているのですが多いと1フォルダに100個、全部で400以上あるため自動でできたらなあと考えています
やりたい作業は、
1.同じフォルダにあるファイルを開く
2.別名で保存でマクロ有効ブックとして保存(名前は開いたファイルのまま)
3.閉じる
4.次のファイルを開く
5.1~4をフォルダ内のファイル全てに適用するまで繰り返す
というものです
URL先のコードに別名で保存のコードを入れればいいんじゃん!やったぜひとりでできるもん!と思い追加したいマクロを記憶しながらコードを見て作ってみたのですが同じ名前で保存されたり end sub が必要などとエラーが出て上手くいきませんでした(´;ω;`)
No.2ベストアンサー
- 回答日時:
失礼しました。
パスの指定が不完全でした。これでどうでしょう。Sub sample()
Dim Fs, Fl, Fn, wb
Set Fs = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
For Each Fl In Fs
Fn = ThisWorkbook.Path & "\" & Fl.Name
If Right(Fn, 5) = ".xlsx" Then
Set wb = Workbooks.Open(Fn)
Fn = Left(Fn, Len(Fn) - 5) & ".xlsm"
Application.DisplayAlerts = False
wb.SaveAs Filename:=Fn, FileFormat:=xlOpenXMLWorkbookMacroEnabled
wb.Close
Application.DisplayAlerts = True
End If
Next
End Sub
ありがとうございます
こちらも試したところやはり実行はできるのですがファイルは開かれた様子はなく作成もされませんでした
開こうとしているのがマクロを有効にしていないファイルであるためうまくいかないのかと考えマクロ有効のブックを同じフォルダに入れてみましたがこれも同じく開かれた様子はありませんでした
No.1
- 回答日時:
こんな感じです。
同名のブックが存在していた場合、アラートなしで上書きしますので、ご注意ください。
Sub sample()
Dim Fs, Fl, Fn, wb
Set Fs = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
For Each Fl In Fs
Fn = Fl.Name
If Right(Fn, 5) = ".xlsx" Then
Set wb = Workbooks.Open(Fn)
Fn = Left(Fn, Len(Fn) - 5) & ".xlsm"
Application.DisplayAlerts = False
wb.SaveAs Filename:=Fn, FileFormat:=xlOpenXMLWorkbookMacroEnabled
wb.Close
Application.DisplayAlerts = True
End If
Next
End Sub
回答有り難うございます
新規フォルダに6つファイルを作成して試したところ実行はされるのですが新たなファイルが保存されませんでした
今作業中なのは2010、会社で使うのは2013ですがバージョンによって違うのでしょうか、調査中です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
エクセル;相対パスを絶対パスへ...
-
EXcelのマクロで相対パスでファ...
-
【Excel VBA】マクロでExcel自...
-
【マクロ】必要な項目(列)の...
-
複数のExcelファイルの印刷設定...
-
excelで直前に参照していたブッ...
-
マクロの保存先、開いてるすべ...
-
エクセルを開いて文字を打つ際...
-
エクセルでマクロを組んでいな...
-
[フィルターオプションの設定]...
-
【Excel】マクロの保存先について
-
エクセルのvbaにて thisworkboo...
-
複数のbookから特定のセル(行...
-
エクセルで複数ファイルのセル...
-
個人用マクロブックが消えました
-
EXCELマクロ実行のショートカッ...
-
Excel:VBAブック保存時にマクロ...
-
エクセルのマクロについて!!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
エクセル;相対パスを絶対パスへ...
-
マクロの保存先、開いてるすべ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
複数のExcelファイルの印刷設定...
-
エクセルのvbaにて thisworkboo...
-
EXCELのボタンによるマクロの登...
-
エクセルVBA 個人用マクロブッ...
-
EXCELブックが勝手に開いて困っ...
-
EXCELマクロで、開いてはいるが...
-
[フィルターオプションの設定]...
-
エクセルで未保存に対するメッ...
-
【Excel】特定セルの内容をテキ...
-
ファイル名変更後も、マクロを...
-
名前の変わるブックをアクティ...
おすすめ情報
すいません解決しました!
個人用マクロブックを使っていたので”PERSONAL.XLSB”があるフォルダにコードが適用されていたようです
マクロ有効ブックで保存したいファイルを上記フォルダに移動させたところモリモリ作成されていきました!
仕事で使う際は万一がないようファイルにマクロを保存して慎重に扱おうと思います
とても助かりました、ありがとうございます!!ヽ(`▽´)/