Всем доброго дня! Уважаемые спецы прошу помощи, нужно сохранить с книги лист под названием (материалы) в формате (Текстовые файлы с разделителями табуляции . txt.) В папку под названием (Записи) с возможностью менять наименование файла в диалоговом окне (заказ_№_)
Всем доброго дня! Уважаемые спецы прошу помощи, нужно сохранить с книги лист под названием (материалы) в формате (Текстовые файлы с разделителями табуляции . txt.) В папку под названием (Записи) с возможностью менять наименование файла в диалоговом окне (заказ_№_)dx84
Sub Макрос2() For Each Sh_ In ActiveWorkbook.Sheets If Sh_.Name = "материалы" Then Application.DisplayAlerts = 0 p_ = "C:\Записи\" Sh_.Select Shn_ = InputBox("Введи номер", "Как сохранять будем?", "заказ_№_") On Error Resume Next ActiveWorkbook.SaveAs Filename:=p_ & Shn_ & ".txt", FileFormat:=xlText If Err.Number <> 0 Then MsgBox "Нет пути " & p_ On Error GoTo 0 ActiveSheet.Name = "материалы" Application.DisplayAlerts = 1 End If Next End Sub
[/vba]
Так нужно? [vba]
Код
Sub Макрос2() For Each Sh_ In ActiveWorkbook.Sheets If Sh_.Name = "материалы" Then Application.DisplayAlerts = 0 p_ = "C:\Записи\" Sh_.Select Shn_ = InputBox("Введи номер", "Как сохранять будем?", "заказ_№_") On Error Resume Next ActiveWorkbook.SaveAs Filename:=p_ & Shn_ & ".txt", FileFormat:=xlText If Err.Number <> 0 Then MsgBox "Нет пути " & p_ On Error GoTo 0 ActiveSheet.Name = "материалы" Application.DisplayAlerts = 1 End If Next End Sub
_Boroda_, У меня вот такой путь к папке C:\Users\Администратор\Desktop я его прописал там где вы указали но сохраняет почему то не в папку Записи а на рабочий стол.
_Boroda_, У меня вот такой путь к папке C:\Users\Администратор\Desktop я его прописал там где вы указали но сохраняет почему то не в папку Записи а на рабочий стол.dx84
Можно. Все можно. Вот только смысл, с точки зрения Мировой Революции? [vba]
Код
Sub Макрос2() For Each Sh_ In ActiveWorkbook.Sheets If Sh_.Name = "материалы" Then p_ = Application.GetSaveAsFilename(InitialFileName:="C:\Users\Администратор\Desktop\Записи\заказ_№_.txt", FileFilter:="Текстовые файлы (с разделителями тыбуляции)(*.txt), *.txt", Title:="dd") If p_ <> "False" Then Sh_.Select Application.DisplayAlerts = 0 On Error Resume Next ActiveWorkbook.SaveAs Filename:=p_, FileFormat:=xlText If Err.Number <> 0 Then MsgBox "Нет пути " & p_ On Error GoTo 0 ActiveSheet.Name = "материалы" Application.DisplayAlerts = 1 Exit Sub End If End If Next End Sub
[/vba]
Можно. Все можно. Вот только смысл, с точки зрения Мировой Революции? [vba]
Код
Sub Макрос2() For Each Sh_ In ActiveWorkbook.Sheets If Sh_.Name = "материалы" Then p_ = Application.GetSaveAsFilename(InitialFileName:="C:\Users\Администратор\Desktop\Записи\заказ_№_.txt", FileFilter:="Текстовые файлы (с разделителями тыбуляции)(*.txt), *.txt", Title:="dd") If p_ <> "False" Then Sh_.Select Application.DisplayAlerts = 0 On Error Resume Next ActiveWorkbook.SaveAs Filename:=p_, FileFormat:=xlText If Err.Number <> 0 Then MsgBox "Нет пути " & p_ On Error GoTo 0 ActiveSheet.Name = "материалы" Application.DisplayAlerts = 1 Exit Sub End If End If Next End Sub
_Boroda_, Все ок! Только еще один вопрос возник если в папке имеется уже заказ например №1 и я ошибочно еще раз сохраняю с таким же номером нет не кокого предлога что уже есть под таким номером заказ. Можно это как то поправить?
_Boroda_, Все ок! Только еще один вопрос возник если в папке имеется уже заказ например №1 и я ошибочно еще раз сохраняю с таким же номером нет не кокого предлога что уже есть под таким номером заказ. Можно это как то поправить?dx84
Во неужели проще было создать пост, сделать картинку, прилепить ее в пост, чем самому поменять в макросе ОДНУ!!! букву? Ну не попал я по клавише, что, поменять самостоятельно никак, да? держите с проверкой на повтор (путь меняйте самостоятельно) [vba]
Код
Sub Макрос2() For Each Sh_ In ActiveWorkbook.Sheets If Sh_.Name = "материалы" Then A: p_ = Application.GetSaveAsFilename(InitialFileName:="D:\Стереть\заказ_№_.txt", FileFilter:="Текстовые файлы (с разделителями табуляции)(*.txt), *.txt") If p_ <> "False" Then On Error Resume Next gg_ = Dir(p_, vbNormal) If gg_ <> "" Then MsgBox "Такой файл уже есть": GoTo A Sh_.Select Application.DisplayAlerts = 0 ActiveWorkbook.SaveAs Filename:=p_, FileFormat:=xlText If Err.Number <> 0 Then MsgBox "Нет пути " & p_ On Error GoTo 0 ActiveSheet.Name = "материалы" Application.DisplayAlerts = 1 Exit Sub End If End If Next End Sub
Во неужели проще было создать пост, сделать картинку, прилепить ее в пост, чем самому поменять в макросе ОДНУ!!! букву? Ну не попал я по клавише, что, поменять самостоятельно никак, да? держите с проверкой на повтор (путь меняйте самостоятельно) [vba]
Код
Sub Макрос2() For Each Sh_ In ActiveWorkbook.Sheets If Sh_.Name = "материалы" Then A: p_ = Application.GetSaveAsFilename(InitialFileName:="D:\Стереть\заказ_№_.txt", FileFilter:="Текстовые файлы (с разделителями табуляции)(*.txt), *.txt") If p_ <> "False" Then On Error Resume Next gg_ = Dir(p_, vbNormal) If gg_ <> "" Then MsgBox "Такой файл уже есть": GoTo A Sh_.Select Application.DisplayAlerts = 0 ActiveWorkbook.SaveAs Filename:=p_, FileFormat:=xlText If Err.Number <> 0 Then MsgBox "Нет пути " & p_ On Error GoTo 0 ActiveSheet.Name = "материалы" Application.DisplayAlerts = 1 Exit Sub End If End If Next End Sub
_Boroda_, Не злитесь так просто я забыл отписаться изначально что я ноль в этом деле. Ну а вы конечно царь. Только все равно выскакивает при сохранение вот такое окошко заказ_№_.txt а надо заказ_№_ Просто проще сохранять ни целиться между буковками а рядом приписывать циферки ну и конечно чтоб формат сохранялся txt. В свое время вы писали примерно так. fName = Application.GetSaveAsFilename(p_ & "\" & "Заказы\Заказ_N_") & "xlsm"
_Boroda_, Не злитесь так просто я забыл отписаться изначально что я ноль в этом деле. Ну а вы конечно царь. Только все равно выскакивает при сохранение вот такое окошко заказ_№_.txt а надо заказ_№_ Просто проще сохранять ни целиться между буковками а рядом приписывать циферки ну и конечно чтоб формат сохранялся txt. В свое время вы писали примерно так. fName = Application.GetSaveAsFilename(p_ & "\" & "Заказы\Заказ_N_") & "xlsm"dx84
пост 9. Чья картинка? Кто просил с .txt? Попробуйте так: сотрите ".txt" тут p_ = Application.GetSaveAsFilename(InitialFileName:="D:\Стереть\заказ_№_.txt", F... У меня запрашивается файл без расширения.
пост 9. Чья картинка? Кто просил с .txt? Попробуйте так: сотрите ".txt" тут p_ = Application.GetSaveAsFilename(InitialFileName:="D:\Стереть\заказ_№_.txt", F... У меня запрашивается файл без расширения._Boroda_
Держите. И все, с этим вопросом давайте закончим. Мне надоело уже, если честно. В конце концов, это не работа, за которую я зарплату получаю, а просто помощь по собственному желанию, которого, увы, уже совсем не осталось.
Держите. И все, с этим вопросом давайте закончим. Мне надоело уже, если честно. В конце концов, это не работа, за которую я зарплату получаю, а просто помощь по собственному желанию, которого, увы, уже совсем не осталось._Boroda_
_Boroda_, Хоть вы стреляйте в меня но при сохранении txt не исчезает. У меня офис 2010 может в этом проблема. Ну и бог с ним спасибо вам огромное за потраченное время все равно выручили, не буду обращать внимание на на это txt
_Boroda_, Хоть вы стреляйте в меня но при сохранении txt не исчезает. У меня офис 2010 может в этом проблема. Ну и бог с ним спасибо вам огромное за потраченное время все равно выручили, не буду обращать внимание на на это txtdx84
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
