Boa tarde galera.
Tenho este código que exporta para uma Planilha Excel e está funcionando perfeitamente.
Acontece que preciso incluir após o Loop outros dados fixos no rodapé tais como: Total de Ítens, texto livre, Nome do usuário e e-mail do mesmo, além de uma linha separando este rodapé.
Segue o código, já procurei bastante aqui e na net, mas nada feito. Pouco conheço de chamadas de Excel, por isso peço ajuda dos amigos.
Tenho este código que exporta para uma Planilha Excel e está funcionando perfeitamente.
Acontece que preciso incluir após o Loop outros dados fixos no rodapé tais como: Total de Ítens, texto livre, Nome do usuário e e-mail do mesmo, além de uma linha separando este rodapé.
Segue o código, já procurei bastante aqui e na net, mas nada feito. Pouco conheço de chamadas de Excel, por isso peço ajuda dos amigos.
- Código:
Dim intLinha As Integer
Dim intColuna As Integer
'Variaveis do excel
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim i As Integer
Dim N As Integer
Dim intcontador As Integer
Dim intContadorPag As Integer
Dim CaminhoPlanilha As String
On Error GoTo Fim
Dim Rst1 As Recordset
Dim rst2 As Recordset
Dim Sel1 As String
Dim Sel2 As String
'Obtenho o caminho do carquivo
'----------------------------------------------------------------------
CaminhoPlanilha = CurrentProject.Path & "\COTAÇÃO - " & Forms![4-COTAÇÃO_MONTA_LISTA_PRODUTOS]!id_cotacao_gerada & ".xlsx"
'Call filtra_listbox
'Carrego o conjunto de registros
Sel1 = "SELECT * from cotacao_sub_temp"
Set Rst1 = CurrentDb.OpenRecordset(Sel1)
'Inicio o contador da linha
intLinha = 11
'Abrir o arquivo do Excel
Set xlw = xl.Workbooks.Open(CurrentProject.Path & "\COTAÇÃO - " & Forms![4-COTAÇÃO_MONTA_LISTA_PRODUTOS]!id_cotacao_gerada & ".xlsx")
'Aqui inicio o loop pelos registros da tabela
Do While Not Rst1.EOF
'--------------------------------------------------------------
'Definimos qual será a planilha de trabalho
xlw.Sheets("COTAÇÃO").Select
'Envia o valor para cada celula (Linha, Coluna)
xlw.Application.Cells(intLinha, 1).Value = Rst1![Item] 'Item
xlw.Application.Cells(intLinha, 2).Value = Rst1![quant] 'quant
xlw.Application.Cells(intLinha, 3).Value = Rst1![unidade] 'unidade
xlw.Application.Cells(intLinha, 4).Value = Rst1![txt_produto] 'txt_produto
xlw.Application.Cells(intLinha, 5).Value = Rst1![codigo_ncm] 'codigo_ncm
xlw.Application.Cells(intLinha, 6).Value = "-" 'ipi
xlw.Application.Cells(intLinha, 7).Value = "-" 'valor_unit
xlw.Application.Cells(intLinha, 8).Value = "-" 'valor_total
'Incremento o contador para mudar a planilha
intLinha = intLinha + 1
'--------------------------------------------------------------
Rst1.MoveNext
Loop
'Finalizo o loop
Rst1.Close
' ContaItens = DCount("*", "cotacao_sub_temp")
'xlw.ActiveSheet.Range(xlw.ActiveSheet.Cells(ContaItens + 12, 1), xlw.ActiveSheet.Cells(ContaItens + 12, 2)).Merge
' xlw.ActiveSheet.Cells(ContaItens + 12, 1) = "Total de Ítens: " & ContaItens
'Para não salvar mude true para false
xlw.Close True
'Liberamos a memória
Set xlw = Nothing
Set xl = Nothing
'--------------------------------------------------------------
Exit Function
Fim:
SysCmd 3
MsgBox err.Number & " - " & err.Description
Exit Function