Question

我有一些以前工作过的宏：

Sub test()
'
' test Macro
'

    Windows("_Macro_Duplicate Billing Templates.xltm").Activate

    Src2 = Sheets("Parameters").Range("C12").Value

    Workbooks.Open Filename:=Src2

End Sub

我指示＆＃34; D：\ Users \ D801878 \ Int＆＃39; l \ Billing \ 2017_03 \ Billing Template_International_2017_03.xlsx＆＃34;在细胞C12中

这在2016年至今工作。现在我收到错误＆＃34; D：\ Users \ D801878 \ Int＆＃39; l \ Billing \ 2017_03 \ Billing Template_International_2017_03.xlsx未找到。＆＃34;

在命名文件路径和文件名方面有什么变化吗？

Answer 1

我建议这样做：

我认为值03表示月份的数量为march或mar，因此：
放入C12日期mar.2017并使用以下代码：

Dim y As Integer
Dim m As String
Dim ws As Worksheet
Dim link As String

Set ws = ThisWorkbook.Worksheets("Parameters")
y = Format(ws.Range("C12"), "yyyy")
m = Format(ws.Range("C12"), "mm")

link = "D:\Users\D801878\Int'l\Billing\" & y & "_" & m & "\Billing_Template_International_" & y & "_" & m & ".xlsx"

Workbooks.Open link

未找到VBA Open Workbooks文件

1 个答案: