サブテスト()
myPath を文字列として、MyName を文字列として暗くする
myPath = "C:\Documents\" 'パスを取得
MyName = Dir(myPath) '最初のファイルを検索
正しい場合(MyName, 4) = ".csv" then Workbooks.Open Filename:=myPath & MyName
MyName """の間実行してください
MyName = Dir '次を検索
正しい場合(MyName, 4) = ".csv" then Workbooks.Open Filename:=myPath & MyName
###ループ###エンドサブ
すみません、専門家の方、VBAでコントロールを入れるファイルパスとファイル名の選択方法を教えてください
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ファイル名:= __
ThisWorkbook.Path & "\"" & Date & ".xls", __
FileFormat:=xlNormal、__
パスワード:=""、WriteResパスワード:=""、_
読み取り専用推奨:=False、__
CreateBackup:=False
Application.DisplayAlerts = True
エンドサブ
「ThisWorkbook.Path & "\"" & Date & ".xls", _" を ""d:\" & Date & ".xls", _" (""d:\" ") に変更してください。これは保存したいパスです。
私の答えがあなたのお役に立てば幸いです。
以上がVBA プログラミングを使用してフォルダー パスを指定し、特定のサフィックスに一致するファイルを順番に開く方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。