Solución:
Cambiar manualmente la extensión del nombre de archivo no cambia realmente el tipo de archivo. los SaveAs El método toma un argumento de tipo de archivo. El código que quieres es
ActiveWorkbook.SaveAs Filename:="e:" & "HDR" + Format(Now(), "YYYYMMDDhhmmss") _
& ".txt", FileFormat:= xlTextWindows
Hacer una búsqueda desde la ayuda de Excel para XlFileFormat obtendrá (casi) la lista completa de posibles formatos de archivo, incluidos 6 formatos de texto y 4 formatos CSV.
Agregar texto al nombre no codifica automáticamente el documento de Word en formato de texto sin formato.
En lugar de intentar
ActiveWorkbook.SaveAs Filename:="e:" & _
"HDR" + Format(Now(), "YYYYMMDDhhmmss") & ".txt", FileFormat:=wdFormatText, Encoding:=1252
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)