Visual Basic - URGE!! Abrir documento excel desde VB

Life is soft - evento anual de software empresarial
 
Vista:

URGE!! Abrir documento excel desde VB

Publicado por Nister (1 intervención) el 30/10/2003 23:14:44
Como puedo abrir un documento de excel desde vb si alguien me puede decir de antemano gracias
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:URGE!! Abrir documento excel desde VB

Publicado por GILBERTO (225 intervenciones) el 31/10/2003 00:39:37
declaras los objetos ADO

Dim CN As New ADODB.Connection
Dim rsOrdenes As New ADODB.Recordset


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