HOW TO: Open an Excel File with an Open Dialog box -Excel VBA
12.9 هزار بار بازدید -
9 سال پیش
-
Real Simple stuff....Dialog File Picker
Real Simple stuff....Dialog File Picker throwing in an Scripting.FileSystemObject for good measure.
'------------------------------------------------------------------
Sub OPEN_SOME_STUFF()
Dim FSO As Object
Dim FD As Object
Set FSO = CreateObject("scripting.filesystemobject")
Set FD = Application.FileDialog(msoFileDialogFilePicker)
If FD.Show = -1 Then
Filename = FD.SelectedItems(1)
Filename = FSO.getfile(Filename)
Workbooks.Open (Filename)
End If
End Sub
'----------------------------------------------------
'------------------------------------------------------------------
Sub OPEN_SOME_STUFF()
Dim FSO As Object
Dim FD As Object
Set FSO = CreateObject("scripting.filesystemobject")
Set FD = Application.FileDialog(msoFileDialogFilePicker)
If FD.Show = -1 Then
Filename = FD.SelectedItems(1)
Filename = FSO.getfile(Filename)
Workbooks.Open (Filename)
End If
End Sub
'----------------------------------------------------
9 سال پیش
در تاریخ 1394/10/27 منتشر شده
است.
12,993
بـار بازدید شده