Visual Basic - abrir archivo de escxel

Life is soft - evento anual de software empresarial
 
Vista:

abrir archivo de escxel

Publicado por carlos mtz (39 intervenciones) el 30/10/2003 21:19:36
como abro desde vb una hoja de excel
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:abrir archivo de escxel

Publicado por GROVAL (225 intervenciones) el 31/10/2003 00:12:32
Private Sub Abrir_conexion()
On Error GoTo ErrHandler
Set CN = New ADODB.Connection

' -- connection provider
CN.Provider = "Microsoft.Jet.OLEDB.4.0"

'--- create the connection to Excel File
'--- notice for the "Extended Property"
'--- for Excel 97/2000/2002 use Excel 8.0
'--- for Excel 95 use Excel 5.0
CN.ConnectionString = _
"Data Source= G:\ORDEN\Ordenes.xls;" & _
"Extended Properties=Excel 8.0;"
CN.CursorLocation = adUseClient
CN.Open
' EL RECORSET
Set rsOrdenes = New ADODB.Recordset
'--- aBRE EL recordset
'--- "HOJA1" ES EL NOMBRE DE UNA DE LAS HOJAS
'--- DEL ARCHIVO DE EXCEL

rsOrdenes.Open "SELECT * FROM [HOJA1$] ", CN, adOpenDynamic, adLockOptimistic

Set MSHFlexGrid1.DataSource = rsOrdenes
Exit Sub
ErrHandler:
MsgBox "No puedo establecer una conexion. Verifique la conexion o el formato del archivo de Excel en G:\ORDENES"
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

RE:abrir archivo de escxel

Publicado por GILBERTO (225 intervenciones) el 31/10/2003 00:41:06
DECLARA LOS OBJETOS

Dim CN As New ADODB.Connection
Dim rsOrdenes As New ADODB.Recordset
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:abrir archivo de escxel

Publicado por Cecilia Colalongo (3117 intervenciones) el 01/11/2003 12:25:30
Fijate con esto, primero debes agregar la referencia a Excel a tu proyecto:

Dim objExcel As Excel.Application
Set objExcel = New Excel.Application

With objExcel
.Workbooks.Open "MiHoja.xls"
.Visible=True
End With
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