Início
NADIRONUNES 24/11/2022, 10:40bom dia a Todos
eu uso esse codigo pra transferir dados de uma tabela pra uma planilha no excel, mas queria definir dados pra cada coluna no excel
xls.ActiveCell.CopyFromRecordset RS esse alinha envia os dados pro excel ne entao queria definir as colunas pra cada dados
eu uso esse codigo pra transferir dados de uma tabela pra uma planilha no excel, mas queria definir dados pra cada coluna no excel
- Código:
Public Function TransMcxls()
Dim xls As Object
Parametros_de_CaminhoDR "SysCaminhoDrServidor.par"
Parametros_de_Periodo "SysData.jas"
Call CopiaFicheiro
strXls = Dr_caminhoCartoes & Trim(UCase(RemoveAcento(Format(m_Mes, "mmmm-yyyy")))) & ".xlsx"
Set xls = CreateObject("Excel.Application")
Dim filtro
filtro = Format(M_I, "mm/dd/yyyy") & "' AND '" & Format(M_F, "mm/dd/yyyy")
xls.Workbooks.Open (strXls)
Set xlsht = xls.Worksheets(1) ' 1 é a primeira planilha
xls.Visible = False
' xls.Worksheets("Cartoes").Activate
xls.ActiveSheet.Range("B38") = "RECEBIMENTOS DE CLIENTES "
Call Conectar
sql = "SELECT MCartoes.DATA, MCartoes.CIELOCREDITO, MCartoes.CIELODEBITO,TCielo, MCartoes.FORTCARDCREDITO, MCartoes.REDECREDITO, MCartoes.REDEDEBITO,TRede, MCartoes.ALELO, MCartoes.VEGASCARD, MCartoes.PRIMECREDITO" & vbCrLf & _
"FROM MCartoes " & vbCrLf & _
"WHERE MCartoes.DATA Between '" & filtro & "'" & vbCrLf & _
"ORDER BY MCartoes.Data;"
Set rst = Conexao.Execute(sql, 4)
xls.ActiveSheet.Range("B3").Value = "DATA"
xls.ActiveSheet.Range("B3").Font.Bold = True
xls.ActiveSheet.Range("B4").Select
xls.ActiveCell.CopyFromRecordset rst
'Range("B3").Font.color = vbRed
xls.ActiveWorkbook.Save
mysql = "SELECT Lanccar.DataLanc,Lanccar.nomeCliente, Lanccar.VlrLC,Lanccar.Descricao, Lanccar.tP" & vbCrLf & _
"FROM Lanccar " & vbCrLf & _
"WHERE Lanccar.DataLanc Between '" & filtro & "' And Tp='AV'" & vbCrLf & _
"ORDER BY Lanccar.DataLanc;"
Set RS = Conexao.Execute(mysql, 4)
xls.ActiveSheet.Range("B40").Select
xls.ActiveCell.CopyFromRecordset RS
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
Call Desconectar
End Function
xls.ActiveCell.CopyFromRecordset RS esse alinha envia os dados pro excel ne entao queria definir as colunas pra cada dados
