Visual Basic - YA LO TENIA! (PROBLEMA CON EXCEL.APPLICATION)

Life is soft - evento anual de software empresarial
 
Vista:

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
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
sin imagen de perfil

RE:YA LO TENIA! (PROBLEMA CON EXCEL.APPLICATION)

Publicado por Boluarte (5 intervenciones) el 15/05/2007 23:31:57
cuando da este error: "es un tipo no definido por el usuario"
es porque no eiste o uno fauncion o una variable , en este caso la libreria Excel.Application por lo que te recomiendo es que agregues la referencia a dicha libreria,

Si no quieres agregar la referencia cambia estos tipos de datos por un varian ejm:

Public ApliMarcas As Excel.Application
Public LibroMarcas As Excel.Workbook
Public HojaMarcas As Excel.Worksheet
Public RangoMarcas As Excel.Range

cambialo por :

Public ApliMarcas As Variant
Public LibroMarcas As Variant
Public HojaMarcas As Variant
Public RangoMarcas As Variant
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:YA LO TENIA! (PROBLEMA CON EXCEL.APPLICATION)

Publicado por OZ (12 intervenciones) el 15/05/2007 23:43:02
Vieras que raro xq como te digo el codigo funcionaba en un proyecto pero a la hora de pasarlo a otro no, no tenia ninguna referencia de mas estaban igual los dos, lo que hice fue hacer la inversa caerle con el otro proyecto al codigo que si corria.

Pero Igual probé eso que dices de cambiar a tipo Variant y si funciono, te agradezco por la ayuda!

SALUDOS
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