Erro ao gerar relatório automático diário

#1

Estou com problemas ao tentar gerar o relatório diário no automático
alguém pode me ajudar?
Sub reltaut_OnPreset()
dim dataini, datafim, hora1, horaini, hora2, horafim, dia
dia = date
hora1 = #0:00:01 AM#
horaini = CDate(hora1)
hora2 = #7:00:59 AM#
horafim = CDate(hora2)
dataini = dia & hora1
datafim = dia & hora2
Set Report = Application.LoadReport(“RelatorioSecao1”)
Report.Item(“Consulta1”).SetVariableValue"inicio",dataini
Report.Item(“Consulta1”).SetVariableValue"fim", datafim
Report.Export “PDF” , “c:\relatorio.PDF”
End Sub
Quando rodo a aplicação, dá erro na linha 13

#2

Provalvemente o erro ocorra por questões de permissão ao tentar salvar um arquivo diretamente na raiz do disco c:\. Tente salvar dentro de uma pasta.

Sub reltaut_OnPreset()
    Dim dataini, datafim, hora1, horaini, hora2, horafim, dia
    Dim fso, folderPath, reportPath

    dia = Date
    hora1 = #0:00:01 AM#
    horaini = CDate(hora1)
    hora2 = #7:00:59 AM#
    horafim = CDate(hora2)

    dataini = dia & hora1
    datafim = dia & hora2

    Set fso = CreateObject("Scripting.FileSystemObject")
    folderPath = "C:\temp"
    If Not fso.FolderExists(folderPath) Then
        On Error Resume Next
        fso.CreateFolder(folderPath)
        If Err.Number <> 0 Then
            MsgBox "Erro ao criar pasta '" & folderPath & "': " & Err.Description
            Exit Sub
        End If
        On Error GoTo 0
    End If

    reportPath = fso.BuildPath(folderPath, "relatorio.pdf")
    
    Set Report = Application.LoadReport("RelatorioSecao1")
    Report.Item("Consulta1").SetVariableValue "inicio", dataini
    Report.Item("Consulta1").SetVariableValue "fim", datafim
    Report.Export "PDF", reportPath
End Sub
#3

Problema resolvido, eu estava concatenando data e horario de forma errada. Muito Obrigado