하위 테스트()
Dim myPath를 문자열로, MyName을 문자열로
myPath = "C:문서" '경로 가져오기
MyName = Dir(myPath) '첫 번째 파일 찾기
Right(MyName, 4) = ".csv"이면 Workbooks.Open Filename:=myPath & MyName
Do while MyName ""
MyName = Dir '다음 찾기
Right(MyName, 4) = ".csv"이면 Workbooks.Open Filename:=myPath & MyName
루프
끝 서브
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs 파일 이름:= _
ThisWorkbook.Path & """ & 날짜 & ".xls", _
파일형식:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=거짓, _
CreateBackup:=거짓
Application.DisplayAlerts = True
끝 서브
"ThisWorkbook.Path & """ & Date & ".xls", _"를 ""d:" & Date & ".xls", _"로 변경하세요. 여기서 ""d:""는 원하는 것입니다. 저장 경로.
제 답변이 도움이 되었으면 좋겠습니다.
위 내용은 VBA 프로그래밍을 사용하여 폴더 경로를 지정하고 특정 접미사와 일치하는 파일을 순서대로 여는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!