Exportar e Importar SQL para Excel

Boa tarde, senhores

Estou com uma, dúvida, venho desenvolvendo um script para exportar dados para excel
e importa dados do excel.
No processo de exportação estou encontrando o seguinte erro.Error%20Exporta%C3%A7%C3%A3o

No processo de importação o seguinte erro.
Error%20Importa%C3%A7%C3%A3o

Gostaria de uma ideia de onde poderia estar errando

primeiro script :

set rs = cn.execute(CStr(vExecute))
MSGBOX “OK”
'Coloca os dados no excel
if not rs.eof then
set xlApp = CreateObject(“Excel.Application”)
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(“Plan1”)

		'Display Excel and give user control of Excel's lifetime
		xlApp.Visible = False
		xlApp.UserControl = True
		
		'Copy field names to the first row of the worksheet
		fldCount = rs.Fields.Count
		
		For iCol = 1 To fldCount
			xlWs.Cells(1, iCol).Value = rs.Fields(iCol - 1).Name
		Next 
		
		recArray = rs.GetRows(-1)
		
		recCount = UBound(recArray, 2) + 1
		
		xlWs.Cells(2, 1).Resize(recCount, fldCount).Value = xlApp.WorksheetFunction.Transpose(recArray)
		
		xlApp.Selection.CurrentRegion.Columns.AutoFit
		xlApp.Selection.CurrentRegion.Rows.AutoFit
		
		'Data Inicial e Final da Planilha
		'msgbox xlWs.Cells(2, 1).Value & " / " &  xlWs.Cells(recCount+1, 1).Value
		
		xlApp.visible = true
		
	else
		msgbox "Não foi encontrado dados no intervalo especificado."
	end if

script 2:

strSQL = "INSERT INTO " & Application.Item(“BDSYS_MIN_Sala”).Value & “_Temp select * FROM OPENQUERY(EXCELLINK, ‘SELECT * FROM [Dados$]’)”

	'Insere os dados
	cn.Execute strSQL
	
	'Fecha o BD
	cn.Close
	'Limpa variável
	Set cn = Nothing

desde já grato

Você tem o Office instalado nesta máquina? Confirma se há o registro Computador\HKEY_CLASSES_ROOT\Excel.Application. Em todo caso, se um .csv for suficiente sugiro exportar via sqlcmd que é mais eficiente.

Fonte: https://stackoverflow.com/questions/425379/how-to-export-data-as-csv-format-from-sql-server-using-sqlcmd

1 Like

Para exportar os dados para o Excel, recomendo criar um Relatório. Mais detalhes no link abaixo.

Para importar os dados do Excel, dá uma olhada neste outro link: