Senhores, estou utilizando o codigo do Mestre Avelino abaixo;
Public Sub fncCriarPlanilhaLuizz()
Dim xlApp As Object
Dim wkb As Object
Dim objSheet As Object
'Abre o Excel
Set xlApp = CreateObject("excel.application")
'Torna o aplicativo excel visível
xlApp.Application.Visible = True
'Abre o arquivo tblClientes2.xls
Set wkb = xlApp.workbooks.Open(CurrentProject.Path & "\tblClientes2.xls")
'Adiciona uma segunda planilha ao arquivo
wkb.sheets.Add
'Variável objSheet assume segunda planilha
Set objSheet = xlApp.Activeworkbook.sheets("Plan2")
'Altera o nome da planilha
objSheet.Name = "Luizz"
objSheet.Activate
'Insere os dados nas celulas desejadas
objSheet.cells(1, 3).Value = "Nome do Cliente"
objSheet.cells(2, 3).Value = "Luiz ZZZ"
'Ajusta o tamanho das colunas
objSheet.columns.autofit
'Salva a planilha
wkb.Save
'Fecha tudo
wkb.Close
Set objSheet = Nothing
Set wkb = Nothing
xlApp.Quit
Set xlApp = Nothing
MsgBox "A planilha LUIZZ foi criada...", vbInformation, "Aviso"
End Sub
mas preciso inserir nas linhas do excel o resultado de uma consulta. como fazer?
objSheet.cells(1, 3).Value = resultado de consulta
objSheet.cells(2, 3).Value = resultado de consulta
Public Sub fncCriarPlanilhaLuizz()
Dim xlApp As Object
Dim wkb As Object
Dim objSheet As Object
'Abre o Excel
Set xlApp = CreateObject("excel.application")
'Torna o aplicativo excel visível
xlApp.Application.Visible = True
'Abre o arquivo tblClientes2.xls
Set wkb = xlApp.workbooks.Open(CurrentProject.Path & "\tblClientes2.xls")
'Adiciona uma segunda planilha ao arquivo
wkb.sheets.Add
'Variável objSheet assume segunda planilha
Set objSheet = xlApp.Activeworkbook.sheets("Plan2")
'Altera o nome da planilha
objSheet.Name = "Luizz"
objSheet.Activate
'Insere os dados nas celulas desejadas
objSheet.cells(1, 3).Value = "Nome do Cliente"
objSheet.cells(2, 3).Value = "Luiz ZZZ"
'Ajusta o tamanho das colunas
objSheet.columns.autofit
'Salva a planilha
wkb.Save
'Fecha tudo
wkb.Close
Set objSheet = Nothing
Set wkb = Nothing
xlApp.Quit
Set xlApp = Nothing
MsgBox "A planilha LUIZZ foi criada...", vbInformation, "Aviso"
End Sub
mas preciso inserir nas linhas do excel o resultado de uma consulta. como fazer?
objSheet.cells(1, 3).Value = resultado de consulta
objSheet.cells(2, 3).Value = resultado de consulta