Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение файла с именем открытой книги - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла с именем открытой книги (Макросы/Sub)
Сохранение файла с именем открытой книги
Anton2201 Дата: Воскресенье, 31.03.2019, 22:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Здравствуйте!
Подскажите пожалуйста, что нужно написать что бы файл EXCEL сохранялся в текстовый файл, но с тем же именем (автоматически).

У меня пока только вот такой пример, где имя всегда одно и то же...

[vba]
Код
With CreateObject("scripting.filesystemobject")
With .CreateTextFile(ThisWorkbook.Path & "\123.txt", True)
.Write s: .Close
End With
[/vba]

Сам макрос наверное нет смысла присылать,т.к. задачка довольно таки общая...


Сообщение отредактировал китин - Пятница, 12.04.2019, 10:00
 
Ответить
СообщениеЗдравствуйте!
Подскажите пожалуйста, что нужно написать что бы файл EXCEL сохранялся в текстовый файл, но с тем же именем (автоматически).

У меня пока только вот такой пример, где имя всегда одно и то же...

[vba]
Код
With CreateObject("scripting.filesystemobject")
With .CreateTextFile(ThisWorkbook.Path & "\123.txt", True)
.Write s: .Close
End With
[/vba]

Сам макрос наверное нет смысла присылать,т.к. задачка довольно таки общая...

Автор - Anton2201
Дата добавления - 31.03.2019 в 22:50
Karataev Дата: Воскресенье, 31.03.2019, 23:00 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1327
Репутация: 526 ±
Замечаний: 0% ±

Excel
Ответ удален администрацией
PS. Оформите код в виде кода, для этого выделите код и нажмите вверху #.


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288


Сообщение отредактировал _Boroda_ - Воскресенье, 31.03.2019, 23:51
 
Ответить
СообщениеОтвет удален администрацией
PS. Оформите код в виде кода, для этого выделите код и нажмите вверху #.

Автор - Karataev
Дата добавления - 31.03.2019 в 23:00
Anton2201 Дата: Пятница, 05.04.2019, 21:34 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Ну что неужели никто не подскажет?
 
Ответить
СообщениеНу что неужели никто не подскажет?

Автор - Anton2201
Дата добавления - 05.04.2019 в 21:34
Anton2201 Дата: Пятница, 05.04.2019, 21:41 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Karataev,
[vba]
Код
With CreateObject("scripting.filesystemobject")
With .CreateTextFile(ThisWorkbook.Path & "\123.txt", True)
.Write s: .Close
End With
[/vba]
 
Ответить
СообщениеKarataev,
[vba]
Код
With CreateObject("scripting.filesystemobject")
With .CreateTextFile(ThisWorkbook.Path & "\123.txt", True)
.Write s: .Close
End With
[/vba]

Автор - Anton2201
Дата добавления - 05.04.2019 в 21:41
Karataev Дата: Пятница, 05.04.2019, 21:48 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1327
Репутация: 526 ±
Замечаний: 0% ±

Excel


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288


Сообщение отредактировал Karataev - Пятница, 05.04.2019, 23:16
 
Ответить
Сообщение

Автор - Karataev
Дата добавления - 05.04.2019 в 21:48
Anton2201 Дата: Пятница, 05.04.2019, 23:05 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Karataev, решение которое вы прислали сохраняет не стем именем. Мне нужно имя файла который я открываю изначально (txt).
Высылаю целиком то что у меня есть и что нужно конвертировать.
Нужно что бы файл тестер переработал файл txt, а потом его сохранил с тем же именем

заранее спасибо!
К сообщению приложен файл: 8897577.xlsm(25.8 Kb) · PB3349_42695678.txt(0.3 Kb)


Сообщение отредактировал Anton2201 - Пятница, 05.04.2019, 23:06
 
Ответить
СообщениеKarataev, решение которое вы прислали сохраняет не стем именем. Мне нужно имя файла который я открываю изначально (txt).
Высылаю целиком то что у меня есть и что нужно конвертировать.
Нужно что бы файл тестер переработал файл txt, а потом его сохранил с тем же именем

заранее спасибо!

Автор - Anton2201
Дата добавления - 05.04.2019 в 23:05
Karataev Дата: Пятница, 05.04.2019, 23:13 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1327
Репутация: 526 ±
Замечаний: 0% ±

Excel
Внес изменения в пост 5.


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288


Сообщение отредактировал Karataev - Пятница, 05.04.2019, 23:16
 
Ответить
СообщениеВнес изменения в пост 5.

Автор - Karataev
Дата добавления - 05.04.2019 в 23:13
Anton2201 Дата: Пятница, 05.04.2019, 23:22 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Ругается на эту строчку...

[vba]
Код
With .CreateTextFile(ThisWorkbook.Path & "\" & strFileName & ".txt", True)
[/vba]
 
Ответить
СообщениеРугается на эту строчку...

[vba]
Код
With .CreateTextFile(ThisWorkbook.Path & "\" & strFileName & ".txt", True)
[/vba]

Автор - Anton2201
Дата добавления - 05.04.2019 в 23:22
Pelena Дата: Суббота, 06.04.2019, 07:26 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 14213
Репутация: 3106 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
его сохранил с тем же именем

А нельзя просто написать [vba]
Код
ActiveWorkbook.Save
[/vba] вместо
[vba]
Код
With CreateObject("scripting.filesystemobject")
With .CreateTextFile(ThisWorkbook.Path & "\123.txt", True)
.Write s: .Close
End With
[/vba]
Или я что-то не так поняла?
К сообщению приложен файл: 9431099.xlsm(25.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
его сохранил с тем же именем

А нельзя просто написать [vba]
Код
ActiveWorkbook.Save
[/vba] вместо
[vba]
Код
With CreateObject("scripting.filesystemobject")
With .CreateTextFile(ThisWorkbook.Path & "\123.txt", True)
.Write s: .Close
End With
[/vba]
Или я что-то не так поняла?

Автор - Pelena
Дата добавления - 06.04.2019 в 07:26
bmv98rus Дата: Суббота, 06.04.2019, 08:20 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2333
Репутация: 401 ±
Замечаний: 20% ±

Excel 2013/2016
Pelena, Елена, Вам замечание за ответ в теме, где не устранено замечание из №2, на №1 :D :D


Замечательный медведь, процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 06.04.2019, 08:20
 
Ответить
СообщениеPelena, Елена, Вам замечание за ответ в теме, где не устранено замечание из №2, на №1 :D :D

Автор - bmv98rus
Дата добавления - 06.04.2019 в 08:20
Pelena Дата: Суббота, 06.04.2019, 08:29 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 14213
Репутация: 3106 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
ТС не может уже там исправить, исправил в 4-ом посте. Зачтено :)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТС не может уже там исправить, исправил в 4-ом посте. Зачтено :)

Автор - Pelena
Дата добавления - 06.04.2019 в 08:29
Anton2201 Дата: Воскресенье, 07.04.2019, 10:40 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena, там же нужно в txt автоматом что бы сохранял.

Большое спасибо Karataev, всё решили!!!!
 
Ответить
СообщениеPelena, там же нужно в txt автоматом что бы сохранял.

Большое спасибо Karataev, всё решили!!!!

Автор - Anton2201
Дата добавления - 07.04.2019 в 10:40
Pelena Дата: Воскресенье, 07.04.2019, 11:01 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 14213
Репутация: 3106 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
там же нужно в txt автоматом что бы сохранял

Так и сохраняет


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
там же нужно в txt автоматом что бы сохранял

Так и сохраняет

Автор - Pelena
Дата добавления - 07.04.2019 в 11:01
RAN Дата: Воскресенье, 07.04.2019, 12:05 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5097
Репутация: 1015 ±
Замечаний: 0% ±

2010
Лена, так он же не автоматом сохраняет, а пулеметом. :D
Anton2201, команда Save сохраняет открытый файл, не преобразовывая тип файла.
Вот если вы его захотите сохранить как файл Excel, тогда придется попотеть.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЛена, так он же не автоматом сохраняет, а пулеметом. :D
Anton2201, команда Save сохраняет открытый файл, не преобразовывая тип файла.
Вот если вы его захотите сохранить как файл Excel, тогда придется попотеть.

Автор - RAN
Дата добавления - 07.04.2019 в 12:05
Anton2201 Дата: Четверг, 11.04.2019, 23:30 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena,
Так и сохраняет

Сохраняет, но не в том формате. Мне нужно было что бы данные в сохранённом файле были через ";", а у вас они через Tab.
 
Ответить
СообщениеPelena,
Так и сохраняет

Сохраняет, но не в том формате. Мне нужно было что бы данные в сохранённом файле были через ";", а у вас они через Tab.

Автор - Anton2201
Дата добавления - 11.04.2019 в 23:30
Anton2201 Дата: Четверг, 11.04.2019, 23:36 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Друзья ещё одна проблема возникла после некоторой доработки файла.
Мне пришлось его немного переделать чтобы первой строкой шла строка с итогами, но после моих доработок, итоговый файл всегда содержит лишние ";" в первой строке ( видимо добавляет по ширине таблицы...)
Есть ли способ устранить это?
В верхней строке всегда только три значения, и ниже таблица тоже одинаковая в ширину, но в высоту может и до сотни набирать.

Я так понимаю дело в этой штуке, но я понять не могу что тут написано (перечитал кучу форумов...)
Доступно только для пользователей
К сообщению приложен файл: _2.xlsm(26.6 Kb) · PB3349_42930452.txt(1.2 Kb)


Сообщение отредактировал Anton2201 - Пятница, 12.04.2019, 00:41
 
Ответить
СообщениеДрузья ещё одна проблема возникла после некоторой доработки файла.
Мне пришлось его немного переделать чтобы первой строкой шла строка с итогами, но после моих доработок, итоговый файл всегда содержит лишние ";" в первой строке ( видимо добавляет по ширине таблицы...)
Есть ли способ устранить это?
В верхней строке всегда только три значения, и ниже таблица тоже одинаковая в ширину, но в высоту может и до сотни набирать.

Я так понимаю дело в этой штуке, но я понять не могу что тут написано (перечитал кучу форумов...)
Доступно только для пользователей

Автор - Anton2201
Дата добавления - 11.04.2019 в 23:36
RAN Дата: Пятница, 12.04.2019, 07:23 | Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5097
Репутация: 1015 ±
Замечаний: 0% ±

2010
Окончание кода перепишите так
[vba]
Код
    Sheets("Лист1").Select
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    
    ActiveWorkbook.SaveAs avFiles, xlCSV, local:=True
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True

    With CreateObject("scripting.filesystemobject")
        With .OpenTextFile(avFiles, 1)
            s = Replace(.readall, ";;;;;;", "")
            .Close
        End With
        With .OpenTextFile(avFiles, 2)
            .Write s: .Close
        End With
    End With
    MsgBox "Файл сохранен в директорию где находтся конвертер", 64
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеОкончание кода перепишите так
[vba]
Код
    Sheets("Лист1").Select
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    
    ActiveWorkbook.SaveAs avFiles, xlCSV, local:=True
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True

    With CreateObject("scripting.filesystemobject")
        With .OpenTextFile(avFiles, 1)
            s = Replace(.readall, ";;;;;;", "")
            .Close
        End With
        With .OpenTextFile(avFiles, 2)
            .Write s: .Close
        End With
    End With
    MsgBox "Файл сохранен в директорию где находтся конвертер", 64
End Sub
[/vba]

Автор - RAN
Дата добавления - 12.04.2019 в 07:23
Anton2201 Дата: Пятница, 12.04.2019, 09:58 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
RAN, Спасибо, помогло, но теперь макрос просто перезаписывает файл, а было создание нового файла в директории с конвертером...


Сообщение отредактировал Anton2201 - Пятница, 12.04.2019, 10:24
 
Ответить
СообщениеRAN, Спасибо, помогло, но теперь макрос просто перезаписывает файл, а было создание нового файла в директории с конвертером...

Автор - Anton2201
Дата добавления - 12.04.2019 в 09:58
RAN Дата: Пятница, 12.04.2019, 12:06 | Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5097
Репутация: 1015 ±
Замечаний: 0% ±

2010
Беда... :'(
[vba]
Код
    strFileName = ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    ActiveWorkbook.SaveAs strFileName, xlCSV, local:=True
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True

    With CreateObject("scripting.filesystemobject")
        With .OpenTextFile(strFileName, 1)
            s = Replace(.readall, ";;;;;;", "")
            .Close
        End With
        With .OpenTextFile(strFileName, 2)
            .Write s: .Close
        End With
    End With
    MsgBox "Файл сохранен в директорию где находтся конвертер", 64
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеБеда... :'(
[vba]
Код
    strFileName = ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    ActiveWorkbook.SaveAs strFileName, xlCSV, local:=True
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True

    With CreateObject("scripting.filesystemobject")
        With .OpenTextFile(strFileName, 1)
            s = Replace(.readall, ";;;;;;", "")
            .Close
        End With
        With .OpenTextFile(strFileName, 2)
            .Write s: .Close
        End With
    End With
    MsgBox "Файл сохранен в директорию где находтся конвертер", 64
End Sub
[/vba]

Автор - RAN
Дата добавления - 12.04.2019 в 12:06
Anton2201 Дата: Пятница, 12.04.2019, 12:43 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
RAN, спасибо )))
 
Ответить
СообщениеRAN, спасибо )))

Автор - Anton2201
Дата добавления - 12.04.2019 в 12:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла с именем открытой книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!