Visual Basic - Una ayuda por favor... para convertir

Life is soft - evento anual de software empresarial
 
Vista:

Una ayuda por favor... para convertir

Publicado por gatuno (7 intervenciones) el 22/04/2003 05:22:15
Como puedo captar un archivo tipo *.dbf y convertirlo a excel mediante codigo, por favor agradezco cualquier ayuda.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Una ayuda por favor... para convertir

Publicado por kikecg (352 intervenciones) el 22/04/2003 16:09:21
Hola.
La verdad es que no tengo ni idea de como se hace. Pero se me ocurre que puedes ir leyendo los registros de cada tabla y al mismo tiempo irlos escribiendo en una hoja de excel que te hayas abierto.
Pero seguro que hay alguna manera mejor.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Una ayuda por favor... para convertir

Publicado por julio caballero (2 intervenciones) el 22/04/2003 18:41:03
A ver revisa este ejemplo

Option Explicit

Private Sub cmdMostrar_Click()
Dim ExApp As Application
Dim Cn As Connection
Dim Rs As Recordset
Dim i As Integer

i = 5
Set ExApp = New Application
Set Cn = New Connection
Set Rs = New Recordset

ExApp.Workbooks.Add
ExApp.Range("A1").Value = "Ejemplo de Excel y Visual Basic"
ExApp.Range("A2").Value = "Listado de Productos y Precios"
ExApp.Range("A4").Value = "Producto"
ExApp.Range("B4").Value = "Precio"

Cn.ConnectionString = "Provider=SQLOLEDB;Data Source=Servidor;Initial Catalog=Northwind;User Id=sa"
Cn.Open

Rs.Open "SELECT PRODUCTNAME, UNITPRICE FROM PRODUCTS", Cn, adOpenForwardOnly, adLockReadOnly

Do While Not Rs.EOF
ExApp.Range("A" & i).Value = Rs!ProductName
ExApp.Range("B" & i).Value = Rs!UnitPrice
i = i + 1
Rs.MoveNext
Loop

Rs.Close
Cn.Close

ExApp.ActiveWorkbook.SaveAs "C:\DemoVB.xls", xlNormal

ExApp.Quit

Set ExApp = Nothing

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar