View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default How to load these XLS files

Dim s1 as String, s2 as Strnig, sName as String
s1 = "C:\CASTLE\NORTH WEST\"
s2 = "D:\RECEIVED\NORTH WEST\"
sName = format(Date,"ddmmyy") & " NW AB.xls"
filecopy s1 & sName, s2 & sName
workbooks.open s1 & sName

--
Regards,
Tom Ogilvy



"Jako " wrote in message
...
I am receiving workbooks from someone who is using the filename as
follows : <TodaysDate NW AB.XLS

For example today i received a workbook with this filname...

180704 NW AB.xls

and tomorrow i will receive a workbook named

190704 NW AB.xls

Also the received files are stored in C:\CASTLE\NORTH WEST\

Please could someone tell me how to programmatically write some code to
auto load the file received without having to browse for the
file.Obviously it has something to do with Format Date but am unsure fo
exactly how to do this. Also before loading the file i want to copy the
received file into D:\RECEIVED\NORTH WEST\

Thanks in advance.


---
Message posted from http://www.ExcelForum.com/