Import worksheet with dailog box option

[softman]

Hi,

I am new to vba and have search this forum but could not find the soloution.

I have a file with a worksheet "Master" and want to import that files data into my opend workbook and put the data in a given worksheet "ImportData" and copy the data range for excamle A4:AC50 in to the worksheet. But the user must be asking to find the file an directory and then select the file. (Dialog box open)

Is this possible?

Many thanks.

 

[jim may]

See Application.GetOpenFilename in HELP...

 

[Rasm]

Try this- just copies entire workbook - but it is a start

Private Sub CommandButton1_Click()
    FilesToOpen = Application.GetOpenFilename("Excel Files (*.xl*)," & "*.xl*", 1, "Select Excel File", "Open", MultiSelect:=True)
    
    For i = 1 To UBound(FilesToOpen)
        Workbooks.Open FilesToOpen(i)
        With ActiveWorkbook
            For ii = 1 To Sheets.Count
                .Sheets(ii).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next ii
            .Close 'closes file after it is copied
        End With
       
    Next i
End Sub