Visual Basic - Exportar a un excel tres tablas en distinta Hoja

Sub ExportaAArchivo(SQL)  ' donde SQL es la sentencia que me tre datos

On Error GoTo etterro

cont = 0

filename = App.Path & "\Reporte_" & Format(Time, "HHMMSS") & ".xls"

Rsio.Open sql, conexion

'****si no hay resultados ********

    If Rsio.EOF = True And Rsio.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta"

    Rsio.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   'Rs.Open SQL, conexion

   MSf.Cols = Rsio.Fields.Count '+ 1

   MSf.Clear

   j = 0

   While j < Rsio.Fields.Count

    datafile = datafile & Rsio.Fields(j).Name & vbTab

     j = j + 1

   Wend

            Open filename For Append As 9

                    Print #9, datafile

                    datafile = ""

            Close 9

    i = 1

    k = 0

    While Not Rsio.EOF

        i = i + 1

        MSf.Rows = i

        k = 0

        While k < j

            datafile = datafile & Rsio(k) & vbTab

            k = k + 1

        Wend

        datafile = datafile & vbCr

        Rsio.MoveNext 'aumenta el contador

    Wend

       Rsio.Close

            Open filename For Append As 9

                    Print #9, datafile

                    datafile = ""

            MsgBox "Query Ejecutado con Exito, Archivo Generado " & filename, vbInformation, "Query"

etterro:

If Err.Number <> 0 Then MsgBox Err.Description

End Sub

Sub ExportaAArchivo(SQL)  ' donde SQL es la sentencia que me tre datos

On Error GoTo etterro

cont = 0

filename = App.Path & "\Reporte_" & Format(Time, "HHMMSS") & ".xls"

Rsio.Open sql, conexion

'****si no hay resultados ********

    If Rsio.EOF = True And Rsio.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta"

    Rsio.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   'Rs.Open SQL, conexion

   j = 0

   While j < Rsio.Fields.Count

    datafile = datafile & Rsio.Fields(j).Name & vbTab

     j = j + 1

   Wend

            Open filename For Append As 9

                    Print #9, datafile

                    datafile = ""

            Close 9

    i = 1

    k = 0

    While Not Rsio.EOF

        i = i + 1

        k = 0

        While k < j

            datafile = datafile & Rsio(k) & vbTab

            k = k + 1

        Wend

        datafile = datafile & vbCr

        Rsio.MoveNext 'aumenta el contador

    Wend

       Rsio.Close

            Open filename For Append As 9

                    Print #9, datafile

                    datafile = ""

            MsgBox "Query Ejecutado con Exito, Archivo Generado " & filename, vbInformation, "Query"

etterro:

If Err.Number <> 0 Then MsgBox Err.Description

Private Sub Exportar_Click()

Dim i As Long, j As Long

 Dim objExcel As Object

 Dim objWorkbook As Object

 On Error Resume Next ' por si se cierra Excel antes de cargar los datos

 Set objExcel = CreateObject("Excel.Application")

 objExcel.Visible = True

 Set objWorkbook = objExcel.Workbooks.Add

 For i = 0 To MSHFlexGrid1.Rows - 1

 MSHFlexGrid1.Row = i

 For j = 0 To MSHFlexGrid1.Cols - 1

 MSHFlexGrid1.Col = j

 objWorkbook.ActiveSheet.Cells(i + 1, j + 1).Value = MSHFlexGrid1.Text

 Next

 Next

 objExcel.Cells.Select

 objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna

 objExcel.Range("A1").Select

 Set objWorkbook = Nothing

 Set objExcel = Nothing

End Sub

Private Sub Exportar_Click( )

Dim i As Long, j As Long

 Dim objExcel As Object

 Dim objWorkbook As Object

 On Error Resume Next ' por si se cierra Excel antes de cargar los datos

 Set objExcel = CreateObject("Excel.Application")

 objExcel.Visible = True

 Set objWorkbook = objExcel.Workbooks.Add

   objWorkbook.Sheets.Add After:=ActiveSheet

    objWorkbook.Sheets("Hoja2").Select

 For i = 0 To MSHFlexGrid1.Rows - 1

 MSHFlexGrid1.Row = i

 For j = 0 To MSHFlexGrid1.Cols - 1

 MSHFlexGrid1.Col = j

 objWorkbook.ActiveSheet.Cells(i + 1, j + 1).Value = MSHFlexGrid1.Text

 Next

 Next

 objExcel.Cells.Select

 objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna

 objExcel.Range("A1").Select

 Set objWorkbook = Nothing

 Set objExcel = Nothing

End Sub