Boa Tarde Pessoal, sou novo no forom e estou no trabalho com a corda no pesço, se puderem me ajudar.Fiz um formulario no Excel Vba 2003 de regitro de fechamento de mês, praticamente só numeros.
Esse formulario com uma pesquisa, para pesquisar cada mes fechado, apartir dessa pesquisa na tela gostaria de Esportar esse dados para word. Creio que ja esteja quase conseguindo irei posta o codigo para que souber me dar uma força..
Código: Selecionar todos
Private Sub bntRelatorio1_Click()
Dim temp As String
Dim App As Word.Application
On Error GoTo trata_erro
Set ObjWord = CreateObject("Word.Application")
bntRelatorio1.Enabled = False
'nome do relatorio pré montado
ObjWord.Documents.Open ("C:\Documents and Settings\Area T.I\Meus documentos\Relatorio_dre.doc")
'chama rotina para substituicao
Call Substitui_Var("@Mes", cbxMes)
Call Substitui_Var("@Ano", txtAno)
Call Substitui_Var("@Estoq_Pc_Custo", txtEstoq_Pc_Custo)
Call Substitui_Var("@Estoq_Pc_Vd", txtEstoq_Pc_Vd)
Call Substitui_Var("@Estoq_Lucro", txtEstoq_Lucro)
Call Substitui_Var("@Comp_Veiculos", txtComp_Veiculos)
' Salva o documento com um novo nome
ObjWord.ActiveDocument.SaveAs txtRelatorio_dre '(neste caso estou usando um nome diferente do inicial SGC.doc)
'Encerra o word
ObjWord.Quit
' informa ao usuario que o contrato foi gerado
MsgBox " gerado com sucesso! em : " & txtRelatorio_dre, vbInformation, " Relatório Gerado "
' libera memoria
Set ObjWord = Nothing
Exit Sub
trata_erro:
MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number
End Sub
e as vezes não da o erro e dir que o arquivo do word esta bloqueado para edição.
detalhe eu não bloquiei...
Por favor quem puder me ajudem....!!!
