Access - Abrir documento Excel

.....Continua

      'Creamos una hoja de cálculo en MS Excel.

      Set Hoja = CreateObject("Excel.Sheet")

      'Con el siguiente bucle recorremos todos los campos

      'de la colección TableDef para pasar el nombre de los

      'mismos a la primera fila de la hoja de cálculo, y

      'recorremos todos los registros de la variable

      'Recordset para enviarlos a la hoja a partir de la

      'segunda fila.

      i = 2

      For j = 0 To T.fields.count - 1

         Hoja.Cells(1, j + 1).Value = T.fields(j).name

         Do Until R.EOF

            Hoja.Cells(i, j + 1).Value = R(j)

            R.MoveNext

            i = i + 1

         Loop

         i = 2

         R.MoveFirst

      Next j

      R.Close

      'Guardamos la hoja con un nombre igual a los 8 primeros

      'caracteres del de la tabla en MS Access.

      Hoja.SaveAs (Left(Nom_Tabla, 8) & ".XLS")

      'Limpiamos el objeto Hoja y cerramos la comunicación con

      'MS Excel.

      Set Hoja = Nothing

   End Function