Página 1 de 1
Importar dados do Google Sheet
Enviado: 11 Set 2019 às 13:23
por guilhermesalvador
Olá!
Estou tentando importar dados de uma planilha do Google, porém, ao clicar em obter dados da web, apenas uma janela de navegador é aberta. Nos tutoriais que vejo, há um popup para inserção de link para sincronização. Caso eu tente fazer no meu Excel, ao colocar o link no pequeno navegador, dá um erro.
Onde estou errando?
Muito obrigado!
Re: Importar dados do Google Sheet
Enviado: 11 Set 2019 às 14:41
por Diego100ges
Qual a versão do seu excel?
Acredito que abaixo de 2013 você precise do suplemento PowerQuery para fazer essas conexões.
Importar dados do Google Sheet
Enviado: 11 Set 2019 às 15:07
por guilhermesalvador
Já tentei no 2010, 2013 e 2016. Em todos eles tenho o mesmo problema!
Re: Importar dados do Google Sheet
Enviado: 11 Set 2019 às 15:19
por Diego100ges
Estranho, na empresa onde trabalho nós utilizamos o excel 2010, então eu precisei instalar o suplemento do PowerQuery, porque eu tive esse mesmo problema, agora esta ok, vou na guia Power Query > Obter dados externos > Da Web e funciona ok.
Re: Importar dados do Google Sheet
Enviado: 11 Set 2019 às 18:45
por Basole
Veja se esta opcao em vba lhe atende
Código: Selecionar todosSub Import_GSpreadsheet()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://docs.google.com/spreadsheet/ccc?key=0Ah4Bis8FTYfCdDJILVdYOG1EZEYtc1N3NF96dHZSYkE&usp=sharing#gid=0", Destination:=Range("$A$1"))
.Name = "TestImportGsheet"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1,2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub