_Microsoft Excel의 폴더에서 최신 파일을 여는 방법 _

매크로 버튼을 클릭하기 만하면 폴더에 최근 저장된 파일을 열 수있는 VBA 코드가 필요한 경우.

질문) : 10 명으로 구성된 팀이 있으며, 파일이 저장된 경로로 이동할 필요가 없도록 팀원이 저장 한 최신 파일을 여는 데 도움이 될 매크로를 긴급히 찾고 있습니다.

아래 단계를 따라야합니다 :

개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오

img1

  • 워크 시트 모듈에 다음 코드를 입력하세요

명시 적 옵션

하위 NewestFile ()

Dim MyPath As String

Dim MyFile As String

Dim LatestFile As String

Dim LatestDate As Date

LMD를 날짜로 흐리게하기

MyPath = “C : \ Users \ Documents \”

If Right (MyPath, 1) <> “\”Then MyPath = MyPath & “\”

MyFile = Dir (MyPath & “* .xls”, vbNormal)

If Len (MyFile) = 0 Then

MsgBox “파일이 없습니다 …​”, vbExclamation

서브 종료

End If

Len (MyFile)> 0

LMD = FileDateTime (MyPath & MyFile)

만약 LMD> LatestDate Then

LatestFile = MyFile

LatestDate = LMD

End If

MyFile = 디렉터리

루프

통합 문서. MyPath 및 LatestFile 열기

End Sub

img2

이런 식으로 매크로 코드를 사용하여 팀원이 저장 한 최신 파일을 열 수 있습니다.

image 4