KB-34325: Valores de data/hora em nomes de arquivos.

Descrição:

Como posso fazer com que o nome de um arquivo seja um intervalo de data/hora, definido em Setpoints? Se tento fazer como no exemplo, é retornado um erro de script:

Report.Export “EXCEL”, “C:\Relatório-” & Screen.Item(“SPdata1″).Value & ” á ” & Screen.Item(“SPData2”).Value & “.XLS”

Solução:

O problema neste caso é que o valor do Setpoint contém caracteres inválidos ( “/” e “:” ) para nomes de arquivos do Windows. A solução é substituir estes caracteres por algum outro válido, através do método Replace.

Exemplo de script:

dxi = Screen.Item(“SPdata1”).Value
dxi = Replace(dxi,”/”,”-“)
dxi = Replace(dxi,”:”,”-“)
dxf = Screen.Item(“SPdata2”).Value
dxf = Replace(dxf,”/”,”-“)
dxf = Replace(dxf,”:”,”-“)
Set Report = Application.LoadReport(“[Relatório]”)
Report.Export “EXCEL”, “C:\Relatório-” & dxi & ” á ” & dxf & “.XLS”