AW: Pivot Abfrage ändern - Datenbank bleibt
22.01.2009 12:08:00
lutz
Hallo, habe folgendes Makro gefunden:
Sub BtnTabelleWechselTableJC()
Dim wb As Workbook
Dim pvtCache As PivotCache
Dim s As String
Dim vAlt, vNeu As String
'NIT
Set wb = ActiveWorkbook
'On Error Resume Next
'hole den ersten und einzigen Cache der Seite
Set pvtCache = wb.PivotCaches(1)
'CONNECTION Auf DB_AB erzwingen
s = pvtCache.Connection
If Not InStr(1, s, "db2.mdb", vbTextCompare) > 0 Then
s = Replace(s, "db2", "db2", , vbTextCompare)
pvtCache.Connection = s
pvtCache.CommandText = Replace(pvtCache.CommandText, "db2", "db2")
End If
'SQL-TEXT
s = pvtCache.CommandText
If InStr(1, s, "NATeil2_shop", vbTextCompare) > 0 Then
s = Replace(s, "NATeil2_shop", "NATeil2", 1, , vbTextCompare)
pvtCache.CommandText = s
Else
s = Replace(s, "NATeil2", "NATeil2_shop", 1, , vbTextCompare)
pvtCache.CommandText = s
'Debug.Print s
End If
MsgBox "Fertig mit Wechsel von " & vAlt & " zu " & vNeu & vbCrLf & Err.Description
End Sub
und soweit angepasst (die Datenbank db2.mdb bleibt unverändert.
Leider steigt er in der letzten Zeile: pvtCache.CommandText = s aus.
Hat jemand eine Idee warum?