I’ve been using this for years – thanks for posting! I find it very helpful in conjunction with Firefox’s keyword shortcuts.

Our marketing group recently needed a way to pass a parameter to a report via “Connect for Office” (the Excel plugin that is supported by Salesforce). The only way I could figure it out is to write a little macro that uses your pv0 trick (see below). It’s still in the works, but thanks for posting your trick!

Peter

Sub ImportReport()
Dim url As String
Dim wSSummary As Worksheet
Dim wSData As Worksheet

Set wSSummary = Sheets(“Summary Sheet”)
Set wSData = Sheets(“Data Sheet”)

‘ Clear data sheet
LastRow = wSData.UsedRange.Rows.Count
wSData.Range(“1:1″, wSData.UsedRange.Rows.Count & “:” & wSData.UsedRange.Rows.Count).Delete

‘ Import 00O30000004W4B4 report to data sheet using parameter on Summary!C4
url = “URL;https://na1-api.salesforce.com/00O30000004W4B4?isExcel=1&pv0=” & _
wSSummary.Range(“C4″) & _
“&export=1&xf=cls&enc=UTF-8″
With wSData.QueryTables.Add(Connection:=url, Destination:=wSData.Range(“A1″))
.Name = “Data Import”
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh
End With

‘ The last 5 rows are report metadata
wSData.Range(wSData.UsedRange.Rows.Count – 5 & “:” & wSData.UsedRange.Rows.Count – 5, wSData.UsedRange.Rows.Count & “:” & wSData.UsedRange.Rows.Count).Delete

‘ Reports are imported as csv, reformat to columns
wSData.Range(“A:A”).TextToColumns Destination:=wSData.Range(“A1″), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
TrailingMinusNumbers:=True

wSData.Range(“A:A”).Columns.AutoFit

End Sub