Postagens
Não informado
o problema é que ele sempre da aquele erro dizendo que o nome do campo não é valido
que problema pode ser?
CODE
Sheets("dados").Select
Range("J15").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("a1").Select
Selection.End(xlDown).Select
l = Selection.Offset(1, 0).Select
l = ActiveCell.Row
Dim b As String
b = "C:\Users\Administrador\Desktop\[pedidos a vista.xls]pedidos!L1C1:L" & l & "C9"
Sheets("tabela").Select
Range("C17").Select
ActiveSheet.PivotTables("Tabela dinâmica1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
b, Version:=xlPivotTableVersion10)
