Vinícius Trindade

Prezados, boa tarde. Tenho pouco conhecimento e preciso de ajuda. Preciso programa essa macro para repetir de 30 em 30 minutos. Sobrepondo a informação anterior. Sub EXPORTAR_IMPORTAR() wb = "PARCIAL.xlsb" Application.ScreenUpdating = False Usuario = Environ("USERNAME") A = "C:\Users\" & Usuario & "\Desktop\MIS\Rep.txt" Base = Range("C1") Set acsApp = CreateObject("ACSUP.cvsApplication") Set acsSrv = acsApp.Servers.Item(1) For J = 2 To Application.WorksheetFunction.CountA(Workbooks(wb).Worksheets(Base).Range("H2:H95000")) With Workbooks(wb).Worksheets(Base) acsSrv.Reports.ACD = .Range("B3") b = acsSrv.Reports.CreateReport(acsSrv.Reports.Reports(.Range("B1")), Rep) Rep.SetProperty "VDNs", .Range("H" & J) Rep.SetProperty "Datas", .Range("B4") b = Rep.ExportData("C:\Users\" & Usuario & "\Desktop\MIS\Bases do Boletim\Historico de Volume\" & .Range("J" & J).Value & ".xls", 9, 0, 1, 1, 1) b = Rep.ExportData(A, 9, 0, 1, 1, 1) Rep.Quit With Workbooks(wb).Worksheets("TRATAR") .Range("A:AQ").ClearContents .Select With .QueryTables.Add(Connection:="TEXT;" & A, Destination:=Range("A1")) .Name = "rep" .Refresh BackgroundQuery:=False .Delete End With X = Application.WorksheetFunction.CountA(.Range("A4:A50")) + 3 If X = 3 Then GoTo Sair Y = Application.WorksheetFunction.CountA(Workbooks(wb).Worksheets("BASE").Range("F1:F65000")) + 1 Workbooks(wb).Worksheets("BASE").Range("F" & Y & ":F" & X - 4 + Y) = .Range("A4:A" & X).Value Workbooks(wb).Worksheets("BASE").Range("H" & Y & ":P" & X - 4 + Y) = .Range("B4:J" & X).Value Workbooks(wb).Worksheets("BASE").Range("D" & Y & ":E" & X - 4 + Y) = Workbooks(wb).Worksheets(Base).Range("J" & J & ":K" & J).Value End With End With Sair: Next J With Workbooks(wb).Worksheets("BASE") X = Application.WorksheetFunction.CountA(.Range("F2:F65000")) + 1 .Range("G2" & ":G" & X).Formula = "=SUM(RC[1]:RC[2])" .Range("G2" & ":G" & X) = .Range("G2" & ":G" & X).Value End With End Sub