Copy data from one workbook to another of same name
Thanks for the reply : The source and destination files
are exactly the same with one exception: the destination
files have an "M" at the end, e.g.
Source = TR123
Destination = TR123M
Does that help? Thanks a ton!
-----Original Message-----
Expand the lists to include all of your source and
corresponding destination
files.
Sub CopyFiles()
Dim PathSrc as String, PathDest as String
Dim srcList as Variant, destList as Variant
Dim i as Long
Dim bkSrc as Workbook, bkDest as Workbook
PathSrc = "C:\MyFiles\"
PathDest = "C:\YourFiles\"
srcList = Array("AE1234.xls", _
"AB3567.xls", _
"RN2134.xls", _
"ZZ9999.xls")
destList = Array("bb1111.xls", _
"cc2222.xls", _
"dd3333.xls", _
"zz1111.xls")
for i = lbound(srcList) to ubound(srcList)
set bksrc = workbooks.Open(PathSrc & srcList(i))
set bkdest = workbooks.Open(PathDest & destlist(i))
bksrc.worksheets(1).Rows(1).Resize(50).copy _
Destination:=bkDest
bksrc.close SaveChanges:=False
bkDest.close SaveChanges:=True
Next
End Sub
If you had come sequence to our names and some
corresondence between source
and destination filenames, this could be simpler.
--
Regards,
Tom Ogilvy
"KENNY" wrote in
message
...
What if I know precisely the name of the destination
file,
as well as its location (Lookup?)?
-----Original Message-----
This can definitely be done in a macro if you are
willing
to start the
macro and then find the destination file in an open
prompt...the macro
would then open that file...put in the 50 rows (how
many
columns?)...and then close and save the file.
.
.
|