Question

我想让用户从给定的年/月等中提取文件，并将数据带入我正在处理的文件中。

为此，我创建了一个“参数”表，我在其中标记了单元格“Year”和“Month”。当我将这些变量放在代码中时，它会触发错误。我相信我正在宣布Y和Z不正确，并且也很难将它连接到最后一行。我在没有Y / Z变量和实际文件位置的情况下测试了代码并且它可以工作。

Dim wkb As Workbook
Dim wks As Worksheet
Dim Y As String
Dim Z As String
Y = ThisWorkbook.Sheets("Parameters").Cells("Year")
Z = ThisWorkbook.Sheets("Parameters").Cells("Month")
Set wkb = Workbooks.Open("W:\01-Forecasts\&Y&\Monthly Forecast\&Z&\File.xlsm")

Answer 1

使用Range而不是Cells()

所有vba变量都必须在引号之外并与&

连接

Dim wkb As Workbook
Dim wks As Worksheet
Dim Y As String
Dim Z As String
Y = ThisWorkbook.Sheets("Parameters").Range("Year")
Z = ThisWorkbook.Sheets("Parameters").Range("Month")
Set wkb = Workbooks.Open("W:\01-Forecasts\" & Y & " \Monthly Forecast\" & Z & "\File.xlsm")

允许用户填写数据

1 个答案: