Abrir archivo Excel en VB 6.0

Abrir archivo Excel en VB 6.0

Si quieres abrir un archivo que ya hiciste en excel y verlo en el mismo excel pero llamarlo desde visual basic este es el codigo:

Private Sub CommandButton3_Click()

Dim XL As New Excel.Application 'Crea el objeto excel

XL.Workbooks.Open "c:\subir_datos_excel.xls", , True 'El true es para abrir el archivo en modo Solo lectura (False si lo quieres de otro modo)

XL.Visible = True

XL.WindowState = xlMaximized 'Para que la ventana aparezca maximizada.

End Sub

hay que tener en cuenta que debes activar la referencia corrspondiente en visual basic.

referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0

Abrir archivo Excel en VB 6.0 (importar)

Tambien puedes leer el contenido de una o varias columnas e importarlas a vb 6.0, debes añadir una lista y un boton

Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet

Private Sub cmdExcel_Click()
'On Error GoTo Errores
Dim vlRuta As String
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = RuTa & "\prueba.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.Worksheets(1) 'Hoja 1
With mySheet
I = I + 1
Do While .Cells(I, 1) <> ""
List1.AddItem .Cells(I, 1) 'Leemos los datos apartir de la celda 1 y metemos la informacion a un combo
I = I + 1
Loop
End With

MsgBox "Proceso Terminado", vbInformation

xlApp.Quit
Set xlApp = Nothing

Errores:
If Err.Number <> 0 Then
xlApp.Quit
Set xlApp = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub

 

Comparte en...referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0referencias-en-vb6-300x259 Abrir archivo Excel en VB 6.0

Add a Comment

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *