<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Change data for SAS Add-In in Microsoft Integration with SAS</title>
    <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176963#M1517</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;I am also trying to change a data source, from one Mart map to another. I have a workbook with multiple sheets, and nearly 70 connections to 3 Maps. I'm trying to change the maps used, from "SASApp_Prod:Map1" to "SASApp_Development:Map2" If I try the 'Change Data Source' method all I see under Connection Properties/Definition is, for example, Connection Name: Connection56 and Connection Type: ADO Recordset, all other fields are greyed out.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I have tried multiple VBA connection properties to see the values of various VBA properties, and the only ones I seem to be able to see are Name, Type (always 1),Description (always blank) and InModel (always False).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; Sub FindPivotConnections()&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim ws As Worksheet&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim pvt As PivotTable&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim i&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim conn As WorkbookConnection&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim strConn As String&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim arrConn As Variant&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; '*************************************************&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; 'Code between asterisk lines for information only&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; 'For i = 1 To ThisWorkbook.Connections.Count&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; For i = 55 To 56&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set conn = ThisWorkbook.Connections(i)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.name " &amp;amp; i &amp;amp; "= " &amp;amp; conn.Name&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.Type " &amp;amp; i &amp;amp; "= " &amp;amp; conn.Type&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.Description " &amp;amp; i &amp;amp; "= " &amp;amp; conn.Description&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.InModel " &amp;amp; i &amp;amp; "= " &amp;amp; conn.InModel&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Next i&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I've tried code to change the connection string:&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Sub QueryChange()&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim sh As Worksheet, qy As QueryTable&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim pt As PivotTable, pc As PivotCache&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim OldPath As String, NewPath As String&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim rng As Range&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'Replace the following paths with the original path or server name&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'where your database resided, and the new path or server name where&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'your database now resides.&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath = "SASApp_Prod"&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; NewPath = "SASApp_Development"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each ws In ActiveWorkbook.Sheets&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each qy In ws.QueryTables&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; qy.Connection = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.Substitute(qy.Connection, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath)&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; qy.CommandText = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; StringToArray(Application.Substitute(qy.CommandText, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath))&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; qy.Refresh&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next qy&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each pt In ws.PivotTables&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.Connection = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.Substitute(pt.PivotCache.Connection, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath)&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; On Error Resume Next&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.CommandText = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; StringToArray(Application.Substitute(pt.PivotCache.CommandText, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath))&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; If Err.Number &amp;lt;&amp;gt; 0 Then&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Err.Clear&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; On Error GoTo 0&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.ScreenUpdating = False&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set rng = pt.TableRange2&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.TableRange2.Copy Workbooks.Add(xlWorksheet).Worksheets(1) _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .Range("A1")&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ActiveCell.PivotTable.PivotCache.CommandText = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; StringToArray(Application.Substitute(pt.PivotCache.CommandText, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath))&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ActiveCell.PivotTable.TableRange2.Copy pt.TableRange2&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ActiveWorkbook.Close False&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set pt = rng.PivotTable&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.ScreenUpdating = True&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.Refresh&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next pt&lt;BR /&gt;Next ws&lt;BR /&gt;End Sub&lt;/P&gt;&lt;P&gt;Function StringToArray(Query As String) As Variant&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Const StrLen = 127&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Dim NumElems As Integer&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Dim Temp() As String&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; NumElems = (Len(Query) / StrLen) + 1&lt;BR /&gt;&amp;nbsp;&amp;nbsp; ReDim Temp(1 To NumElems) As String&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; For i = 1 To NumElems&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Temp(i) = Mid(Query, ((i - 1) * StrLen) + 1, StrLen)&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Next i&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; StringToArray = Temp&lt;/P&gt;&lt;P&gt;End Function&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;but this failed on&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.Connection = _&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.Substitute(pt.PivotCache.Connection, _&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath)&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I can't even see what PivotCache.Connection is.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I'm using Excel 2013, SAS Add-In 5.1 and my Mart maps are on a metadata server.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Any ideas?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks&lt;/P&gt;&lt;P&gt;Barry&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Thu, 09 Apr 2015 13:49:44 GMT</pubDate>
    <dc:creator>Bazza669</dc:creator>
    <dc:date>2015-04-09T13:49:44Z</dc:date>
    <item>
      <title>Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176958#M1512</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;After some searching I could not find an answer to this question.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I have an Excel file with multiple pivots connected to SAS data via SAS Add-In.&amp;nbsp; I would like to change the SAS data set to another SAS data set (in the same directory).&amp;nbsp; Does SAS Add-In allow this?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 18 Nov 2014 20:12:09 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176958#M1512</guid>
      <dc:creator>GVeers</dc:creator>
      <dc:date>2014-11-18T20:12:09Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176959#M1513</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Yes. Open the SAS Data icon under the Excel SAS tab, then select the Browse button to find a different table, either by folder or by SAS server.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 18 Nov 2014 22:57:33 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176959#M1513</guid>
      <dc:creator>SASKiwi</dc:creator>
      <dc:date>2014-11-18T22:57:33Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176960#M1514</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Thanks for the reply.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;When I do this, it creates a new pivot table with the new data.&amp;nbsp; Even if I add this new connection, and then change the data source for my pivot table (using Change Data Source), it wipes out all the formatting for the pivot table and is effectively like rebuilding the file.&amp;nbsp; Is there a way I can maintain the pivot table while swapping datasets?&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 19 Nov 2014 14:15:12 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176960#M1514</guid>
      <dc:creator>GVeers</dc:creator>
      <dc:date>2014-11-19T14:15:12Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176961#M1515</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;If anyone is curious, the way I found to do it is to go into Change Data Source for the pivot table and right click the Connection option.&amp;nbsp; There you can directly modify the path of the data.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 25 Nov 2014 13:37:28 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176961#M1515</guid>
      <dc:creator>GVeers</dc:creator>
      <dc:date>2014-11-25T13:37:28Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176962#M1516</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi GVeers,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;i face the same problem now and then when i have to change the data source for an existing Excel Report. I'm not sure what 'wipes out all the formatting' means. Is this about the Formats like showing numbers with 2 digits or do you talk about the selected columns und the filters (which are definitely lost when changing the data source).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Cheers, Thomas&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 05 Dec 2014 07:59:37 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176962#M1516</guid>
      <dc:creator>ThomasHirsch</dc:creator>
      <dc:date>2014-12-05T07:59:37Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176963#M1517</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;I am also trying to change a data source, from one Mart map to another. I have a workbook with multiple sheets, and nearly 70 connections to 3 Maps. I'm trying to change the maps used, from "SASApp_Prod:Map1" to "SASApp_Development:Map2" If I try the 'Change Data Source' method all I see under Connection Properties/Definition is, for example, Connection Name: Connection56 and Connection Type: ADO Recordset, all other fields are greyed out.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I have tried multiple VBA connection properties to see the values of various VBA properties, and the only ones I seem to be able to see are Name, Type (always 1),Description (always blank) and InModel (always False).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; Sub FindPivotConnections()&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim ws As Worksheet&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim pvt As PivotTable&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim i&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim conn As WorkbookConnection&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim strConn As String&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Dim arrConn As Variant&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; '*************************************************&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; 'Code between asterisk lines for information only&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; 'For i = 1 To ThisWorkbook.Connections.Count&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; For i = 55 To 56&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set conn = ThisWorkbook.Connections(i)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.name " &amp;amp; i &amp;amp; "= " &amp;amp; conn.Name&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.Type " &amp;amp; i &amp;amp; "= " &amp;amp; conn.Type&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.Description " &amp;amp; i &amp;amp; "= " &amp;amp; conn.Description&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MsgBox "Conn.InModel " &amp;amp; i &amp;amp; "= " &amp;amp; conn.InModel&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Next i&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I've tried code to change the connection string:&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Sub QueryChange()&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim sh As Worksheet, qy As QueryTable&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim pt As PivotTable, pc As PivotCache&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim OldPath As String, NewPath As String&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim rng As Range&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'Replace the following paths with the original path or server name&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'where your database resided, and the new path or server name where&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'your database now resides.&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath = "SASApp_Prod"&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; NewPath = "SASApp_Development"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each ws In ActiveWorkbook.Sheets&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each qy In ws.QueryTables&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; qy.Connection = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.Substitute(qy.Connection, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath)&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; qy.CommandText = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; StringToArray(Application.Substitute(qy.CommandText, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath))&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; qy.Refresh&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next qy&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each pt In ws.PivotTables&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.Connection = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.Substitute(pt.PivotCache.Connection, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath)&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; On Error Resume Next&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.CommandText = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; StringToArray(Application.Substitute(pt.PivotCache.CommandText, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath))&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; If Err.Number &amp;lt;&amp;gt; 0 Then&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Err.Clear&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; On Error GoTo 0&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.ScreenUpdating = False&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set rng = pt.TableRange2&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.TableRange2.Copy Workbooks.Add(xlWorksheet).Worksheets(1) _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .Range("A1")&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ActiveCell.PivotTable.PivotCache.CommandText = _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; StringToArray(Application.Substitute(pt.PivotCache.CommandText, _&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath))&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ActiveCell.PivotTable.TableRange2.Copy pt.TableRange2&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ActiveWorkbook.Close False&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set pt = rng.PivotTable&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.ScreenUpdating = True&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.Refresh&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next pt&lt;BR /&gt;Next ws&lt;BR /&gt;End Sub&lt;/P&gt;&lt;P&gt;Function StringToArray(Query As String) As Variant&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; Const StrLen = 127&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Dim NumElems As Integer&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Dim Temp() As String&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; NumElems = (Len(Query) / StrLen) + 1&lt;BR /&gt;&amp;nbsp;&amp;nbsp; ReDim Temp(1 To NumElems) As String&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; For i = 1 To NumElems&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Temp(i) = Mid(Query, ((i - 1) * StrLen) + 1, StrLen)&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Next i&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp; StringToArray = Temp&lt;/P&gt;&lt;P&gt;End Function&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;but this failed on&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt.PivotCache.Connection = _&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.Substitute(pt.PivotCache.Connection, _&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; OldPath, NewPath)&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I can't even see what PivotCache.Connection is.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I'm using Excel 2013, SAS Add-In 5.1 and my Mart maps are on a metadata server.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Any ideas?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks&lt;/P&gt;&lt;P&gt;Barry&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 09 Apr 2015 13:49:44 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176963#M1517</guid>
      <dc:creator>Bazza669</dc:creator>
      <dc:date>2015-04-09T13:49:44Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176964#M1518</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Our group is trying to find a solution to this question as well.&amp;nbsp; We have many Excel workbooks that use tables or pivots that link to SAS data.&amp;nbsp; Whenever one the following events happen, significant (re)work is required to reconnect the exhibit and fix/rebuild the pivot tables.&lt;/P&gt;&lt;UL&gt;&lt;LI&gt;The underlying data is changed (i.e. data elements are added/changed)&lt;/LI&gt;&lt;LI&gt;Name of data table changes&lt;/LI&gt;&lt;LI&gt;Location of data changes&lt;/LI&gt;&lt;LI&gt;Server changes/updates&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;We are about to migrate to a different server; so a solution to this issue would be greatly appreciated. &lt;/P&gt;&lt;P&gt;Thanks,&lt;BR /&gt;Jon&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 15 May 2015 19:50:10 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176964#M1518</guid>
      <dc:creator>JonMah</dc:creator>
      <dc:date>2015-05-15T19:50:10Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176965#M1519</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;The &lt;STRONG&gt;Migration Wizard&lt;/STRONG&gt; might be a handy tool for your purpose of migration from one server to another server. &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;There's a migration wizard program in the SAS EG and MS Add-in program folder within /SASHOME in each client installation. No special permission is required to run the MigrationWizard.exe program. The wizard allows you to update the metadata references in your EG projects SAS content reference in MS Office. It can definitely perform some of the metadata changes mentioned in the discussion up to certain degree, unrelated to migration as the utility's name implies.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Hope this helps.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 28 May 2015 02:17:15 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176965#M1519</guid>
      <dc:creator>Guest007</dc:creator>
      <dc:date>2015-05-28T02:17:15Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176966#M1520</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Offload the handling of the data into SAS and define a stable interface to the Excel tables. Then you can make sure (eg through keep lists and creating fixed name datasets - data excel_result; set &amp;amp;whatever_it_is_named; run;) that the tables used by excel always stay the same.&lt;/P&gt;&lt;P&gt;If possible, I'd even do the pivotting in SAS; it's more complicated, but once set up, it is easily automated and documented.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 28 May 2015 05:54:54 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176966#M1520</guid>
      <dc:creator>Kurt_Bremser</dc:creator>
      <dc:date>2015-05-28T05:54:54Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176967#M1521</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;This worked for me as well.&amp;nbsp; This is the &lt;STRONG&gt;correct answer&lt;/STRONG&gt;!&amp;nbsp; Thanks a lot!!&amp;nbsp;&amp;nbsp; :smileycool:&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P style="padding-left: 30px;"&gt;&lt;SPAN style="font-family: 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: #ffffff;"&gt;"If anyone is curious, the way I found to do it is to go into Change Data Source for the pivot table and right click the Connection option.&amp;nbsp; There you can directly modify the path of the data."&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;First you add the new SAS data table with the "Open SAS Data" button, then you just switch all the pivot tables' connections to the new connection you've created.&amp;nbsp; &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;-Sean&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 28 May 2015 17:04:17 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/176967#M1521</guid>
      <dc:creator>seanrez</dc:creator>
      <dc:date>2015-05-28T17:04:17Z</dc:date>
    </item>
    <item>
      <title>Re: Change data for SAS Add-In</title>
      <link>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/411418#M2156</link>
      <description>&lt;P&gt;Wow, thanks. That saved my bacon.&lt;/P&gt;</description>
      <pubDate>Wed, 08 Nov 2017 03:34:43 GMT</pubDate>
      <guid>https://communities.sas.com/t5/Microsoft-Integration-with-SAS/Change-data-for-SAS-Add-In/m-p/411418#M2156</guid>
      <dc:creator>KHaavik</dc:creator>
      <dc:date>2017-11-08T03:34:43Z</dc:date>
    </item>
  </channel>
</rss>

