S
Sverre
I found this program to import many worksheets from different location.
1. How can I change it to stop after one choice ?
2. How can I change it to stop after two choice ?
Sub GetSheets()
Dim s As String
Dim fd As FileDialog
Dim ffs As FileDialogFilters
Dim wb As Workbook
Dim xb As Workbook
Set xb = ActiveWorkbook
'Get user to pick file
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
Set ffs = .Filters
With ffs
..Clear
..Add "Excel Files", "*.xls"
End With
..AllowMultiSelect = False
If .Show Then s = .SelectedItems(1)
End With
'Turn off prompts
Application.DisplayAlerts = False
'Open chosen workbook
Set wb = Workbooks.Open(s, False)
Dim ws As Worksheet
For Each ws In wb.Worksheets
ws.Copy xb.Worksheets(1)
Next ws
'Close workbook
wb.Close
'Switch prompts back on
Application.DisplayAlerts = True
End Sub
1. How can I change it to stop after one choice ?
2. How can I change it to stop after two choice ?
Sub GetSheets()
Dim s As String
Dim fd As FileDialog
Dim ffs As FileDialogFilters
Dim wb As Workbook
Dim xb As Workbook
Set xb = ActiveWorkbook
'Get user to pick file
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
Set ffs = .Filters
With ffs
..Clear
..Add "Excel Files", "*.xls"
End With
..AllowMultiSelect = False
If .Show Then s = .SelectedItems(1)
End With
'Turn off prompts
Application.DisplayAlerts = False
'Open chosen workbook
Set wb = Workbooks.Open(s, False)
Dim ws As Worksheet
For Each ws In wb.Worksheets
ws.Copy xb.Worksheets(1)
Next ws
'Close workbook
wb.Close
'Switch prompts back on
Application.DisplayAlerts = True
End Sub