Re: Tratar XML desde Visual Basic 6.0
La función AbrirHoja() abre un archivo Excel llamado Conversion_UTM_Geograficas.xls y asigna a la variable objExcelCal una hoja concreta del archivo.
Con objExcelCal.Cells(i, 1) accedemos a los datos de la fila i columna 1 de la hoja de calculo
Private mobjExcel As New Excel.Application 'Referencia a un objeto Excel
Dim objWorkbook As Excel.Workbook
Dim objExcelCal As Excel.Worksheet 'Hoja Excel donde se hacen los calculos
Private Sub AbrirHoja()
Dim objWorkbook As Excel.Workbook
Dim i As Long
Set objWorkbook = mobjExcel.Workbooks.Add(App.Path & "\Conversion_UTM_Geograficas.xls") 'Variable que contiene todo el libro Excel
Set objExcelCal = mobjExcel.Workbooks.Item(1).Worksheets(Nombre_hoja _Excel) 'Variable que contiene una hoja concreta del libro Excel
For i = 3 To objExcelCal.Cells.Count
If objExcelCal.Cells(i, 1) = "" Then 'Cuando ya no hay filas rellenas salimos del for
Exit For
End If
Next i
End Sub
Espero que te sea de ayuda
Un Saludo
|