Excel Mengambil nama file - Get File Link

Ini adalah code macro untuk mengambil file

Private Sub getlinkfile() ‘ langsung di tempatkan pada label
Dim nFileName As Variant
'nFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", , "Ambil file")'with
nFileName = Application.GetOpenFilename()
If nFileName = False Then
Me.Label1.Caption = "Tidak ada file yang dipilih"
Else
Me.Label1.Caption = nFileName
End If
End Sub

Perhatikan kodenya dan coba baca alurnya.