Combining several workbooks into one

A

Anders Eriksson

Hello!

We are using an Excel workbook/worksheet as an Event/appointment book. Each
user has his own workbook. The workbook contains one worksheet were one row
1 there is some headers and on row 2 the actual data begins. The data can
be any number of rows.

The headers are:
Event,Date,Time,Place,Price,Note

Now I want to combine/merge all the 'user workbooks' into an 'all users
workbook'. Were the user data will be appended into the 'all users
workbook' and then sorted on Date and Time.

I want to do this using a Macro so that I can link the macro to a button.

Please help!

// Anders
 
O

onedaywhen

Anders Eriksson wrote ...
Hello Ron,
1) I'm using your ADO functions and as a param to GetData you have
SourceRange, how do I specify the range if I want it to be all data in the
sheet?
Click to expand...

Looks like the SourceRange argument can be a zero length string. Being
optional would be more explicit, it could be omitted e.g.

Public Sub GetData( _
ByVal SourceFile As Variant, _
ByVal TargetRange As Excel.Range, _
ByVal SourceSheet As String, _
Optional ByVal SourceRange As String, _
Optional ByVal HeaderRow As Boolean = True _
)

End Sub

--
 
Top