Estou gravando um macro no qual vai ser utilizado a consulta de um arquivo csv, quando coloco para depurar, a linha de códigos que alega conter erro é:
ActiveWorkbook.Queries.Add Name:="ATDFIM", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Fonte = Csv.Document(File.Contents(""2.168.79.202jotanunesDIRETORIA_ADMCOMERCIALCORPORACAOFECHAMENTO MENSALRELATORIO FECHAMENTO 2022DOCATDFIM.csv""),[Delimiter="";"", Columns=30, Encoding=65001, QuoteStyle=QuoteStyle.Csv])," & Chr(13) & "" & Chr(10) & " #""Cabeçalhos Promovidos"" = Table.PromoteHeaders(Fonte, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Tipo Alterado"" = Table.Tr" & _
"ansformColumnTypes(#""Cabeçalhos Promovidos"",{{""Protocolo"", type number}, {""Cliente"", type text}, {""Data de cadastro"", type date}, {""Data da situação"", type date}, {""Situação"", type text}, {""Assunto"", type text}, {""Subassunto"", type text}, {""Empreendimento"", type text}, {""Sigla"", type text}, {""Etapa"", type text}, {""Bloco"", type text}, {""Unida" & _
"de(s)"", type text}, {""Região do Empreendimento"", type text}, {""Origem"", type text}, {""Corretor"", type text}, {""Imobiliária"", type text}, {""Prioridade"", type text}, {""Classificação"", type text}, {""Tipo"", type text}, {""Título do atendimento"", type text}, {""Descrição"", type text}, {""Canal"", type text}, {""Humor do Cliente"", type text}, {""Encerrad" & _
"o no primeiro contato"", type text}, {""Qtd. mensagens"", Int64.Type}, {""Qtd. interações"", Int64.Type}, {""Time"", type text}, {""Regiões do Time"", type text}, {""Tempo até finalizar o atendimento"", type text}, {""Sinalizador jurídico"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo Alterado"""
