jhjimene

denciso respondió: Prueba con la siguiente rutina: Private Sub Exporta_Excel() Dim oObjetoExcel As Object Dim icol As Integer Dim iContRengDatos As Integer Dim iContRengExcel As Integer Dim iResult As Integer Dim pszCelda As Variant On Local Error GoTo Muestra_Error...