Início
![[Resolvido]Como renomear o nome da Planilha do Excel Empty](https://2img.net/i/empty.gif)
NADIRONUNES 29/9/2022, 18:52boa tarde a Todos
como que faco pra renomear o nome da planilha do execel, mas usando o codigo no access pra alterar o nome da planilha usando esse codigo
como que faco pra renomear o nome da planilha do execel, mas usando o codigo no access pra alterar o nome da planilha usando esse codigo
- 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, MCartoes.FORTCARDCREDITO, MCartoes.REDECREDITO, MCartoes.REDEDEBITO, 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
xls.ActiveWorkbook.Save
mysql = "SELECT Lanccar.DataLanc, Lanccar.nomeCliente, Lanccar.nomeCliente, Lanccar.nomeCliente, Lanccar.nomeCliente, 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
![[Resolvido]Como renomear o nome da Planilha do Excel Favicon-16x16](https://www.udemy.com/staticx/udemy/images/v8/favicon-16x16.png)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]![[Resolvido]Como renomear o nome da Planilha do Excel Yt_16x10](https://i.servimg.com/u/f16/19/98/66/47/yt_16x10.png)
Conheça meu canal no Youtube e se inscreva.![[Resolvido]Como renomear o nome da Planilha do Excel Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)