clif
11-02-2011, 06:32 AM
My question is how to get the filename in particular cell in excel without trigger the brower and click confirm button ?
Sub GetFileNames()
Sheets("Purchase").Select
Range("L3").Select
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
'
InitialFoldr$ = "C:\abc\bcf\abc\"
'
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
Sheets("Purchase").Select
Range("L3").Select
Selection.ClearContents
'
End Sub
Sub GetFileNames()
Sheets("Purchase").Select
Range("L3").Select
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
'
InitialFoldr$ = "C:\abc\bcf\abc\"
'
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
Sheets("Purchase").Select
Range("L3").Select
Selection.ClearContents
'
End Sub