How do I open a workbook with the current month, Minus 1 day?

Knockoutpie

Board Regular
Joined
Sep 10, 2018
Messages
116
Office Version
  1. 365
Platform
  1. Windows
So I was able to get VBA to open the sheet name based on Month and Year (January 2020) sheet name for example, but if the month is currently December 1st, I don't want the December sheet, I want the November sheet because the data I'm using is November 30th. We will be working on the last line of code.. A Yesterday function would be great

Is there any way I can use the Now or Today function minus 1 day? Or can you help advise a way to do this?

VBA Code:
    Dim folderPath As String, tableName As String, latestTblName As String
Dim latestModified As Date, modifiedDate As Date

folderPath = "Insert Path Name Here"

tableName = Dir(folderPath & "*.xlsx")

Do While tableName <> vbNullString
    modifiedDate = FileDateTime(folderPath & tableName)
    If latestModified < modifiedDate Then
        latestModified = modifiedDate
        latestTblName = tableName
    End If
    tableName = Dir()
Loop

Workbooks.Open folderPath & latestTblName
    
' can we open a file based on the month?

Sheets(UCase(Format(Today(), "mmmm YYYY"))).Select
 

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.
I would think you only have to subtract 1 from the Today() function in your last posted line of code...

Sheets(UCase(Format(Today() - 1, "mmmm YYYY"))).Select
 
Upvote 0
I would think you only have to subtract 1 from the Today() function in your last posted line of code...

Sheets(UCase(Format(Today() - 1, "mmmm YYYY"))).Select
Thanks Rick, I tried that every possible way, Excel doesn't like it with Today, but it will let me do it with Now. Cheers!

VBA Code:
Sheets(UCase(Format(Now() - 1, "mmmm YYYY"))).Select
 
Upvote 0
I wasn't thinking when I accepted your use of the Today function in your line of VBA code.? VBA has a Date function for just the date and the Now function for the date and time... either will work for the usage you are looking for.
 
Upvote 0

Forum statistics

Threads
1,214,784
Messages
6,121,536
Members
449,037
Latest member
tmmotairi

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top