Prezados, bom dia a todos.
Preciso de uma ajuda. Através da rotina abaixo exporto dados do formulário principal para uma planilha em Excel.
Acontece que mesmo depurando o mesmo, aparece o nome que consta no formulário principal, mas ao abrir a planilha consta outro nome de outro cliente.
A rotina que tem no subformulário está rodando legal...
Abaixo a rotina.
Alguém poderia me dar uma luz ?? Já refiz....já mexi...e não consigo entender o que há de errado nessa rotina.
Tanto que exportei para uma planilha completamente vazia e o " erro " ocorre.
Preciso de uma ajuda. Através da rotina abaixo exporto dados do formulário principal para uma planilha em Excel.
Acontece que mesmo depurando o mesmo, aparece o nome que consta no formulário principal, mas ao abrir a planilha consta outro nome de outro cliente.
A rotina que tem no subformulário está rodando legal...
Abaixo a rotina.
- Código:
Dim RstFrm As DAO.Recordset, RstSubFrm As DAO.Recordset, l As Integer
Dim MeuExcel As Object
Set MeuExcel = CreateObject("Excel.Application")
MeuExcel.Visible = True
MeuExcel.Workbooks.Open FileName:=CurrentProject.Path & "\ZAROO.xlsx" 'ZAROO é o nome da planilha e tem que estar no mesmo folder do sistema
Set RstFrm = Me.RecordsetClone
RstFrm.Bookmark = Me.RecordsetClone.Bookmark
MeuExcel.Range("C7") = RstFrm("cliente") '
MeuExcel.Range("S7") = RstFrm("NomeFantasia") '
MeuExcel.Range("C13") = RstFrm("CNPJ") '
MeuExcel.Range("C14") = RstFrm("InscrEstadual") '
MeuExcel.Range("C8") = RstFrm("endereco") & " ," & RstFrm("Numero") '
MeuExcel.Range("C9") = RstFrm("Bairro") '
MeuExcel.Range("C10") = RstFrm("Cidade") '
MeuExcel.Range("C11") = RstFrm("Estado") '
MeuExcel.Range("C12") = RstFrm("CEP") '
MeuExcel.Range("H11") = RstFrm("Fone") & " / " & RstFrm("Celular") '
MeuExcel.Range("C16") = RstFrm("EmailNF") '
MeuExcel.Range("H13") = RstFrm("Prazoculta") '
MeuExcel.Range("S6") = RstFrm("ContatoCliente") '
MeuExcel.Range("S4") = RstFrm("DataPed")
MeuExcel.Range("S3") = RstFrm("VendedorOculta") '
MeuExcel.Range("B23") = RstFrm("Observacao") '
MeuExcel.Range("V2") = RstFrm("NossoPedido") '
Alguém poderia me dar uma luz ?? Já refiz....já mexi...e não consigo entender o que há de errado nessa rotina.
Tanto que exportei para uma planilha completamente vazia e o " erro " ocorre.