Excel VBA 变量外部链接公式

Question

我无法使用 VBA 公式。我正在尝试将 SalesEast 文件（后来更改为 East Workbook）中的单元格 Q8 引入 SalesAnalysis Workbook（后来更改为 Analysis Workbook）。我不认为可以使用 INDIRECT，因为将在没有打开 East Workbook 的情况下打开 Analysis Workbook。此宏将每月运行一次，因此文件名将每月更改。任何帮助将不胜感激。

Sub FixSales()

Dim OpenPath As String
Dim SalesAnalysis As String
Dim SalesSupport As String
Dim SalesEast As String
Dim SalesWest As String
Dim Analysis As Workbook
Dim East As Workbook
Dim West As Workbook
Dim Support As Workbook

OpenPath = "F:\budget\Expense Analysis\2018\2018_Q1\"
SalesAnalysis = "Sales Analysis " & Format(DateSerial(Year(Now), Month(Now), 
0), "MM_YY") & ".xlsx"
SalesEast = "Sales East " & Format(DateSerial(Year(Now), Month(Now), 0), 
"MM_YY") & ".xlsx"
SalesWest = "Sales West " & Format(DateSerial(Year(Now), Month(Now), 0), 
"MM_YY") & ".xlsx"
SalesSupport = "Sales Support " & Format(DateSerial(Year(Now), Month(Now), 
0), "MM_YY") & ".xlsx"

Workbooks.Open FileName:=OpenPath & SalesAnalysis
Set Analysis = ActiveWorkbook
Workbooks.Open FileName:=OpenPath & SalesSupport
Set Support = ActiveWorkbook
Workbooks.Open FileName:=OpenPath & SalesEast
Set East = ActiveWorkbook
Workbooks.Open FileName:=OpenPath & SalesWest
Set West = ActiveWorkbook

Analysis.Activate
Sheets("Prior YTD to Curr YTD").Select
Range("C8").Select
ActiveCell.Formula = "= ""sum('"" & OpenPath & ""["" & SalesEast & ""]"" & 
""Prior YTD to Curr YTD'!Q8)""'"

End Sub

谢谢。

Answer 1

该公式仅引用另一个工作簿中的单元格，因此不需要求和。还有单引号放错了，双引号太多了。

试试这个：

Range("C8").Formula = "='" & OpenPath & "[" & SalesEast & "]Prior YTD to Curr YTD'!Q8)"