[Resolvido]Exportar o que está no formulário para células definidas no Excel

Prezados, estou a desenvolver e a estudar uma exportação para o Excel.

Estou partindo dos campos que estão no formulário principal e no sub formulário para uma planilha no Excel ( já formatada com os campos definidos).

Ou seja, tudo que está no formulário principal ( caixas de textos, combos ) e no sub formulário ( caixas de textos e combos), irão para essa planilha

Exemplo:

O que está no formulário principal na Txtbox1 vai para a A43...Txtbox2 vai para A45 ...Txt3 vai para C34 e assim por diante. O mesmo vai acontecer para o sub formulário.

Por acaso algum dos colegas, já viveu ...já passou por isso ?

No aguardo !!

Agradeço !!

Up !!

UP>>>>>>>>>>>>

Silvio

veja se ajuda:

usandoaccess.com.br/dicas/manipular-planilha-excel-com-recordset.asp

usandoaccess.com.br/dicas/atualizar-planilha-excel-com-access.asp?id=1&idlista=241

Sucesso!

Bom dia Avelino...

Quase...quase !

Veja, tenho uma txt e preciso exportar o que está dentro dela para uma planilha, na celula C45.

Cito apenas uma caixa, mas serão várias.

Resolvido, mas sem solução. Apenas para fechar o tópico !!!

Resolvido

Bom dia Silvio,
esqueceste o [Resolvido].
Vou por para você

Há um tempo atrás eu tive essa necessidade para uma planilha que não podia ser aberta como recordset.

Eu sei que o tópico está dado como resolvido sem solução. Mas aqui está ela.

Código:

On Error GoTo trataerro

    Dim xls As Object
   
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open ("CaminhoCompletoArquivo.xls")
    xls.Visible = False
    xls.WorkSheets("Planilha1").Activate
   
    xls.Range("A1").Value = "Nunca"
    xls.Range("B2").Value = "Desista"
    xls.Range("C3").Value = "Do"
    xls.Range("D4").Value = "Access"

    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
   
sair:
    Exit Sub
   
trataerro:
    MsgBox Err.Description, vbCritical, "Erro " & Err.Number
    Resume sair:

a solução...que eu encontrei.

Private Sub bt_exportarZaroo_Click()

'Rotina para exportar para Excel com celulas referenciadas. 01/09/2018
If Me.Forneoculta <> "ZAROO" Then
MsgBox "Exportação somente para ZAROO", vbCritical, "AVISO..."
Else
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.xls" 'ZAROO é o nome da planilha e tem que estar no mesmo folder do sistema

Set RstFrm = Me.RecordsetClone
RstFrm.Bookmark = Me.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") '

Set RstSubFrm = Me!SFrmDpedido.Form.RecordsetClone
RstSubFrm.MoveFirst
l = 24 ' Uma celula(celula onde está o texto)antes da inserção.
Do While Not RstSubFrm.EOF
l = l + 1
MeuExcel.Range("B" & l) = RstSubFrm("CodProdutoOculta") '
MeuExcel.Range("C" & l) = RstSubFrm("Artigo")
MeuExcel.Range("E" & l) = RstSubFrm("QTD")
MeuExcel.Range("F" & l) = RstSubFrm("PUN") ' tamanho P
MeuExcel.Range("G" & l) = RstSubFrm("MR") ' tamanho M
MeuExcel.Range("H" & l) = RstSubFrm("GPP") ' tamanho G
MeuExcel.Range("I" & l) = RstSubFrm("GGP") ' tamanho GG
'MeuExcel.Range("J" & l) = RstSubFrm("18") ' tamanho XG não tem no sistema
MeuExcel.Range("K" & l) = RstSubFrm("34M") ' tamanho 34
MeuExcel.Range("L" & l) = RstSubFrm("36G") ' tamanho 36
MeuExcel.Range("M" & l) = RstSubFrm("38GG") ' tamanho 38
MeuExcel.Range("N" & l) = RstSubFrm("401") ' tamanho 40
MeuExcel.Range("O" & l) = RstSubFrm("422") ' tamanho 42
MeuExcel.Range("P" & l) = RstSubFrm("443") ' tamanho 44
MeuExcel.Range("Q" & l) = RstSubFrm("464") ' tamanho 46
MeuExcel.Range("R" & l) = RstSubFrm("486") ' tamanho 48
MeuExcel.Range("S" & l) = RstSubFrm("508") ' tamanho 50
MeuExcel.Range("T" & l) = RstSubFrm("5210") ' tamanho 52
MeuExcel.Range("V" & l) = RstSubFrm("PrecoVenda") ' Preço de venda
MeuExcel.Range("W" & l) = RstSubFrm("TotalOculta") ' Preço total dos itens ( qtd * preço de venda )
RstSubFrm.MoveNext
Loop

'Fecha o arquivo Excel
MeuExcel.ActiveWorkbook.Close SaveChanges:=True
MeuExcel.Visible = True: MeuExcel.Quit: Set MeuExcel = Nothing
Set RstFrm = Nothing
Set RstSubFrm = Nothing
MsgBox "A planilha foi atualizada...", vbInformation, "Aviso"
End If
End Sub

O fórum agradece o retorno. Sucesso.