Como exportar um relatório para o excel sem indicar o caminho?

#1

Estou usando o seguinte script para exportar os relatórios:
'Define variável para carregar o relatório
Set Report = Application.LoadReport(“RelHistAlarme”)

'Define variável consulta como pesquisa no banco de dados
Set Consulta = Report.Query()

'Aquisita valores das variáveis
Consulta.SetVariableValue "DataInicial", Screen.Item("TextoDataInicial").Value
Consulta.SetVariableValue "DataFinal", Screen.Item("TextoDataFinal").Value
		
'Seleciona os tipos de formatos
Select case Application.SelectMenu("PDF|HTML|Excel")

	'Caso PDF
	case 1
		If Application.ShowFilePicker(False, NomeArquivo,"pdf", _
			128, "Arquivos PDF|*.pdf|Todos os arquivos|*.*") Then
			Report.Export "PDF", NomeArquivo
		End If	
            'Caso HTML
	case 2
		If Application.ShowFilePicker(False, NomeArquivo,"html", _
			128, "Arquivos html|*.html|Todos os arquivos|*.*") Then
			Report.Export "HTML", NomeArquivo
		End If	
          case 3
	
		If Application.ShowFilePicker(False, NomeArquivo,"xls", _
			128, "Arquivos Excel|*.xls|Todos os arquivos|*.*") Then
			Report.Export "XLS", NomeArquivo
		End If

End Select

Porém na hora do excel ele da erro.
Se eu indico o caminho, apesar de que o logo sobrepõem as variáveis o arquivo é criado.
Script indicando o caminho:

		'NomeArq = InputBox("Entre com o nome do arquivo","Criar Arquivo","Relatório_Alarme")
		'If NomeArq = "" Then
		'	Exit Sub
		'End If
		
		'Report.Export "EXCEL", "C:\Relatórios\" & NomeArq & ".XLS"
		'R = MsgBox ("Exportado no formato Excel para:" & VbCrlf & "C:\Relatórios\" & NomeArq & ".xls", vbSystemModal + vbExclamation," Exportação Concluída")
#2

@Raphael_pecontrol, boa tarde.

Qual erro aparece?

Sds.

#3

forumelipse2

o cbPrintAlarm é o nome do botão
e a linha 56 está esse trecho:
Report.Export “XLS”, NomeArquivo

#4

@Raphael_pecontrol

Troca esta linha:
Report.Export "XLS", NomeArquivo

Por esta:
Report.Export "EXCEL", NomeArquivo

Sds.

1 Like