View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Copy data from a changing spreadsheet to a constant spreadsheet

Maybe you could have your macro open the file you specify.


Dim CLWkbk as workbook
dim clwkbkname as variant

clwkbkname = application.getopenfilename(filefilter:="Excel Files, *.xls")
if clwkbkname = false then
exit sub 'user hit cancel
end if
set clwkbk = workbooks.open(filename:=clwkbkname)

Then use clwkbk in your code
clwkbk.worksheets(1).range("a1").value = date
clwkbk.worksheets(1).range("a1:x99").copy _
destination:=thisworkbook.worksheets("somesheetnam ehere").range("x99")



jonallen51 wrote:

I have data that is generated every day and is saved to a new
spreadsheet with the name CallListYYYYMMDD.xls. When this data is
saved, I copy all data to another spreadsheet with the name ALTERNATE
LOAD DATE FORM.xls. Once here I have macros to format the sheet like
I need for future use. I have other spreadsheets with macros that
copy from one workbook to another, but they have the same name
everytime data is copied.

My problem that I need help with is the fact that the name of the
original data sheet is constantly changing to match the day that it
was generated.

Any help would be great.

Thanks
Allen


--

Dave Peterson