Opening file saved as current date
 

I have the following code that I want to open a text file that is saved
as the current date. It works but opens the text file in a new excel
spreadsheet. Is there any way to open the file in my "tester.xls"
(which is where I have this macro)?


Code:
--------------------


Sub True()

Dim SourceBook As Workbook

ChDir ("C:\Program Files\helper")
Set SourceBook = Workbooks.Open(Filename:=Format(Date, "mm_dd_yy.txt"))

End Sub


--------------------


--
Yepp12
------------------------------------------------------------------------
Yepp12's Profile: http://www.excelforum.com/member.php...o&userid=28740
View this thread: http://www.excelforum.com/showthread...hreadid=492855

Opening file saved as current date
 

Sub True()

Dim SourceBook As Workbook
Dim sh as Worksheet
With Activeworkbook
set sh = .Worksheets.Add(After:=.Worksheets(Worksheets.coun t))
End with
sh.Name = "Data1"
ChDir ("C:\Program Files\helper")
Set SourceBook = Workbooks.Open(Filename:=Format(Date, "mm_dd_yy.txt"))
SourceBook.Worksheets(1).UserRange.copy _
Destination:=sh.Range("A1")
sourceBook.Close SaveChanges:=False
End Sub

--
Regards,
Tom Ogilvy


"Yepp12" wrote in
message ...

I have the following code that I want to open a text file that is saved
as the current date. It works but opens the text file in a new excel
spreadsheet. Is there any way to open the file in my "tester.xls"
(which is where I have this macro)?


Code:
--------------------


Sub True()

Dim SourceBook As Workbook

ChDir ("C:\Program Files\helper")
Set SourceBook = Workbooks.Open(Filename:=Format(Date, "mm_dd_yy.txt"))

End Sub


--------------------


--
Yepp12
------------------------------------------------------------------------
Yepp12's Profile:
http://www.excelforum.com/member.php...o&userid=28740
View this thread: http://www.excelforum.com/showthread...hreadid=492855

Opening file saved as current date
 

First, I wouldn't use True as a subroutine name. It looks too much like True
(as in the boolean value True.)

Sub myTrue()
Dim SourceBook As Workbook
Set SourceBook = Workbooks.Open _
(Filename:="C:\Program Files\helper\" & Format(Date, "mm_dd_yy.txt"))

activesheet.copy _
after:=thisworkbook.sheets(thisworkbook.sheets.cou nt)

sourcebook.close savechanges:=false

End Sub

Yepp12 wrote:

I have the following code that I want to open a text file that is saved
as the current date. It works but opens the text file in a new excel
spreadsheet. Is there any way to open the file in my "tester.xls"
(which is where I have this macro)?

Code:
--------------------


Sub True()

Dim SourceBook As Workbook

ChDir ("C:\Program Files\helper")
Set SourceBook = Workbooks.Open(Filename:=Format(Date, "mm_dd_yy.txt"))

End Sub


--------------------

--
Yepp12
------------------------------------------------------------------------
Yepp12's Profile: http://www.excelforum.com/member.php...o&userid=28740
View this thread: http://www.excelforum.com/showthread...hreadid=492855

--

Dave Peterson

Opening file saved as current date
 

Thanks guys for your help.


--
Yepp12
------------------------------------------------------------------------
Yepp12's Profile: http://www.excelforum.com/member.php...o&userid=28740
View this thread: http://www.excelforum.com/showthread...hreadid=492855