Macro Open to worksheet in current Workbook

rodoruin · April 5th, 2013, 03:29 PM

Hi all,

I scoured the forums and google looking for an answer so I hope this isn't overly simple-

I'm writing a macro where the user is prompted with an open file dialog box. My problem is, after the user selects the file it opens in a new workbook. I need to prompt the user multiple times to open files, but I'd like all the files to appear in the same (current) workbook as tabs (worksheets). I'd appreciate any feedback.

Workbooks.Open filename:=Application.GetOpenFilename

Workbooks.Open filename:=Application.GetOpenFilename

etc. all to be opened in same workbook as worksheets?

davesexcel · April 12th, 2013, 02:42 PM

Use this code to multi-select workbooks to open

Code:

Sub MultiSelectWorkbooks()

 

    Dim GetFile As Variant

    GetFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Open The Workbook", MultiSelect:=True)

 

    On Error Resume Next

    If GetFile <> False Then

        On Error GoTo 0

 

        For i = 1 To UBound(GetFile)

            Workbooks.Open Filename:=GetFile(i)

        Next i

    End If

 

End Sub

You can't open a workbook into an existing workbook worksheet