[Resolvido] É possível exportar subformulário e/ou consulta?

Buenas!!

É possível exportar um subformulário (que pega os dados de uma consulta) ou a própria consulta para o Excel? Consigo fazer com tabelas, apenas.

Aguardo.

Olá,

Acredito que o critério seja o mesmo. Eu utilizo o seguinte código para exportar consulta:

Código:



DoCmd.OutputTo acQuery, "Nome da Consulta", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0



Abs.,
Arboit

Boa, valeu!

E formulário/subformulário, tem como?

Resolvido!

Private Sub Comando215_Click()

Me.MySubForm.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")

With xlapp

.Workbooks.Add
.activesheet.PasteSpecial
.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a1").Select

End With

End Sub