引用命名的工作表和单元格VBA
我正在尝试编写一个macros来自动化销售pipe道电子表格。 我目前有一个维度作为今天的date，所以它不会是连续两天相同。
我想在macros中的公式将表格名称更改为今天的date，但是我现在无法做到这一点。
Sub GetPivotData() Dim sToday As String sToday = Format(Date, "dd.mm.yy") Range("C2").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(GETPIVOTDATA(""Opportunity"",'28.06.16'!R34C28,""Status"",""Open"",""Probability"",20,""Sales Territory"",R[2]C[6]),0)" Range("C3").Select End Sub 我希望能够改变“.06.16”引用的“今天”维度，因为它每天都在变化，但是它不允许。 能否请你帮忙。
将variables连接到公式string中。
Option Explicit Sub GetPivotData() Dim sToday As String sToday = Format(Date, "dd.mm.yy") With Worksheets("Sheet1") '<~~ you should know what worksheet you are on! .Range("C2").FormulaR1C1 = _ "=IFERROR(GETPIVOTDATA(""Opportunity"",'" & sToday & "'!R34C28,""Status"",""Open"",""Probability"",20,""Sales Territory"",R[2]C[6]),0)" End With End Sub
尝试这个：
Application.workbooks（“YourWorkbook”）。sheets（“YourSheetname”）。name = sToday