Referencing Closed workbooks...Help!

Hi all...

I have a macro to archive some daily sales. What i want to do for the procedure below is send the info to a closed workbook rather than the active one. The reason for this is just to keep the active workbook faster.

So if i wanted say, to append to Workbook "Archive", "Sheet1" which is held in a folder called "Folder" in the C drive, how would i write the reference?

Answers on a postcard.....

Thanks for help inadvance,

Chris

Dim SourceRange As Range, TargetRange As Range
Dim SearchRange As Range, LastWrittenCell As Range
Dim i, n As Integer, k As Integer, j As Integer, ItemToSearchFor
'--------------------------------------
' User definitions
n = 6 ' number of columns to append
Set SourceRange = [N2]
Set TargetRange = Range("BD!A1")
'--------------------------------------
Set SearchRange = Range(SourceRange, SourceRange.End(xlDown))
If IsEmpty(TargetRange) Then
Set LastWrittenCell = TargetRange
k = 0
Else
k = 1

Mr. Erlandsen's page (toward the bottom)

http://www.erlandsendata.no/english/...php?t=envbadac

also
http://support.microsoft.com/default...b;en-us;257819
How To Use ADO with Excel Data from Visual Basic or VBA

--
Regards,
Tom Ogilvy


"chris100" <[email protected]> wrote in
message news:[email protected]...
>
> Hi all...
>
> I have a macro to archive some daily sales. What i want to do for the
> procedure below is send the info to a closed workbook rather than the
> active one. The reason for this is just to keep the active workbook
> faster.
>
> So if i wanted say, to append to Workbook "Archive", "Sheet1" which is
> held in a folder called "Folder" in the C drive, how would i write the
> reference?
>
> Answers on a postcard.....
>
> Thanks for help inadvance,
>
> Chris
>
> Dim SourceRange As Range, TargetRange As Range
> Dim SearchRange As Range, LastWrittenCell As Range
> Dim i, n As Integer, k As Integer, j As Integer, ItemToSearchFor
> '--------------------------------------
> ' User definitions
> n = 6 ' number of columns to append
> Set SourceRange = [N2]
> Set TargetRange = Range("BD!A1")
> '--------------------------------------
> Set SearchRange = Range(SourceRange, SourceRange.End(xlDown))
> If IsEmpty(TargetRange) Then
> Set LastWrittenCell = TargetRange
> k = 0
> Else
> k = 1
>
>
> --
> chris100
> ------------------------------------------------------------------------
> chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
> View this thread: http://www.excelforum.com/showthread...hreadid=504901
>

There is a good discurssion about this in Excel Daily Dose...

http://www.*****-blog.com/archives/2...ing-workbooks/
--
HTH...

Jim Thomlinson


"chris100" wrote:

>
> Hi all...
>
> I have a macro to archive some daily sales. What i want to do for the
> procedure below is send the info to a closed workbook rather than the
> active one. The reason for this is just to keep the active workbook
> faster.
>
> So if i wanted say, to append to Workbook "Archive", "Sheet1" which is
> held in a folder called "Folder" in the C drive, how would i write the
> reference?
>
> Answers on a postcard.....
>
> Thanks for help inadvance,
>
> Chris
>
> Dim SourceRange As Range, TargetRange As Range
> Dim SearchRange As Range, LastWrittenCell As Range
> Dim i, n As Integer, k As Integer, j As Integer, ItemToSearchFor
> '--------------------------------------
> ' User definitions
> n = 6 ' number of columns to append
> Set SourceRange = [N2]
> Set TargetRange = Range("BD!A1")
> '--------------------------------------
> Set SearchRange = Range(SourceRange, SourceRange.End(xlDown))
> If IsEmpty(TargetRange) Then
> Set LastWrittenCell = TargetRange
> k = 0
> Else
> k = 1
>
>
> --
> chris100
> ------------------------------------------------------------------------
> chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
> View this thread: http://www.excelforum.com/showthread...hreadid=504901
>
>