Consulta macros

Article View: chile.comp.programacion

Article #806

Back to chile.comp.programacion Previous Next

#806

From: 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'

Technical Details

Message-ID: <1186148110.642690.214510@q75g2000hsh.googlegroups.com>

Path: arc1-ca.pugleaf.net!g2news2.google.com!postnews.google.com!q75g2000hsh.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 1593cb,fa467bf0a04fd062,start
X-Google-Attributes: gid1593cb,public,usenet
X-Google-Language: SPANISH,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!postnews.google.com!q75g2000hsh.googlegroups.com!not-for-mail
From:  Michel Andres <surtido@gmail.com>
Newsgroups: chile.comp.programacion
Subject: Consulta macros
Date: Fri, 03 Aug 2007 06:35:10 -0700
Organization: http://groups.google.com
Lines: 27
Message-ID: <1186148110.642690.214510@q75g2000hsh.googlegroups.com>
NNTP-Posting-Host: 200.14.107.2
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1186148111 22892 127.0.0.1 (3 Aug 2007 13:35:11 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 3 Aug 2007 13:35:11 +0000 (UTC)
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe)
X-HTTP-Via: 1.1 3KCLSCLPX01, 1.1 3KCLSCLPX02
Complaints-To: groups-abuse@google.com
Injection-Info: q75g2000hsh.googlegroups.com; posting-host=200.14.107.2;
   posting-account=ps2QrAMAAAA6_jCuRt2JEIpn5Otqf_w0