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.
No processo de importação o seguinte erro.
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