ここから本文です

Office2016 エクセル 初心者です。 下記のマクロファイルを作成したいです。 ...

mya********さん

2019/6/1408:00:03

Office2016 エクセル 初心者です。

下記のマクロファイルを作成したいです。

一つのフォルダー内に200個のデータファイルがあります。200個のデータは同じパスワードで開きます。

200

個全てのデータを開けてブック内の全シートのフィルターを解除し、全て保存し、閉じる、というマクロは作れますでしょうか?

また、ブック内には、フィルターのかかっているものとかかっていないシートがあります。フィルターも解除されているものと、絞っているものもあります。

それぞれのシートには名前が付いています。

例)
フォルダー名:Mファイル3月

Mファイル3月の中に

001
002
003
004

198
199
200
とファイルがあり

1〜200を開ける際に同じパスワードで開け、10シート全てフィルターを解除し、保存、閉じる。

*フィルターは解除しているシートとフィルターがそもそも付いていないシート、フィルターは付いているが解除されていないものがあります。

*10シートは
表紙、M総合、M1、M2、M3、M4、F総合、F1、F2、F3

というシート名が付いています。

閲覧数:
61
回答数:
1

違反報告

ベストアンサーに選ばれた回答

tok********さん

2019/6/1409:36:35

指定のフォルダのEXCELファイル全部、全シートの例です。

Sub afreset()
Dim f As String, fld As String, i As Long, pw
On Error Resume Next
Application.DisplayAlerts = False
'共通パスワード
pw = "1"
'指定フォルダ
fld = "\\Mac\Home\Desktop\Excel\"
f = Dir(fld & "*.xlsx")
Do While f <> ""
Workbooks.Open fld & f, Password:=pw
For i = 1 To Sheets.Count
Sheets(i).AutoFilterMode = False
Next i
Workbooks(f).Close True
f = Dir()
Loop
Application.DisplayAlerts = True
MsgBox "END"
End Sub


動作確認済みです。
追加質問は受け付けません、アレンジはご自分で。

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる