YA LO TENIA! (PROBLEMA CON EXCEL.APPLICATION)
Publicado por Oz (12 intervenciones) el 15/05/2007 22:40:17
Hola amigos, queria abrir un archivo en excel con este codigo:
Vieran que si lo hace en un proyecto donde esta solo solo, pero cuando lo implemento a otro proyecto, me da error de que "Public ApliMarcas As Excel.Application" es un tipo no definido por el usuario, saben que podrá ser?
'PONER EN MODULO
Option Explicit
Public ApliMarcas As Excel.Application
Public LibroMarcas As Excel.Workbook
Public HojaMarcas As Excel.Worksheet
Public RangoMarcas As Excel.Range
Public CeldaVacia As Integer
Public Columnas As Integer
Public Filas As Integer
Public i As Integer, j As Integer
Public Sub Caracteristicas()
Set HojaMarcas = LibroMarcas.Sheets(1)
Set RangoMarcas = HojaMarcas.Rows(1)
If (RangoMarcas.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoMarcas.Find("").Column
End If
Columnas = CeldaVacia
Set RangoMarcas = HojaMarcas.Columns(1)
If (RangoMarcas.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoMarcas.Find("").Row
End If
Filas = CeldaVacia
Set HojaMarcas = Nothing
Set RangoMarcas = Nothing
End Sub
Public Sub Inicio()
Set ApliMarcas = CreateObject("Excel.Application")
Set LibroMarcas = ApliMarcas.Workbooks.Open(App.Path & "\marcas.xls")
End Sub
Public Sub LlenadoList()
Set HojaMarcas = LibroMarcas.Worksheets(1)
For j = 2 To Filas - 1
frmLectura.lstExcel.AddItem (HojaMarcas.Cells(j, 1))
Next j
End Sub
'PONER EN UN FORM
Private Sub Form_Load()
Inicio
Caracteristicas
LlenadoList 'un list llamado lstExcel
End Sub
Vieran que si lo hace en un proyecto donde esta solo solo, pero cuando lo implemento a otro proyecto, me da error de que "Public ApliMarcas As Excel.Application" es un tipo no definido por el usuario, saben que podrá ser?
'PONER EN MODULO
Option Explicit
Public ApliMarcas As Excel.Application
Public LibroMarcas As Excel.Workbook
Public HojaMarcas As Excel.Worksheet
Public RangoMarcas As Excel.Range
Public CeldaVacia As Integer
Public Columnas As Integer
Public Filas As Integer
Public i As Integer, j As Integer
Public Sub Caracteristicas()
Set HojaMarcas = LibroMarcas.Sheets(1)
Set RangoMarcas = HojaMarcas.Rows(1)
If (RangoMarcas.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoMarcas.Find("").Column
End If
Columnas = CeldaVacia
Set RangoMarcas = HojaMarcas.Columns(1)
If (RangoMarcas.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoMarcas.Find("").Row
End If
Filas = CeldaVacia
Set HojaMarcas = Nothing
Set RangoMarcas = Nothing
End Sub
Public Sub Inicio()
Set ApliMarcas = CreateObject("Excel.Application")
Set LibroMarcas = ApliMarcas.Workbooks.Open(App.Path & "\marcas.xls")
End Sub
Public Sub LlenadoList()
Set HojaMarcas = LibroMarcas.Worksheets(1)
For j = 2 To Filas - 1
frmLectura.lstExcel.AddItem (HojaMarcas.Cells(j, 1))
Next j
End Sub
'PONER EN UN FORM
Private Sub Form_Load()
Inicio
Caracteristicas
LlenadoList 'un list llamado lstExcel
End Sub
Valora esta pregunta


0