Forums Últimos mensajes - Powered by IBM
 

rango de archivo excel pasar a formato txt

23/09/2011 - 19:53 por OSG | Informe spam
Buenas tardes espero me puedan ayudar por favor, tengo el siguiente
codigo , pero a la hora que me pasa algunos datos me los convierte a
un formato que no deseo, por ejemplo las fechas son 09-09-2011 y me
los pone 9/9/2011, asi como otro tipo de formato, ademas la ruta donde
deseo guargarlo debe de ser R:\datos\polizas

Muchas gracias por su ayuda por adelantado.

Saludos.

Sub RangoXlsaTxT()

Dim rng As Range, nombr As String
On Error Resume Next
Set rng = Application.InputBox("Selecciona el rango a guardar:",
Type:=8)
If rng Is Nothing Then Exit Sub

Workbooks.Add xlWBATWorksheet
rng.Copy: [a1].PasteSpecial xlPasteValuesAndNumberFormats

nombr = ThisWorkbook.Path & "" & Format(Now, "yyyymmddhhmmss") & ".
Txt"

ActiveWorkbook.SaveAs Filename:=nombr, FileFormat:=xlTextMSDOS
ActiveWorkbook.Close False
MsgBox "Creado archivo: " & vbCrLf & nombr
End Sub
 

Leer las respuestas

#1 Emilio
23/09/2011 - 20:09 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
si la exportación la haces de esa manera pierdes todo el control sobre el
proceso y Excel hace lo que considera oportuno.

En mi web tengo un ejemplo de como hacerlo y de ese modo podrás ajustar todo
lo que te convenga

http://www.mvp-access.es/emilio/Des...?IdEjemplo2

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"OSG" escribió en el mensaje de noticias
news:
Buenas tardes espero me puedan ayudar por favor, tengo el siguiente
codigo , pero a la hora que me pasa algunos datos me los convierte a
un formato que no deseo, por ejemplo las fechas son 09-09-2011 y me
los pone 9/9/2011, asi como otro tipo de formato, ademas la ruta donde
deseo guargarlo debe de ser R:\datos\polizas

Muchas gracias por su ayuda por adelantado.

Saludos.

Sub RangoXlsaTxT()

Dim rng As Range, nombr As String
On Error Resume Next
Set rng = Application.InputBox("Selecciona el rango a guardar:",
Type:=8)
If rng Is Nothing Then Exit Sub

Workbooks.Add xlWBATWorksheet
rng.Copy: [a1].PasteSpecial xlPasteValuesAndNumberFormats

nombr = ThisWorkbook.Path & "" & Format(Now, "yyyymmddhhmmss") & ".
Txt"

ActiveWorkbook.SaveAs Filename:=nombr, FileFormat:=xlTextMSDOS
ActiveWorkbook.Close False
MsgBox "Creado archivo: " & vbCrLf & nombr
End Sub

__________ Information from ESET Smart Security, version of virus
signature database 6488 (20110923) __________

The message was checked by ESET Smart Security.

http://www.eset.com







__________ Information from ESET Smart Security, version of virus signature database 6488 (20110923) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Preguntas similares