Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как конвертировать таблицу в одноименный текстовый файл, нажатием одной кнопки?
 
Существуют экселевские таблицы с данными в 5 колонок (документов таких "миллион" каждый день).
условные названия:
"100_0024_Timestamp.xlsx"
"100_0025_Timestamp.xlsx"
"100_0026_Timestamp.xlsx"
"100_0027_Timestamp.xlsx"
и т.д.

Как в Экселе сохранять такие файлы в форматах (конвертировать):
в
1) Текстовые файлы с разделителями табуляции (*.TXT)
и
2.1) CSV (разделители запятые) (*.CSV)
2.2)  CSV (разделители точка-запятые) (*.CSV)
в той же папке, что и исходный файл, только Одним щелчком мыши (по кнопке, без диалоговых окон).

Макрос по автозаписи имеет вид и подходит только для файла с конкретно заданными одним именем, а нужно чтобы у каждого был свой, на основе исходного документа xlsx.
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ChDir "C:\!!!MRK\XLSX"
    ActiveWorkbook.SaveAs Filename:="C:\!!!MRK\XLSX\100_0024_Timestamp.txt", _
        FileFormat:=xlText, CreateBackup:=False
End Sub


C:\!!!MRK\XLSX\100_0024_Timestamp.txt - 
 
Попробуйте так
Код
ActiveWorkbook.SaveAs Filename:=replace(activeworkbook.name,"xlsx","txt"), _
        FileFormat:=xlText, CreateBackup:=False
 
хорошо получилось, единственное, макрос сохраняет в папку мои документы, вот бы от сохранял рядом с исходным экселевским файлом
 
Цитата
activeworkbook.FullName
Страницы: 1
Читают тему (гостей: 1)
Наверх