[Resolvido]acOutputReport não exporta o subrelatório.

Pessoal, bom dia!!!

Tenho um comando simples que segue abaixo, mas estou com uma dificuldade no momento em que vou exportar esse dados para o excel.
Bom me aparece a seguinte mensagem:
O comando Salvar como não pode processar nenhum subformulário contido no relatório. Deseja continuar assim mesmo? sim não

O comando e:
DoCmd.OutputTo acOutputReport, "rltRodarAbsenteismo", acFormatXLS, "\\FIABET013\APP_UNIDADE_VEICULO$\UNIDADE_OPERATIVA_PRENSAS\ABSENTEISMO_PRENSAS\10 abs.outubro\Turno A\AbsenteismoA.XLS", False

Alguem saber o que pode está acontecendo. Preciso tanto da informação do Relatório quanto a do subRelatorio na mesma planilha... Anexo imagem dos dados que necessito no excel. Obrigado!!!

Pesquisando eu achei um codigo do nosso grande JPaulo e conseguir realizar o uma adptação para o que necessito, vejam:

strcaminho = "\\FIABET013\APP_UNIDADE_VEICULO$\UNIDADE_OPERATIVA_PRENSAS\ABSENTEISMO_PRENSAS\10 abs.outubro\Turno A\AbsenteismoA.XLS"
DoCmd.OpenReport "rltRodarAbsenteismo", acViewPreview, , strFiltro, , Format(Me!txtData, "dd")
DoCmd.OutputTo acOutputReport, "rltRodarAbsenteismo", acFormatXLS, "strcaminho", False
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open (strcaminho)
xls.Visible = False
xls.Worksheets("rltRodarAbsenteismo").Activate
strSQL = "SELECT * FROM tblAbsenteismoColaboradores WHERE [Data_Lançamento]=#" & Format(Forms!frmRodarDados!txtData, "mm/dd/yyyy") & "#"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst

xls.ActiveSheet.Range("A10").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.SaveAs FileName:="strcaminho"
xls.Visible = True
Set xls = Nothing

Só os nomes dos campos que não conseguir colocar, mas já é um grande passo e está me ajudando a caminhar no meu projeto. Fica a dica!

Tópico resolvido...