Tudo que estiver relacionado ao Excel básico, como somar, calcular média, colocar bordas, etc.
Por guilhermesalvador 11 Set 2019 às 15:23
Membro Novato
Mensagens: 4
Reputação: 0
#48078
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!
Por Diego100ges 11 Set 2019 às 16:41
Membro 1 Estrela
Mensagens: 104
Reputação: 16
#48083
Qual a versão do seu excel?
Acredito que abaixo de 2013 você precise do suplemento PowerQuery para fazer essas conexões.
Por Diego100ges 11 Set 2019 às 17:19
Membro 1 Estrela
Mensagens: 104
Reputação: 16
#48086
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.
Avatar do usuário
Por Basole 11 Set 2019 às 20:45
Membro 1 Estrela
Mensagens: 88
Reputação: 38
#48097
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