Consulta macros

Thread View: chile.comp.programacion

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Michel Andres Fri, 03 Aug 2007 13:35

#806

Author: Michel Andres
Date: Fri, 03 Aug 2007 13:35

26 lines
1887 bytes

Hola Gente,

Tengo la siguiente macros

Sub CambiaFormat()
    Columns("A:A").Select
    Selection.NumberFormat = "ddmm"
    Columns("C:C").Select
    Selection.NumberFormat = "000000000000000000000000"
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\Prueba.txt",
FileFormat:=xlTextPrinter _
        , CreateBackup:=False
MsgBox "Archivo guardado. Ubicación C:\Prueba.txt"
    ThisWorkbook.Close SaveChanges:=False

End Sub

'Pasa a texto delimitado por espacios y graba Ok.
El problema es cuando me pregunta quiere Reemplazar el archivo
existente, pongo No y se cae. Alguien sabe la solucion.

error: 'SaveAs' de objeto'_Workbook'

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads