Elección de un Rango

[suncoastbreaker]

No logro seleccionar un rango de columnas no consecutivas de una hoja excel desde Visual Basic 6.0. Teóricamente sería algo así: Range("B2:B7, D2:D7"), por poner un ejemplo. Pero es que desde VB6 poniendo eso me da error. Alguna idea? Por cierto, si alguien ha leído mi anterior post, no he resuelto el problema así que para probar el programa cada vez he de generar el .exe y es un coñazo porque sólo ahí puedo ver el tipo de error.

[lokoman]

Hola!
Puedes intentar con esta instruccion:

Código vb:

xlSheet.Range("C1:C10,E1:E10").Select
 

[suncoastbreaker]

Pero cual sería la diferencia con lo que yo he puesto? Lo de xlSheet? Voy a probarlo y te comento ;).

[suncoastbreaker]

Ah! Se me ha ido la cabeza completamente. Tu código no funciona y de hecho no puede funcionar porque es "igual" que el mio, a excepción de xlSheet. Supongo que tu harías algo así, más o menos, así:
Dim xlApp("o ExcelApp") As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
..................
Set xlSheet = xlbook.Worksheets(1)
...............
xlSheet.Range("C1:C10,E1:E10").Select

Los puntos suspensivos quieren decir que hay código de por medio.
Yo en cambio, como quería probar el código que escogiese columnas no consecutivas lo hice a lo bruto, directamente así:
With ExcelApp
.Workbooks.Add
.ActiveWorkbook.Sheets(1).Range("A2:A7,C2:C7").Sel ect
End With
Evidentemente hay unas cuantas líneas anteriores a las de arriba pero te pongo la parte más importante. Resulta que mi código no funciona y supongo que el tuyo tampoco debería porque sustancialmente es lo mismo, no?
Por otro lado, abrí un tema al que nadie me respondió; a ver si puedes ayudarme. Resulta que tenía un programa hecho en vb6 que exportaba datos a una hoja excel. El programa siempre funcionó correctamente, pero de buenas a primeras cuando tenía que exportar, en modo de ejecución, se quedaba colgado el programa. Además de esto, no lograba generar archivos .exe; un desastre. Volví a bajar VB6 de otro sitio y lo reinstalé. Ahora resulta que si genera archivos .exe pero no consigo hacerlo funcionar en modo de ejecución al tener que exportar los datos a excel. Cuando quiero hacerlo me muestra "error 70 en tiempo de ejecución, permiso denegado" y en el editor de código se me marca en amarillo la linea siguiente:
Set ExcelApp = CreateObject("Excel.Application").
Tienes idea de por qué pasa esto y cómo se puede solucionar? Es que es muy engorroso porque para ver si el programa funciona correctamente, ante nuevos cambios, no puedo comprobarlo en modo de ejecución. Tengo que estar creando constantemente ejecutables y comprobar que funcionen correctamente y ya me estoy desesperando. Anda, échame una mano, que por regla general en este foro, ayuda con problemas he recibido poquita.
Un saludo.

[suncoastbreaker]

Desesperante...

[lokoman]

Disculpa la tardanza...
Es buena practica identificar el xlSheet, xlApp, etc.. en ocasiones te falla la aplicacion en la segunda corrida, me explico:
Al ejecutar la aplicacion, puede exportar a excel sin problemas, pero al ejecutar nuevamente la rutina, te daria error, que se corrige identificando el xlSheet, xlApp, etc..

Lo del error "error 70 en tiempo de ejecución, permiso denegado", es posible que esté en un medio de solo lectura? que office es el que tienes? si es el 2010 te podria dar problemas.

Intenta este Codigo, a ver si te sirve (Pon una referencia a Excel y Completalo):

Código vb:

Sub Exportar_Excel()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = New Excel.Application 'asignar las referencias a las variables
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add
    
    xlSheet.Cells(1, 1).Value = "TITULO"
    xlSheet.Cells(1, 1).Interior.ColorIndex = 33
    xlSheet.Cells(1, 1).Font.Bold = True
    xlSheet.Cells(1, 1).HorizontalAlignment = xlCenter
    
    xlSheet.Cells(2, 1).Value = Now()
    xlSheet.Cells(2, 1).Font.Bold = True
    xlSheet.Cells(2, 1).HorizontalAlignment = xlCenter
    
    xlApp.Range("C1:C10,E1:E10").Select
 
'Salvar la hoja de excel
    xlSheet.Name = "EXPORT"
    
    xlSheet.SaveAs "c:\NombreArchivo.xls"
    
    xlBook.Close
    xlApp.Quit
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing
End Sub