파일명이 매번 바뀔때 와일드카드 사용 문의

안녕하세요

하기사진처럼 날짜마다 파일명이 업데이트 되어서 , 하기 매크로 구문에서

파일명중 바뀌는 부분을 와일드 카드로 사용해서 데이터를 가져오고 싶습니다.

혹시 방법이 있을까요?

Sub 파일데이터가져오기()
'
' 파일데이터가져오기 매크로
'
' 바로 가기 키: Ctrl+q

Dim Fileobj As Object
Dim Path As String
Dim FileName As String
Dim sht As Worksheet

Path = "C:\Users\USER\Desktop\Sample\"
FileName = "GIT_*.xlsx"

Set Fileobj = GetObject(Path + FileName)

Set sht = Fileobj.ActiveSheet

With sht

.UsedRange.Copy
Sheets(1).Cells(1, 1).PasteSpecial xlPasteValues

End With
End Sub