- 15 Set 2017 às 17:58
#26568
Olá a todos, boa tarde.
Preciso de uma ajuda da comunidade. Eu tinha uma loja hospedada na plataforma Loja2, hoje precisei baixar a listagem de vendas com e-mail e telefone. O que acontece é que a plataforma não da suporte para isso então resolvi criar uma macro para alimentar o excel. Manualmente não da pois estamos falando de mais de 800 pedidos então deve ser automatizada.
O que preciso: alimentar o excel com o numero de telefone e e-mail.
Onde colho as informações?: Tenho uma listagem assim:
Coluna A com o endereço do pedido gerado, coluna b e c para alimentar o excel
O que consegui até agora:
O código gera erro neste trecho: ".CommandType = 0"
Obviamente este erro parece ser o JS, tem alguma outra forma de se fazer isso funcionar?
ps: mesmo jogando o link do pedido é necessário manter-se logado
Preciso de uma ajuda da comunidade. Eu tinha uma loja hospedada na plataforma Loja2, hoje precisei baixar a listagem de vendas com e-mail e telefone. O que acontece é que a plataforma não da suporte para isso então resolvi criar uma macro para alimentar o excel. Manualmente não da pois estamos falando de mais de 800 pedidos então deve ser automatizada.
O que preciso: alimentar o excel com o numero de telefone e e-mail.
Onde colho as informações?: Tenho uma listagem assim:
Coluna A com o endereço do pedido gerado, coluna b e c para alimentar o excel
O que consegui até agora:
Código: Selecionar todos
Sub Macro6()
'
' Macro6 Macro
'
'
ActiveCell.Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://venusbela.loja2.com.br/cart/3214555", Destination:=Range("$K$19") _
)
.CommandType = 0
.Name = "3214555_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=66
ActiveCell.Offset(73, 4).Range("A1").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-72
ActiveCell.Offset(-73, -4).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=60
ActiveCell.Offset(74, 4).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-102
ActiveCell.Offset(-74, -3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll Down:=42
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(4, -2).Range("A1").Select
End Sub
O código gera erro neste trecho: ".CommandType = 0"
Obviamente este erro parece ser o JS, tem alguma outra forma de se fazer isso funcionar?
ps: mesmo jogando o link do pedido é necessário manter-se logado
