Comment enregistrer sous .txt en vba
Je suis à la recherche de ma Macro enregistrer une nouvelle feuille que j'ai créé comme un .fichier txt. c'est le code que j'ai jusqu'ici.
Sub Move()
'
' Move Macro
'
' Keyboard Shortcut: Ctrl+m
'
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="e:" & _
"HDR" + Format(Now(), "YYYYMMDDhhmmss") & ".txt"
End Sub
Qui comprend ma macro. Je vais avoir des ennuis avec la dernière partie où il enregistre en tant que .fichier txt.
Je suis actuellement à obtenir un tas de merde sur mon .fichier txt, voici un exemple,
"PK ! !}ñU{ Š [Content_Types].xml ¢( ÌTÝNÂ0¾7ñ–Þš€‰1†Á...⥒ˆPÚ3¶ÐµMOÁñöž•Ÿ".
Toute aide serait super.
Pour info, vous ne pouvez pas enregistrer plusieurs feuilles dans un fichier texte. Si vous essayez manuellement, vous serez averti que seule la feuille active sera sauvé.
OriginalL'auteur Tony Bergeson | 2014-10-01
Vous devez vous connecter pour publier un commentaire.
De modifier manuellement l'extension du nom de fichier n'est pas réellement changer le type de fichier. Le
SaveAs
méthode prend un fichier de type d'argument. Le code que vous voulez estFaire une recherche dans l'aide d'Excel pour
XlFileFormat
va vous rendre (presque) la liste complète des formats de fichier, y compris les 6 formats de texte, et 4 format CSV.OriginalL'auteur Degustaf
Ajoutant txt pour le nom n'a pas d'encoder automatiquement un document word en format texte brut.
Au lieu de tenter
OriginalL'auteur AJY