Elección de un Rango

[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