MacroXls-VB
Publicado por J.Fernando (43 intervenciones) el 02/12/2002 19:13:00
Hola a todos
Debe hacerse algun tipo de declaración especial o invocar alguna Api para poder insertar codigo de un macro de excel en un proyecto de VB 6?
Por favor lean el siguiente codigo para que me digan que hace falta o si sencillamente lo que quiero hacer no se puede.
Private Sub Command1_Click()
Dim objeto , libro As Object, Archivo As string
Set objeto = CreateObject("Excel.Application")
Archivo= "C:\Via.xls"
Set libro = Objeto.Workbooks.Open(Archivo)
libro.Worksheets("Sheet1").Range("A1:A7").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _ Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Objeto.Visible = True
End Sub
El problema se presenta al querer ordenar el rango, he ensayado escribiendo algo en cualquier celda, o extrayendo el contenido de la misma y funciona a la perfección, pero si intento insertar codigo como el de la rutina Sort se genera un error.
Muchas gracias.
Debe hacerse algun tipo de declaración especial o invocar alguna Api para poder insertar codigo de un macro de excel en un proyecto de VB 6?
Por favor lean el siguiente codigo para que me digan que hace falta o si sencillamente lo que quiero hacer no se puede.
Private Sub Command1_Click()
Dim objeto , libro As Object, Archivo As string
Set objeto = CreateObject("Excel.Application")
Archivo= "C:\Via.xls"
Set libro = Objeto.Workbooks.Open(Archivo)
libro.Worksheets("Sheet1").Range("A1:A7").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _ Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Objeto.Visible = True
End Sub
El problema se presenta al querer ordenar el rango, he ensayado escribiendo algo en cualquier celda, o extrayendo el contenido de la misma y funciona a la perfección, pero si intento insertar codigo como el de la rutina Sort se genera un error.
Muchas gracias.
Valora esta pregunta
0
