De MYSQL a EXCEL

[guidodipaolo]

Hola muchas del foro !! Hoy les escribo para ver si me pueden ayudar con lo siguiente.

Yo tengo una base de datos la cual la leo y observo mediante una web que cree.

Ahora lo que quiero hacer yo, es crear un botón en el cual al clickearlo todo lo que este guardado en la base de datos se me descargue en un excel, en forma de tabla (tal cual me lo muestra phpMyAdmin)

Como nunca lo he hecho agradecería y MUCHO si me explican paso a paso como hacerlo.

[gnzsoloyo]

No es tema de MySQL, sino en todo caso de PHP. MySQL lo único que hace es devolver los datos de las tablas por medio de consultas, pero no tiene recursos para generar un archivo de Excel (más allá de crear archivos de tipo .CSV que Excel puede leer).
Pregunta en el Foro de PHP, o mejor aún, busca en Google, porque hay muchos tutoriales que te pueden guiar.
Por otro lado, te recuerdo que una hoja de Excel no puede tener más de 65535 líneas, por lo que si alguna de las tablas supera esa cantidad de registros no podrás realizar la exportación de la misma.

[gerardo_goh]

Hola pasalo a txt y posteriormente ejecuta esta macro, Saludos!!!

Código SQL:

[HTML]
Sub ImportarArchivosTXTmuyLargos()
 
'Dimension de variable
Dim ResultStr As String
Dim FileNum As Integer
Dim Counter As Double
 
'Abrir Archivo
FileName = Application.GetOpenFilename _
       (filefilter:="Archivos de Texto (*.txt),*.txt", Title:="Elegir Archivo")
IF FileName = "" THEN END
FileNum = FreeFile()
OPEN FileName FOR INPUT AS #FileNum
 
Application.ScreenUpdating = FALSE
 
Workbooks.ADD template:=xlWorksheet
Counter = 1
Do While Seek(FileNum) <= LOF(FileNum)
 
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
 
Line INPUT #FileNum, ResultStr
 
IF LEFT(ResultStr, 1) = "=" THEN
ActiveCell.VALUE = "'" & ResultStr
ELSE
ActiveCell.VALUE = ResultStr
END IF
 
 
IF ActiveCell.ROW = 1048576 THEN
 
   ActiveWorkbook.Sheets.ADD
ELSE
 
   ActiveCell.Offset(1, 0).SELECT
END IF
 
Counter = Counter + 1
 
Loop
 
Close
 
Application.StatusBar = FALSE
END Sub[/HTML]
 

Me dices si te funciono