This macro will prompt the user to select where the file is, open it, copy
the data on Sheet1 to the master workbook Sheet2. I assume you will want to
call this sub from a command button in your master excel sheet. Hope this
helps! If so, let me know, click "YES" below.

Sub ImportSheet()

Dim wbkData As Variant

' select file with data to be opened
wbkData = Application.GetOpenFilename

' open the workbook
If wbkData = False Then
MsgBox "You didn't select a workbook.", vbInformation
Else
Workbooks.Open wbkData
Set wbkData = ActiveWorkbook
End If

' copy data to master workbook
ThisWorkbook.Sheets("Sheet2").Cells = wbkData.Sheets("Sheet1").Cells

' close the workbook without saving
wbkData.Close

End Sub
--
Cheers,
Ryan


"Norvascom" wrote:

On Jan 7, 12:32 pm, Gord Dibben <gorddibbATshawDOTca wrote:
Try the macro recorder.

Gord Dibben MS Excel MVP

On Thu, 7 Jan 2010 09:14:02 -0800 (PST), Norvascom
wrote:



I would like to create a macro that would do the following:

1- Open a closed Excel file located on my drive named "A" and select
the sheet named "Sheet1"
2- Copy all data from this sheet starting on cell A1 to the already
opened master Excel file named "B" on sheet named "Sheet2" cell A1.

Thanks in advance for your help.- Hide quoted text -

- Show quoted text -

I does not work because the file to be opened is not always located in
the same place on the drive.
.