Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Import through dialogbox
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
reactivate DialogBox | Excel Discussion (Misc queries) | |||
Open DialogBox in VBA | Excel Programming | |||
DialogBox Layout | Excel Programming | |||
OpenFile dialogbox | Excel Worksheet Functions | |||
DialogBox | Excel Programming |