Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: runner от 19.04.2013, 12:54

Название: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: runner от 19.04.2013, 12:54
Добрый день!
Нужно сохранить файл, с названием взятым из ячейки B1
(выглядеть должно как 20130419мотомир.txt)

в формате:
Текстовые файлы (с разделителями табуляции)

например, в папку:
C:\Users\Иванов\Documents\Заказы

VBA для меня пока = [записал макрос - посмотрел пошагово как работает - попытался что-то скорректировать] параллельно смотрю книжку.

Если мой вопрос совсем чайницкий - ткните носом, пожалуйста, куда посмотреть. Поиском по форуму похожего не нашёл.
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: Poltava от 19.04.2013, 14:00
Топорно но это второе что пришло в голову. Первым было SaveCopyAs но я удивился не обнаружив в этом методе возможности задания формата файла.
Option Explicit
Sub СохранитьАктивныйЛистКакТекстовыйФайл()
    Dim WbFname$, TFname$, Twb As Workbook
    ActiveWorkbook.Save 'Сохраняем активную книгу
    WbFname = ActiveWorkbook.FullName 'Запоминаем путь к активной книге
    TFname = Range("B1").Value 'Формируем имя файла
    'Сохраняем книгу при этом активная книга закрываеться и открываеться сохраненная
    ActiveWorkbook.SaveAs Filename:=TFname, FileFormat:=xlText, CreateBackup:=False
    Set Twb = ActiveWorkbook 'Запоминаем активну книгу в переменную
    Workbooks.Open WbFname 'Открываем ту книгу которая была активной
    Twb.Close False 'Закрываем книгу из переменной
End Sub
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: runner от 19.04.2013, 14:16
Отлично работает!
Один вопрос=пожелание - как, всё-таки, сохранять файл не там где он есть, а там куда надо, просто прописав путь в макросе?
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: Poltava от 19.04.2013, 14:31
TFname = Range("B1").Value 'Формируем имя файла
я же вроде прокомментировал код
TFname = "C:\" & Range("B1").Value
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: runner от 19.04.2013, 14:50
Я в восторге!
Отдельное спасибо за подробности!
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: Poltava от 19.04.2013, 23:38
Если код будет в персонале либо в книге не являющейся экспортируемой то можно записать так
Option Explicit
Sub СохранитьАктивныйЛистКакТекстовыйФайл()
    Dim WbFname$, TFname$, Twb As Workbook
    ActiveWorkbook.Save 'Сохраняем активную книгу
    WbFname = ActiveWorkbook.FullName 'Запоминаем путь к активной книге
    TFname = Range("B1").Value 'Формируем имя файла
    'Сохраняем книгу при этом активная книга закрываеться и открываеться сохраненная
    ActiveWorkbook.SaveAs Filename:=TFname, FileFormat:=xlText, CreateBackup:=False
    Set Twb = ActiveWorkbook 'Запоминаем активну книгу в переменную
    ActiveWorkbook.Close False 'Закрываем книгу из переменной
    Workbooks.Open WbFname 'Открываем ту книгу которая была активной
End Sub
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: Crysi от 26.02.2018, 20:38
Уважаемые форумчане,
Воспользовался данным примером но вот возникла следующая потребность:
Есть форма отчета и пытаюсь создать макрос для того, чтоб заполненная форма сохранялась с название из нескольких ячеек а не одной, допустим
TFname = Range("B9") & ("_") & Range("B10") & ("_") & Range("B11") & ".XLS"
Но он мне сохраняет файл с названием например 1_2_3, а можно ли чтоб вместо подчеркивания создавались пробелы-пустота и выглядело приблизительно так "1 2 3"?
И еще одно, каким методом можно созранять форму без макроса, т.е. чистую, чтоб не весила много?

Заранее спасибо.
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: boa от 26.02.2018, 22:03
Уважаемый, Crysi
вы бы создали новую тему и приложили бы свои старания "пытаюсь создать макрос"
Название: Re: Сохранение файла в текстовом формате с именем взятым из ячейки
Отправлено: Crysi от 27.02.2018, 17:18
Уважаемый boa,
Понял, сейчас все оформим.
Спасибо.