ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   open a file in VB that the date changes every day. (https://www.excelbanter.com/excel-programming/342035-open-file-vbulletin-date-changes-every-day.html)

Michael from Austin

open a file in VB that the date changes every day.
 
What if the file name is always preceeded by the date. How did I get a macro
to open up a file that is named the same all the time, but has the date at
the end always change?

--
Regards,
Michael

Mike Fogleman

open a file in VB that the date changes every day.
 
Which is it?
What if the file name is always preceeded by the date.

DateFilename
but has the date at the end always change?

FilenameDate

Either way the filename would be like this for today's date:

Sub test()
Dim MyDate As String
Dim MyFile As String

MyDate = Format(Date, "mm_dd_yy")
MyFile = "SomeFile " & MyDate & ".xls" '= "SomeFile 10_05_05.xls"
'or
MyFile = MyDate & " SomeFile.xls" '= "10_05_05 SomeFile.xls"
End Sub

Mike F

"Michael from Austin" wrote in
message ...
What if the file name is always preceeded by the date. How did I get a
macro
to open up a file that is named the same all the time, but has the date at
the end always change?

--
Regards,
Michael




Michael from Austin

open a file in VB that the date changes every day.
 
I'm still having issues and it is beyond me. Where is what I did..

'Defining today

Dim Today As String
Today = Format(Date, "mm-dd-yy")

'Opening file NI WA Subinventory Trasactions " & Today &".xls Current file
is saved
' as " NI WA Subinventory Trasactions 10-24-05

Windows("NI WA Subinventory Transactions " & Today & ".xls").Activate

I am getting the error measage "Subscript out of Range."

What am I doing wrong?

--
Regards,
Michael


"Mike Fogleman" wrote:

Which is it?
What if the file name is always preceeded by the date.

DateFilename
but has the date at the end always change?

FilenameDate

Either way the filename would be like this for today's date:

Sub test()
Dim MyDate As String
Dim MyFile As String

MyDate = Format(Date, "mm_dd_yy")
MyFile = "SomeFile " & MyDate & ".xls" '= "SomeFile 10_05_05.xls"
'or
MyFile = MyDate & " SomeFile.xls" '= "10_05_05 SomeFile.xls"
End Sub

Mike F

"Michael from Austin" wrote in
message ...
What if the file name is always preceeded by the date. How did I get a
macro
to open up a file that is named the same all the time, but has the date at
the end always change?

--
Regards,
Michael





Michael from Austin

open a file in VB that the date changes every day.
 
I got it. I was not passing the string "Today" into the function..
Duhhhhhh... Thanks for all your help.....
--
Regards,
Michael


"Michael from Austin" wrote:

What if the file name is always preceeded by the date. How did I get a macro
to open up a file that is named the same all the time, but has the date at
the end always change?

--
Regards,
Michael



All times are GMT +1. The time now is 03:46 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com