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

Вход

Регистрация

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

 

= Мир MS Excel/После Save As в файле с новым именем работают кнопки - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » После Save As в файле с новым именем работают кнопки (Макросы Sub)
После Save As в файле с новым именем работают кнопки
DAKRAY Дата: Суббота, 14.12.2013, 21:54 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Доброго времени суток, уважаемые форумчане!

Есть два файла:
-Book1(допустим это бланк заказа);
-Book2(это бланк счета, в который мы копируем инфо из Book1).

Проблема: хочу сохранить файл, но после Save As не срабатывает макрос, ибо имя файла, не соответсвует прописанному в коде.
Вопрос: можно ли сделать что-то наподобии Workbooks("***k1.xls"), где к1 будет константой в названиях всех новых файлов, а вместо "***" будет новое имя?

Файлы-примеры в приложении (Нужно указать путь к Book2.xls).

Зарание, спасибо огромное!
К сообщению приложен файл: Book2.xls (13.5 Kb) · 8895743.xls (36.0 Kb)


Сообщение отредактировал DAKRAY - Суббота, 14.12.2013, 23:05
 
Ответить
СообщениеДоброго времени суток, уважаемые форумчане!

Есть два файла:
-Book1(допустим это бланк заказа);
-Book2(это бланк счета, в который мы копируем инфо из Book1).

Проблема: хочу сохранить файл, но после Save As не срабатывает макрос, ибо имя файла, не соответсвует прописанному в коде.
Вопрос: можно ли сделать что-то наподобии Workbooks("***k1.xls"), где к1 будет константой в названиях всех новых файлов, а вместо "***" будет новое имя?

Файлы-примеры в приложении (Нужно указать путь к Book2.xls).

Зарание, спасибо огромное!
Автор - DAKRAY
Дата добавления - 14.12.2013 в 21:54
RAN Дата: Суббота, 14.12.2013, 22:05 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата DAKRAY, 14.12.2013 в 21:54, в сообщении № 1
когда я перенесу эту папочку в другое место, мне не пришлось бы снова открывать и переписывать код?


как вариант.
[vba]
Код
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите файл"
.Filters.Clear
.Filters.Add "Excel", "*.xls*"
.InitialFileName = ThisWorkbook.Path
If .Show = 0 Then Exit Sub
Filename = .SelectedItems(1)
End With
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 14.12.2013, 22:06
 
Ответить
Сообщение
Цитата DAKRAY, 14.12.2013 в 21:54, в сообщении № 1
когда я перенесу эту папочку в другое место, мне не пришлось бы снова открывать и переписывать код?


как вариант.
[vba]
Код
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите файл"
.Filters.Clear
.Filters.Add "Excel", "*.xls*"
.InitialFileName = ThisWorkbook.Path
If .Show = 0 Then Exit Sub
Filename = .SelectedItems(1)
End With
[/vba]
Автор - RAN
Дата добавления - 14.12.2013 в 22:05
KuklP Дата: Суббота, 14.12.2013, 22:06 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Я же Вам показывал, как делать путь относительным:
sh.SaveAs ThisWorkbook.Path & "\" & sh.[d7]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 14.12.2013, 22:06
 
Ответить
СообщениеЯ же Вам показывал, как делать путь относительным:
sh.SaveAs ThisWorkbook.Path & "\" & sh.[d7]
Автор - KuklP
Дата добавления - 14.12.2013 в 22:06
DAKRAY Дата: Суббота, 14.12.2013, 23:02 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
KuklP, я обратил внимание тогда на слэш, но не до конца понял его суть. Спасибо! Попробую.
Serge_007, злой Вы какой(. Перечитал еще раз (внимательно!) правила - поправил. В предь буду внимательней, бан не хочу!

З.Ы. Это я так строчки кода выделил, чтобы они не терялись в тексте.)


Сообщение отредактировал DAKRAY - Суббота, 14.12.2013, 23:04
 
Ответить
СообщениеKuklP, я обратил внимание тогда на слэш, но не до конца понял его суть. Спасибо! Попробую.
Serge_007, злой Вы какой(. Перечитал еще раз (внимательно!) правила - поправил. В предь буду внимательней, бан не хочу!

З.Ы. Это я так строчки кода выделил, чтобы они не терялись в тексте.)
Автор - DAKRAY
Дата добавления - 14.12.2013 в 23:02
DAKRAY Дата: Суббота, 14.12.2013, 23:45 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Я их удалил, потому что подумал - у меня слишком много информации в оформлении темы, а в правилах написано описать кратко и по теме. Простите, что не теми тэгами оформил. Теперь это навсегда запомню.

Цитата KuklP, 14.12.2013 в 22:06, в сообщении № 3
sh.SaveAs ThisWorkbook.Path & "\" & sh.[d7]


Что-то не получается. По разному пробовал поставить эту строчку(ThisWorkbook.Path & "\" ), но что-то она нигде ставится не хочет.( Или ее нужно прописать в модуль книги (ThisWorkbook)? Объясните ослу!?

[vba]
Код
Private Sub CommandButton1_Click()

Workbooks.Open ("G:\Data\test\Book2.xls")
Dim sourcerange As Range
Dim destrange As Range
Dim wkbWorkbook1 As Workbook
Dim wksWorkbook1 As Worksheet
Dim wkbWorkbook2 As Workbook
Dim wksWorkbook2 As Worksheet
Set wkbWorkbook1 = Workbooks("Book1.xls")
Set wksWorkbook1 = wkbWorkbook1.ActiveSheet
Set wkbWorkbook2 = Workbooks("Book2.xls")
Set wksWorkbook2 = wkbWorkbook2.ActiveSheet

Set sourcerange = wksWorkbook1.Range("A1:C5")
Set destrange = wksWorkbook2.Range("A6:C10")

sourcerange.Copy
wksWorkbook2.Cells(6, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
wksWorkbook1.Activate
Range("A1").Select
Application.CutCopyMode = False
wksWorkbook2.Activate
      
     

End Sub
[/vba]


Сообщение отредактировал DAKRAY - Суббота, 14.12.2013, 23:46
 
Ответить
СообщениеЯ их удалил, потому что подумал - у меня слишком много информации в оформлении темы, а в правилах написано описать кратко и по теме. Простите, что не теми тэгами оформил. Теперь это навсегда запомню.

Цитата KuklP, 14.12.2013 в 22:06, в сообщении № 3
sh.SaveAs ThisWorkbook.Path & "\" & sh.[d7]


Что-то не получается. По разному пробовал поставить эту строчку(ThisWorkbook.Path & "\" ), но что-то она нигде ставится не хочет.( Или ее нужно прописать в модуль книги (ThisWorkbook)? Объясните ослу!?

[vba]
Код
Private Sub CommandButton1_Click()

Workbooks.Open ("G:\Data\test\Book2.xls")
Dim sourcerange As Range
Dim destrange As Range
Dim wkbWorkbook1 As Workbook
Dim wksWorkbook1 As Worksheet
Dim wkbWorkbook2 As Workbook
Dim wksWorkbook2 As Worksheet
Set wkbWorkbook1 = Workbooks("Book1.xls")
Set wksWorkbook1 = wkbWorkbook1.ActiveSheet
Set wkbWorkbook2 = Workbooks("Book2.xls")
Set wksWorkbook2 = wkbWorkbook2.ActiveSheet

Set sourcerange = wksWorkbook1.Range("A1:C5")
Set destrange = wksWorkbook2.Range("A6:C10")

sourcerange.Copy
wksWorkbook2.Cells(6, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
wksWorkbook1.Activate
Range("A1").Select
Application.CutCopyMode = False
wksWorkbook2.Activate
      
     

End Sub
[/vba]
Автор - DAKRAY
Дата добавления - 14.12.2013 в 23:45
Wasilich Дата: Воскресенье, 15.12.2013, 00:08 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата DAKRAY, 14.12.2013 в 21:54, в сообщении № 1
Есть два файла:
-Book1(допустим это бланк заказа);
-Book2(это бланк счета, в который мы копируем инфо из Book1).

Чем дальше в лес - тем больше дров. И тяжелее их тащить.
DAKRAY, с макросами у Вас и так сложности, а Вы еще больше усложняете.
Мой совет, сделайте все в одной книге. Материалы, бланк заказа, счета и накладные.
Так, Вам, задачу решить будет проще. А, как сохранять каждый документ по отдельности, я выложил в примере предыдущей темы. И все там делается как надо, и кнопки удаляются и формулы переводятся в значения.
 
Ответить
Сообщение
Цитата DAKRAY, 14.12.2013 в 21:54, в сообщении № 1
Есть два файла:
-Book1(допустим это бланк заказа);
-Book2(это бланк счета, в который мы копируем инфо из Book1).

Чем дальше в лес - тем больше дров. И тяжелее их тащить.
DAKRAY, с макросами у Вас и так сложности, а Вы еще больше усложняете.
Мой совет, сделайте все в одной книге. Материалы, бланк заказа, счета и накладные.
Так, Вам, задачу решить будет проще. А, как сохранять каждый документ по отдельности, я выложил в примере предыдущей темы. И все там делается как надо, и кнопки удаляются и формулы переводятся в значения.
Автор - Wasilich
Дата добавления - 15.12.2013 в 00:08
AndreTM Дата: Воскресенье, 15.12.2013, 00:20 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Я, кажется, уже где-то говорил, что ещё лет десять назад для юзеров, которым ни жить, ни быть без кнопочек на каждом листе (включая выходные формы) - додумался до размещения интерфейса на "плавающих" юзерформах-менюшках (дабы "не портить" основные меню и ПКМ, ведь риббона ещё не было :) ). Зато никаких проблем с печатью или экпортом...

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеЯ, кажется, уже где-то говорил, что ещё лет десять назад для юзеров, которым ни жить, ни быть без кнопочек на каждом листе (включая выходные формы) - додумался до размещения интерфейса на "плавающих" юзерформах-менюшках (дабы "не портить" основные меню и ПКМ, ведь риббона ещё не было :) ). Зато никаких проблем с печатью или экпортом...
Автор - AndreTM
Дата добавления - 15.12.2013 в 00:20
KuklP Дата: Воскресенье, 15.12.2013, 00:40 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата DAKRAY, 14.12.2013 в 23:45, в сообщении № 5
Объясните ослу!?
Это не я сказал, заметьте! :D Объясняю:
[vba]
Код
Private Sub CommandButton1_Click()
Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
[/vba]
[p.s.] Мож Вам и правда прислушаться к совету Васильича(№6)? Ну, Вам видней...

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Воскресенье, 15.12.2013, 00:47
 
Ответить
Сообщение
Цитата DAKRAY, 14.12.2013 в 23:45, в сообщении № 5
Объясните ослу!?
Это не я сказал, заметьте! :D Объясняю:
[vba]
Код
Private Sub CommandButton1_Click()
Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
[/vba]
[p.s.] Мож Вам и правда прислушаться к совету Васильича(№6)? Ну, Вам видней...
Автор - KuklP
Дата добавления - 15.12.2013 в 00:40
DAKRAY Дата: Воскресенье, 15.12.2013, 01:03 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Wasilic, дело в том что у меня изначально это и было все в одной тарелке. Но дело в том, что такой файл весит больше 4-5 раз чем лист с бланком заказа. В день мы обрабатываем достаточно много заказов, а большая часть не нуждается в счетах и накладных, они просто для частников. А когда нужно будет сделать счет или накладную, тогда уже по кнопке перехожу в файл, где все остальное. Эх. Ругаете меня все.(

Та у меня почти все готово, осталась совсем малость)) И я перестану вас забавлять своей тупостью)
Повторю вопрос: можно ли прописать название книги тип Workbooks("***k1.xls"), где часть названия(например "к1.xls") будет константой в названиях всех новых файлов, а вместо "***" будет какое-то новое название? Естестенно звездочки я поставил потому, что не знаю что туда поставить и можно ли это вообще осуществить.

[vba]
Код
Private Sub CommandButton1_Click()

    Workbooks.Open ("G:\Data\test\Book2.xls")
Dim sourcerange As Range
Dim destrange As Range
Dim wkbWorkbook1 As Workbook
Dim wksWorkbook1 As Worksheet
Dim wkbWorkbook2 As Workbook
Dim wksWorkbook2 As Worksheet
Set wkbWorkbook1 = Workbooks("Book1.xls")
...
[/vba]

П.С. KuklP, отлично! Получилось! Именно то что нужно!!! Спасибо! Еще бы с этими новыми именами разобратся и я супердоволен!


Сообщение отредактировал DAKRAY - Воскресенье, 15.12.2013, 01:15
 
Ответить
СообщениеWasilic, дело в том что у меня изначально это и было все в одной тарелке. Но дело в том, что такой файл весит больше 4-5 раз чем лист с бланком заказа. В день мы обрабатываем достаточно много заказов, а большая часть не нуждается в счетах и накладных, они просто для частников. А когда нужно будет сделать счет или накладную, тогда уже по кнопке перехожу в файл, где все остальное. Эх. Ругаете меня все.(

Та у меня почти все готово, осталась совсем малость)) И я перестану вас забавлять своей тупостью)
Повторю вопрос: можно ли прописать название книги тип Workbooks("***k1.xls"), где часть названия(например "к1.xls") будет константой в названиях всех новых файлов, а вместо "***" будет какое-то новое название? Естестенно звездочки я поставил потому, что не знаю что туда поставить и можно ли это вообще осуществить.

[vba]
Код
Private Sub CommandButton1_Click()

    Workbooks.Open ("G:\Data\test\Book2.xls")
Dim sourcerange As Range
Dim destrange As Range
Dim wkbWorkbook1 As Workbook
Dim wksWorkbook1 As Worksheet
Dim wkbWorkbook2 As Workbook
Dim wksWorkbook2 As Worksheet
Set wkbWorkbook1 = Workbooks("Book1.xls")
...
[/vba]

П.С. KuklP, отлично! Получилось! Именно то что нужно!!! Спасибо! Еще бы с этими новыми именами разобратся и я супердоволен!
Автор - DAKRAY
Дата добавления - 15.12.2013 в 01:03
KuklP Дата: Воскресенье, 15.12.2013, 01:07 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Такой файл будет только один по ссылочному пути? А если не один, то как определять, какой из них открывать? Вот пример:
[vba]
Код
Public Sub asd()
       Dim p$
       p = Dir(ThisWorkbook.Path & "\*k1.xls")
       If p <> "" Then _
          Workbooks.Open ThisWorkbook.Path & "\" & p
End Sub
[/vba]
[p.s.]При чем тут тупость? Мы все не родились с сегодняшними знаниями. А то, что Вы пытаетесь делать самостоятельно, достойно уважения. Грех не помочь.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Воскресенье, 15.12.2013, 01:18
 
Ответить
СообщениеТакой файл будет только один по ссылочному пути? А если не один, то как определять, какой из них открывать? Вот пример:
[vba]
Код
Public Sub asd()
       Dim p$
       p = Dir(ThisWorkbook.Path & "\*k1.xls")
       If p <> "" Then _
          Workbooks.Open ThisWorkbook.Path & "\" & p
End Sub
[/vba]
[p.s.]При чем тут тупость? Мы все не родились с сегодняшними знаниями. А то, что Вы пытаетесь делать самостоятельно, достойно уважения. Грех не помочь.
Автор - KuklP
Дата добавления - 15.12.2013 в 01:07
DAKRAY Дата: Воскресенье, 15.12.2013, 01:24 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Получается так:
-Book1.xls (бланк заказа)
-Book2.xls (бланк счета)

Я открываю заказ, вбиваю все что мне нужно и сохраняю его например Cook1.xls, приходит следующий клиент, записываю заказ, сохраняю Pook1.xls - и этому заказу мне понадобилось выписать счет.
В бланке заказа Book1.xls у меня есть кнопка, которая копирует данные в Book2.xls (бланк счета). Если я его сохраню как Pook1.xls соответсвенно кнопка уже не выполнит свою функцию, ибо в коде у меня прописано как

[vba]
Код
...
Set wkbWorkbook1 = Workbooks("Book1.xls")
...
[/vba]
 
Ответить
СообщениеПолучается так:
-Book1.xls (бланк заказа)
-Book2.xls (бланк счета)

Я открываю заказ, вбиваю все что мне нужно и сохраняю его например Cook1.xls, приходит следующий клиент, записываю заказ, сохраняю Pook1.xls - и этому заказу мне понадобилось выписать счет.
В бланке заказа Book1.xls у меня есть кнопка, которая копирует данные в Book2.xls (бланк счета). Если я его сохраню как Pook1.xls соответсвенно кнопка уже не выполнит свою функцию, ибо в коде у меня прописано как

[vba]
Код
...
Set wkbWorkbook1 = Workbooks("Book1.xls")
...
[/vba]
Автор - DAKRAY
Дата добавления - 15.12.2013 в 01:24
KuklP Дата: Воскресенье, 15.12.2013, 01:31 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Это не ответ на мой вопрос.
Цитата KuklP, 15.12.2013 в 01:07, в сообщении № 10
А если не один, то как определять, какой из них открывать?
Ну или если они открыты, то какой из них присваивать переменной? Впрочем, если надо открывать файл, то можно через диалог. Андрей в №2 показал, как.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЭто не ответ на мой вопрос.
Цитата KuklP, 15.12.2013 в 01:07, в сообщении № 10
А если не один, то как определять, какой из них открывать?
Ну или если они открыты, то какой из них присваивать переменной? Впрочем, если надо открывать файл, то можно через диалог. Андрей в №2 показал, как.
Автор - KuklP
Дата добавления - 15.12.2013 в 01:31
Wasilich Дата: Воскресенье, 15.12.2013, 02:07 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата DAKRAY, 15.12.2013 в 01:24, в сообщении № 11
В бланке заказа Book1.xls у меня есть кнопка, которая копирует данные в Book2.xls (бланк счета).
Ну и сколько же этот бланк весит, что его необходимо держать в отдельной книге? deal А также другие бланки? Не понимаю.
У меня есть книги по 5-7 мегабайт, и работают безукоризненно.
На счет сохранения. Что мешает сохранять доки в виде Pook1заказ.xls, Pook1счет.xls Pook1ТТН.xls и т.д.
 
Ответить
Сообщение
Цитата DAKRAY, 15.12.2013 в 01:24, в сообщении № 11
В бланке заказа Book1.xls у меня есть кнопка, которая копирует данные в Book2.xls (бланк счета).
Ну и сколько же этот бланк весит, что его необходимо держать в отдельной книге? deal А также другие бланки? Не понимаю.
У меня есть книги по 5-7 мегабайт, и работают безукоризненно.
На счет сохранения. Что мешает сохранять доки в виде Pook1заказ.xls, Pook1счет.xls Pook1ТТН.xls и т.д.
Автор - Wasilich
Дата добавления - 15.12.2013 в 02:07
DAKRAY Дата: Воскресенье, 15.12.2013, 02:57 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Цитата KuklP, 15.12.2013 в 01:31, в сообщении № 12
Это не ответ на мой вопрос.


Кажется я перегрелся и ничерта не понимаю, либо не понятно изъясняюсь. Открывать кнопка будет все время один и тот же файл, т.е.
Book2.xls - это бланк счета. В нем не будет никакой кнопки. В него только вставляем диапазон ячеек из Book1.xls, печатаем, сохраняем с каким-нибудь там именем и забываем.

Book1.xls это пустой бланк заказа, в котором я по своим причинам не хочу держать другие листы. Как я заполнил заказ, и сохраню с другим именем (Bazook1.xls например) кнопка больше не будет копировать данные в Book2.xls потому, что теперь вместо Book1, что прописан в коде, есть Bazook1, который нигде в коде не появляется. Ну вот откройте приложеные файлы. Нажав кнопку, все работает. Закройте оба файла. Открываем еще раз Book1. Допустим тот диапазон (уже заполненный) я только что заполнил. Кнопку не нажимаем, сохраняем файл с другим именем, и пробуем нажать кнопку - она уже не работает, потому что имя файла изменилось. Вот как сделать, чтобы она всегда работала? я просто думал, что для того чтобы это сделать нужно хоть какую-то часть в названии файла оставить неизменной(которую можно как-то описать, чтобы макрос мог опираться хоть на часть имени). Может можно заставить кнопку работать и при совсем другом имени, я не знаю. Ну если и сейчас я непонятен, то можете убить мою репутацию. :D

З.Ы.
Book1.xls сохранился как 8016802.xls(36Kb)
Book2.xls как 8992098.xls(14Kb) нужно ренэйм сделать.
К сообщению приложен файл: 8016802.xls (36.0 Kb) · 8992098.xls (13.5 Kb)


Сообщение отредактировал DAKRAY - Воскресенье, 15.12.2013, 03:03
 
Ответить
Сообщение
Цитата KuklP, 15.12.2013 в 01:31, в сообщении № 12
Это не ответ на мой вопрос.


Кажется я перегрелся и ничерта не понимаю, либо не понятно изъясняюсь. Открывать кнопка будет все время один и тот же файл, т.е.
Book2.xls - это бланк счета. В нем не будет никакой кнопки. В него только вставляем диапазон ячеек из Book1.xls, печатаем, сохраняем с каким-нибудь там именем и забываем.

Book1.xls это пустой бланк заказа, в котором я по своим причинам не хочу держать другие листы. Как я заполнил заказ, и сохраню с другим именем (Bazook1.xls например) кнопка больше не будет копировать данные в Book2.xls потому, что теперь вместо Book1, что прописан в коде, есть Bazook1, который нигде в коде не появляется. Ну вот откройте приложеные файлы. Нажав кнопку, все работает. Закройте оба файла. Открываем еще раз Book1. Допустим тот диапазон (уже заполненный) я только что заполнил. Кнопку не нажимаем, сохраняем файл с другим именем, и пробуем нажать кнопку - она уже не работает, потому что имя файла изменилось. Вот как сделать, чтобы она всегда работала? я просто думал, что для того чтобы это сделать нужно хоть какую-то часть в названии файла оставить неизменной(которую можно как-то описать, чтобы макрос мог опираться хоть на часть имени). Может можно заставить кнопку работать и при совсем другом имени, я не знаю. Ну если и сейчас я непонятен, то можете убить мою репутацию. :D

З.Ы.
Book1.xls сохранился как 8016802.xls(36Kb)
Book2.xls как 8992098.xls(14Kb) нужно ренэйм сделать.
Автор - DAKRAY
Дата добавления - 15.12.2013 в 02:57
Wasilich Дата: Воскресенье, 15.12.2013, 03:15 | Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата DAKRAY, 15.12.2013 в 02:57, в сообщении № 14
это бланк счета. В нем не будет никакой кнопки. В него только вставляем диапазон ячеек из Book1.xls, печатаем, сохраняем с каким-нибудь там именем и забываем.

Вот и не правильно! Кнопка нужна для сохранения этого заполненного счета.
Сохранили и остались в этом бланке и файл новый есть и бланк остался со своим именем.
Последний раз пытаюсь убедить!!!
К сообщению приложен файл: __2.xls (43.5 Kb)
 
Ответить
Сообщение
Цитата DAKRAY, 15.12.2013 в 02:57, в сообщении № 14
это бланк счета. В нем не будет никакой кнопки. В него только вставляем диапазон ячеек из Book1.xls, печатаем, сохраняем с каким-нибудь там именем и забываем.

Вот и не правильно! Кнопка нужна для сохранения этого заполненного счета.
Сохранили и остались в этом бланке и файл новый есть и бланк остался со своим именем.
Последний раз пытаюсь убедить!!!
Автор - Wasilich
Дата добавления - 15.12.2013 в 03:15
DAKRAY Дата: Воскресенье, 15.12.2013, 03:31 | Сообщение № 16
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Уже второй файл от Вас, Wasilic, из которого меня выкидывает, даже кнопку не успеваю нажать.( Почему так?

Сохраню я заказ как отдельный лист, а потом позже мне придется из него сделать счет. Я уже ничего не смогу сделать, ибо он ведь будет сохранен без макросов, верно? Вот по этому отделил заказ от накладных и счетов. Вообще мы на разных языках говорим. Пойду треснусь головой о стену.

Простите, если утомил уже.
 
Ответить
СообщениеУже второй файл от Вас, Wasilic, из которого меня выкидывает, даже кнопку не успеваю нажать.( Почему так?

Сохраню я заказ как отдельный лист, а потом позже мне придется из него сделать счет. Я уже ничего не смогу сделать, ибо он ведь будет сохранен без макросов, верно? Вот по этому отделил заказ от накладных и счетов. Вообще мы на разных языках говорим. Пойду треснусь головой о стену.

Простите, если утомил уже.
Автор - DAKRAY
Дата добавления - 15.12.2013 в 03:31
alex77755 Дата: Воскресенье, 15.12.2013, 05:54 | Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

если я правильно понял вопрос
[vba]
Код
Set wkbWorkbook1 = ActiveWorkbook ' Workbooks("Book1.xls")
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
Сообщениеесли я правильно понял вопрос
[vba]
Код
Set wkbWorkbook1 = ActiveWorkbook ' Workbooks("Book1.xls")
[/vba]
Автор - alex77755
Дата добавления - 15.12.2013 в 05:54
Wasilich Дата: Воскресенье, 15.12.2013, 11:02 | Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата DAKRAY, 15.12.2013 в 03:31, в сообщении № 16
Уже второй файл от Вас, Wasilic, из которого меня выкидывает, даже кнопку не успеваю нажать.( Почему так?
Вот этого я не знаю. Придется просить других участников форума проверить файл, так ли у всех.
Цитата DAKRAY, 15.12.2013 в 02:57, в сообщении № 14
сохраняем файл с другим именем, и пробуем нажать кнопку - она уже не работает, потому что имя файла изменилось.
Если сначала "Сохранить" с текущим именем а потом "Сохранить как" с другим, закрыть и открыть тот, с текущим, все будет работать.
Цитата DAKRAY, 15.12.2013 в 03:31, в сообщении № 16
Сохраню я заказ как отдельный лист, а потом позже мне придется из него сделать счет.
В этом случае макрос надо сделать в счете, который будет брать данные из заказа.
Цитата DAKRAY, 15.12.2013 в 03:31, в сообщении № 16
Вообще мы на разных языках говорим.
Это я уже понял. Успехов.


Сообщение отредактировал Wasilic - Воскресенье, 15.12.2013, 11:34
 
Ответить
Сообщение
Цитата DAKRAY, 15.12.2013 в 03:31, в сообщении № 16
Уже второй файл от Вас, Wasilic, из которого меня выкидывает, даже кнопку не успеваю нажать.( Почему так?
Вот этого я не знаю. Придется просить других участников форума проверить файл, так ли у всех.
Цитата DAKRAY, 15.12.2013 в 02:57, в сообщении № 14
сохраняем файл с другим именем, и пробуем нажать кнопку - она уже не работает, потому что имя файла изменилось.
Если сначала "Сохранить" с текущим именем а потом "Сохранить как" с другим, закрыть и открыть тот, с текущим, все будет работать.
Цитата DAKRAY, 15.12.2013 в 03:31, в сообщении № 16
Сохраню я заказ как отдельный лист, а потом позже мне придется из него сделать счет.
В этом случае макрос надо сделать в счете, который будет брать данные из заказа.
Цитата DAKRAY, 15.12.2013 в 03:31, в сообщении № 16
Вообще мы на разных языках говорим.
Это я уже понял. Успехов.
Автор - Wasilich
Дата добавления - 15.12.2013 в 11:02
KuklP Дата: Воскресенье, 15.12.2013, 11:11 | Сообщение № 19
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
У меня файл Wasilic открылся и работает без проблем. DAKRAY, видимо придется Вам Офис переустанавливать. Мои файлы у Вас тоже вылетали. Хотя файлы и мои и Wasilic практически пустые. Нечему там глючить.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеУ меня файл Wasilic открылся и работает без проблем. DAKRAY, видимо придется Вам Офис переустанавливать. Мои файлы у Вас тоже вылетали. Хотя файлы и мои и Wasilic практически пустые. Нечему там глючить.
Автор - KuklP
Дата добавления - 15.12.2013 в 11:11
Hugo Дата: Воскресенье, 15.12.2013, 13:27 | Сообщение № 20
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
У меня файл Wasilic тоже открылся и работает.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеУ меня файл Wasilic тоже открылся и работает.
Автор - Hugo
Дата добавления - 15.12.2013 в 13:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » После Save As в файле с новым именем работают кнопки (Макросы Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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