ОБЪЕДИНЕНИЕ МАКРОСОВ (ДИАЛОГОВОЕ ОКНО+ФОРМАТ) - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » ОБЪЕДИНЕНИЕ МАКРОСОВ (ДИАЛОГОВОЕ ОКНО+ФОРМАТ) (Макросы/Sub)

ОБЪЕДИНЕНИЕ МАКРОСОВ (ДИАЛОГОВОЕ ОКНО+ФОРМАТ)

AndreTM

Дата: Среда, 10.09.2014, 17:03 | Сообщение № 21

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Цитата televnoy, 10.09.2014 в 16:38, в сообщении № 18

УВАЖАЕМЫЙ AndreTM, данный макрос я как то не допонял.

:)
А просто взять и вспомнить мой макрос ExportSheet2CSV (который ВЫ обозвали ExportSheetTXT) - традиция не позволяет? И "жёлтенькая" ExportData() - в ту же строку, ведь это означает, что вы даже не удосужились предварительную компиляцию проекта сделать (либо положиди процедуру НЕ в общий модуль)...

Результат - я тогда не желаю даже разговаривать с человеком, обратившимся в в "Вопросы по VBA", но о VBA знающем только слово "макрос"...

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

televnoy

Дата: Среда, 10.09.2014, 17:13 | Сообщение № 22

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

RAN, файл приложен

был

а суть изложена

при стандартном сохранении (появляются лишние кавычки)

[ 0.1 ] " PATH """" ""Drill\1_Single.pm4"" (QX = 50 ""Quota X"", QY = 50 ""Quota Y"", DIA = 8 ""Diameter"",PRF = 13 ""Depth"""
[ 0.2 ] " PATH """" ""Drill\1_Single.pm4"" (QX = 100 ""Quota X"", QY = 100 ""Quota Y"", DIA = 8 ""Diameter"",PRF = 25 ""Depth"""
[ 0.3 ] " PATH """" ""Drill\1_Single.pm4"" (QX = 150 ""Quota X"", QY = 150 ""Quota Y"", DIA = 8 ""Diameter"",PRF = 13 ""Depth"""

сохранение макросом

[ 0.1 ] PATH "" "Drill\1_Single.pm4" (QX = 50 "Quota X", QY = 50 "Quota Y", DIA = 8 "Diameter",PRF = 13 "Depth"
[ 0.2 ] PATH "" "Drill\1_Single.pm4" (QX = 100 "Quota X", QY = 100 "Quota Y", DIA = 8 "Diameter",PRF = 25 "Depth"
[ 0.3 ] PATH "" "Drill\1_Single.pm4" (QX = 150 "Quota X", QY = 150 "Quota Y", DIA = 8 "Diameter",PRF = 13 "Depth"

единственное макрос сохранял по умолчанию по имени листа, а надо чтоб это имя вводил пользователь.

В ПРИМЕРЕ КОТОРЫЙ БЫЛ ПРИЛОЖЕН СОХРАНЯЕТ В ПРОСТОМ ТЕКСТОВОМ РЕДАКТОРЕ ДЛЯ ВАШЕГО УДОБСТВА, ЧТОБЫ МОГЛИ ОТКРЫТЬ, ТАК КАК ПРОГАММЫ ОТКРЫВАЮЩЕЙ *.PD4 ВРЯД ЛИ У КОГО БУДЕТ.

О-па! 0_o

Сообщение отредактировал televnoy - Среда, 10.09.2014, 17:16

Ответить

televnoy

Дата: Среда, 10.09.2014, 17:30 | Сообщение № 23

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

AndreTM, ВАШЕ ПРАВО УВАЖАЕМЫЙ, ВСЕ МЫ НАВЕРНО НАЧИНАЛИ СО СЛОВ МАКРОС, КОНЕЧНО КТО ТО ИЗ С ТОМОВ ПО ВБА. ExportSheetTXT ОБОЗВАЛ ЧТОБ НЕ ПУТАТЬСЯ, ИМЕННО В ПРИМЕРЕ ОН ТАК И ОБОЗВАН. НО ОБРАТИТЕ ВНИМАНИЕ НА САЙТЕ ОН ВЫЛОЖЕН В ИЗНАЧАЛЬНОМ ВАРИАНТЕ. И ИЗ УВАЖЕНИЯ К ВАМ СДЕЛАНА ССЫЛКА НА ТЕМУ ИЗ КОТОРОЙ ОН ВЗЯТ.

О-па! 0_o

Ответить

AndreTM

Дата: Среда, 10.09.2014, 17:52 | Сообщение № 24

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Не, ну ладно, отвечу всё же

(модераторы, прошу, удалите предыдущие три поста, а то ведь обидно становится)...

televnoy, суть была в том, что исходный макрос и сам по себе способен сохранять данные под нужным _вам_ именем. Конечного файла.
И весь вопрос упёрся в то, что _вы_ зачем-то начали придумывать проблему, которой нет. Поскольку просто не смогли правильно сформировать одну-енинственную строчку - имя выходного файла... Вам привели примеры. Вы же решили, что проблема у нас

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

televnoy

Дата: Четверг, 11.09.2014, 09:30 | Сообщение № 25

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Уважаемые The_Prist и RAN благодаря вашей помощи добился желаемого результата. Я совместил ваши кода и получил
[vba]

Код

' Сохранение файла
      Dim vFilename
      If Len(cFileName) = 0 Then cFileName = sh.Name & ".txt"
      vFilename = Application.GetSaveAsFilename("пример.txt", "ФОРМАТ ПРОБЫ (*.txt),", , _
                      "Введите имя файла для сохраняемого отчёта", "Сохранить")
      ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
      If VarType(Filename) = vbBoolean Then Exit Sub
         cFileName = vFilename
         arr = ActiveSheet.Range("A1").CurrentRegion.Value
         strc = Join(Application.Transpose(arr), vbNewLine)

[/vba]

Теперь сохраняет как положено, а при отказе от сохранения не выдает ошибку, не сохраняет лишнее, а так же закрывает ту книгу от сохранения которой отказались.

Особую благодарность вредному (в хорошем смысле) AndreTM, за его замечательный макрос.

Можно считать тему закрытой. И если AndreTM позволит я выложу в конце темы итоговый результат. Работы макроса AndreTM, с моимим изменениями под себя с помощью The_Prist, и RAN, чтобы не пришлось

Цитата

разговаривать с человеком, обратившимся в в "Вопросы по VBA", но о VBA знающем только слово "макрос"..

Спасибо вам всем благодаря вам я чуть чуть продвинулся от

Цитата

знающем только слово "макрос"..

, теперь я знаю где есть кнопка Visual Вasic first

Код

Цитата

разговаривать с человеком, обратившимся в в "Вопросы по VBA", но о VBA знающем только слово "макрос"..

Спасибо вам всем благодаря вам я чуть чуть продвинулся от

Цитата

знающем только слово "макрос"..

, теперь я знаю где есть кнопка Visual Вasic first

televnoy

О-па! 0_o

Сообщение отредактировал televnoy - Четверг, 11.09.2014, 09:45

Ответить

СообщениеУважаемые The_Prist и RAN благодаря вашей помощи добился желаемого результата. Я совместил ваши кода и получил
[vba]

Код

Цитата

разговаривать с человеком, обратившимся в в "Вопросы по VBA", но о VBA знающем только слово "макрос"..

Спасибо вам всем благодаря вам я чуть чуть продвинулся от

Цитата

знающем только слово "макрос"..

, теперь я знаю где есть кнопка Visual Вasic first

Автор - televnoy
Дата добавления - 11.09.2014 в 09:30

Мир MS Excel » Вопросы и решения » Вопросы по VBA » ОБЪЕДИНЕНИЕ МАКРОСОВ (ДИАЛОГОВОЕ ОКНО+ФОРМАТ) (Макросы/Sub)

Страница 2 из 2
«
1
2