| Usuario |
Ayuda |
Desconocido
|
| Enviado - 16/10/2003 |
| |
| Necesitaría saber como hacer para abrir una base de datos access y grabarla convertida en excel, todo desde un formulario, no con el visdatata. Desde ya muchas gracias. gabriel MAZZEI |
| |
|
delorto
9 Mensaje(s) |
| Enviado - 17/10/2003 |
| |
yo utilizo esto:
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database
Set BD = OpenDatabase("GNOMBREBD")
BD.Execute "DELETE FROM AUXILIAR;"
BD.Execute "INSERT INTO AUXILIAR " _
& "SELECT * " _
& "FROM CONSUCOLE;"
BD.Close
strExcelFile = App.Path + "\AUXILIAR.xls"
strWorksheet = "WorkSheet1"
strDB = GNOMBREBD
strTable = "AUXILIAR"
Set objDB = OpenDatabase(strDB)
If Dir(strExcelFile) <> "" Then Kill strExcelFile
objDB.Execute _
"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
"].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
objDB.Close
Set objDB = Nothing
AUXILIAR, es una tabla que tengo creada en la bd GNOMBREBD, a la que cargo la tabla o la consulta que quiero exportar.
crea una hoja de Excel llamanda AUXILIAR.xls en el mismo directorio en el que corre el programa.
espero te sirva.
saludos |
| |
|
|
|
Microsoft Certified