Open file based on changing date value

MHamid

Active Member
Joined
Jan 31, 2013
Messages
472
Office Version
  1. 365
Platform
  1. Windows
  2. MacOS
Hello,



I am trying to createa vba code that will open two spreadsheets based on the changing year and monthvalues.

I have the below codethat will first enter the date value needed for current reporting period andprior reporting period (3/31/18 and 2/28/18 respectively).I am having issueswith the rest of the code to actually open the file. This is the filepath"N:\IT RMO PBI\Audit and Control\ARR - Audit Files & Metrics\2018Audit Metrics\2018 Audit Plan\Audit Plan - Previous - FINAL"

I want to use thenetwork path of "\\namicgdfs\cpna_data_grp\IT RMO PBI\Audit andControl\ARR - Audit Files & Metrics". So I will need to open thefolder with the year and the words "Audit Metrics" and then fromthere open another folder with the year and the words "Audit Plan"after that the last folder to open is "Audit Plan - Previous -FINAL". My issue is where the folders are with the year. I have declared ayear value based on the date cell values per the beginning of the code.

Once the correctfolder is open, I will need to open two files. One for the current reportingperiod and another for the prior reporting period. At this point, I wasthinking about using the value entered in the columns next to the date((Mar_Final).xlsm and (Feb_Final).xlsm) respectively. An example of the filename is "2018_IA_Plan_2018_03_13_v1.2_(Feb_Final).xlsm".

Any way I can get mycode to work the way I need it to work. Again, as of now I am having issuetrying to complete the code for the filepath name to be opened.


Code:
Sub AddDate()[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]'Add Current Reporting Month Date
    Range("A15").Select
        With Selection
            .FormulaR1C1 = "=EOMONTH(TODAY(),-3)"
            .NumberFormat = "m/d/yyyy"
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Add Prior Reporting Month Date
    Range("A16").Select
        With Selection
            .FormulaR1C1 = "=EOMONTH(TODAY(),-4)"
            .NumberFormat = "m/d/yyyy"
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]'Define Variables
Dim Current As String
Dim Prior As String
Dim CYear As Integer
Dim PYear As Integer
Dim Path As String[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]'Get year from cell value
    CYear = year("A15")
    PYear = year("A16")
    
'Get lookup filename
    Current = Range("B15").Value
    Prior = Range("B16").Value
    
'Set PathName
    pathname = "[URL="file://\\namicgdfs\cpna_data_grp\IT"]\\namicgdfs\cpna_data_grp\IT[/URL] RMO PBI\Audit and Control\ARR - Audit Files & Metrics"[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]'Open File
CFilepath = pathname &; cyear &  "Audit Metrics"
PFilepath =[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]
[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]
End Sub
[/COLOR][/SIZE][/FONT]






Thank you

 
Last edited:

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
Hello,

I need to set the filename separately because I will need to reference these files to extract some data. How can I get the filename out of the Pathname and into the Filename section so that it will work when I open the workbooks?

Code:
Sub AddDate()

'Add Current Reporting Month Date
    Range("A15").Select
        With Selection
            .FormulaR1C1 = "=EOMONTH(TODAY(),-3)"
            .NumberFormat = "m/d/yyyy"
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Add Prior Reporting Month Date
    Range("A16").Select
        With Selection
            .FormulaR1C1 = "=EOMONTH(TODAY(),-4)"
            .NumberFormat = "m/d/yyyy"
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
'Add Current Reporting Month Partial FileName
    Range("B15").Select
        With Selection
            .FormulaR1C1 = "=""(""&TEXT(RC[-1],""mmm"")&""_Final)"""
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Add Prior Reporting Month Partial FileName
    Range("B16").Select
        With Selection
            .FormulaR1C1 = "=""(""&TEXT(RC[-1],""mmm"")&""_Final)"""
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Define Variables
Dim Current As String
Dim Prior As String
Dim CYear As Integer
Dim PDYear As Integer
Dim CPath As String
Dim PPath As String
Dim CFileName As String
Dim PFileName As String

'Get year from cell value
    CYear = year(Range("A15").Value)
    PDYear = year(Range("A16").Value)
    
'Get lookup filename
    Current = Range("B15").Value
    Prior = Range("B16").Value
    
'Set PathName
    CPath = "[URL="file://\\namicgdfs\cpna_data_grp\IT"]\\namicgdfs\cpna_data_grp\IT[/URL] RMO PBI\Audit and Control\ARR - Audit Files & Metrics" & CYear & " Audit Metrics" & "" & CYear & " Audit Plan" & "" & "Audit Plan - Previous - FINAL" & "*" & Current & ".xlsm"
    PPath = "[URL="file://\\namicgdfs\cpna_data_grp\IT"]\\namicgdfs\cpna_data_grp\IT[/URL] RMO PBI\Audit and Control\ARR - Audit Files & Metrics" & PDYear & " Audit Metrics" & "" & PDYear & " Audit Plan" & "" & "Audit Plan - Previous - FINAL" & "*" & Prior & ".xlsm"
'Set FileName
    CFileName = "*" & Current & ".xlsm"
    PFileName = "*" & Prior & ".xlsm"
    
'Open File
    Workbooks.Open (CPath), ReadOnly:=True
    Workbooks.Open (PPath), ReadOnly:=True

End Sub
 
Upvote 0
nevermind ... this works

Rich (BB code):
 Sub AddDate()
'Add Current Reporting Month Date
    Range("A15").Select
        With Selection
            .FormulaR1C1 = "=EOMONTH(TODAY(),-3)"
            .NumberFormat = "m/d/yyyy"
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Add Prior Reporting Month Date
    Range("A16").Select
        With Selection
            .FormulaR1C1 = "=EOMONTH(TODAY(),-4)"
            .NumberFormat = "m/d/yyyy"
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
'Add Current Reporting Month Partial FileName
    Range("B15").Select
        With Selection
            .FormulaR1C1 = "=""(""&TEXT(RC[-1],""mmm"")&""_Final)"""
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Add Prior Reporting Month Partial FileName
    Range("B16").Select
        With Selection
            .FormulaR1C1 = "=""(""&TEXT(RC[-1],""mmm"")&""_Final)"""
            .Font.Name = "Arial"
            .Font.Size = 8
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
        End With
        
'Define Variables
Dim Current As String
Dim Prior As String
Dim CYear As Integer
Dim PDYear As Integer
Dim CPath As String
Dim PPath As String
Dim CFileName As String
Dim PFileName As String

'Get year from cell value
    CYear = year(Range("A15").Value)
    PDYear = year(Range("A16").Value)
    
'Get lookup filename
    Current = Range("B15").Value
    Prior = Range("B16").Value
    
'Set PathName
    CPath = "\\namicgdfs\cpna_data_grp\IT RMO PBI\Audit and Control\ARR - Audit Files & Metrics" & CYear & " Audit Metrics" & "" & CYear & " Audit Plan" & "" & "Audit Plan - Previous - FINAL"
    PPath = "\\namicgdfs\cpna_data_grp\IT RMO PBI\Audit and Control\ARR - Audit Files & Metrics" & PDYear & " Audit Metrics" & "" & PDYear & " Audit Plan" & "" & "Audit Plan - Previous - FINAL"
'Set FileName
    CFileName = "*" & Current & ".xlsm"
    PFileName = "*" & Prior & ".xlsm"
    
'Open File
    Workbooks.Open (CPath & CFileName), ReadOnly:=True
    Workbooks.Open (PPath & PFileName), ReadOnly:=True

End Sub
 
Upvote 0

Forum statistics

Threads
1,223,214
Messages
6,170,772
Members
452,353
Latest member
strainu

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