Kenz

Танзания это

Weber
Сертификатик бы глянуть.

nip
Тверской вагоностроительный завод, скоро отправят заказчику

чет уже вроде знакомые лица

Олегин
а планшеты у тебя есть?

soho

Серега177
а заднюю дверь как открыть?

Kpok
Лучше не надо.
К сожалению не знаю как и в каких МРЭО это организовано. Там где я был, при выдаче талончика на терминале надо было забить номер VIN, по талончику попадаешь в очередь, сотрудник гаи забил этот номер VIN с ошибкой в одном символе, я потом ходил по кабинетам чтобы они это исправили у себя свою же ошибку!! Выснилось это на этапе выдаче СТС, сотрудник позвал к окошку и сказал документы выдать не могу, идите к начальнику в кабинет № такой то, я в недоумении зачем и почему, а оказалось их косяк и я там доказывал какой VIN правильный и что в талончик его вбивал сам сотрудник ГАИ а не я!

Kpok
попробуй записаться, если прокатит, этот гемор отвалится! две недели назад свободных дат по всей Москве не было и записи ни в одно МРЭО не было.

Kpok
г. Москва? если да, можешь оставить затею с госуслугами и сразу ехать занимать живую очередь, чем раньше тем лучше и быть готовым приехать в 4 утра на перекличку, потом придти к открытию к 8 утра и обнаружить что вчера перед тобой было 20 человек, а теперь 60 (их привели дармоеды из контор по оказанию платных услуг помощи в регистрации авто и расположены они рядом с МРЭО), поэтому быть готовым что, даже если занял очередь, всёравно с первого раза талончика не достанется и придется занимать очередь и второй и третий раз. Есть вариант заплатить 6-10 тыс дармоедам. Есть шансы в 10 дневный срок не успеть, поэтому повторюсь чем раньше пойдёшь занимать очередь, тем лучше. можно даже щас, к тому времени машину из салона заберешь.

Брал быстрый кварц от Shine Systems и квик детейлер от них же. Очень хороший результат, по цене дешевле коха.

XXmaxx:

-SSID- 7 стояла, отвалился интернет, обновления длям7 теперь же нет. Связываю с этим.

на ноуте вылазили предупреждения что прекращается поддержка и Вин7 больше работать не будет. В настройках отключил обновление и еще какие-то службы выключил в реестре. Пока продолжает работать.

andel:

а что у тебя есть: wb.Path и s.Name?

я к сожалению не профи в этом s.name это SaveName
wb WorkBook

Но я нашел уже другой код, который работает как надо, чуть чуть подредактировал его. Убрал в конце команду закрывать файл после сохранения.
Опять же в коде не профи, поэтому некоторые обозначения или команды не могу объяснить зачем нужны. Опять же здесь к примеру первым делом идут команды диалога Сохранить как, и присвоить имя файлу, а уже потом команды Скопировать активный лист, для меня это пока не ясно. Но код работат как и хотел. Единственное, вместо "\" пытался прописать путь куда сохранять, но тогда ошибка.

цитата:

Sub Save_as() With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ThisWorkbook.Path & "\" & ThisWorkbook.ActiveSheet.Name If .Show = 0 Then Exit Sub ThisWorkbook.ActiveSheet.Copy Application.DisplayAlerts = False .Execute Application.DisplayAlerts = True End With здесь было закрытие книги после сохранения. End Sub

Antonov_YS
Возможно и так, тогда перед сохранением не хватает команды ActiveBook или ThisWorkBook, надо попробовать прописать

aludov
Попробую у себя на домашнем компе сделать, может на самом деле политика безопасности не позволяет, но это уже никак не исправлю, и антивирус отключить не смогу, доступ закрыт айтишниками.

Ну вобщем вот так это происходит. (Макрос назначил на кнопку и добавил на панель быстрого доступа) Макрос сохранён и в этой книге и в книге макросов тоже.
http://www.youtube.com/watch?v=QF-zHIAgWP4

Лист копируется в новый файл а дальше при сохранении ошибка, причем если самому выбрать "Сохранить как", то всё нормально.

Anikiy:

На работе хранишь? Это ты ловко придумал.

aludov
поковыряюсь, может найду в чем дело. вобщем может быть что угодно, может тупо на сетевой диск не хочет сохранять поэтому пишет объект не найдет. ща попробую если прямо на компе сохранит или нет.

upd
не сработало. ковыряюсь дальше.

aludov:

Ей нужен пустой файл с нужным именем чтобы него писать? вот у тебя файл основной к примеру "Анализ.xls", а писать ты хочешь в "Анализ123.xls". Создай его предварительно в скрипте или руками, права на запись-редактирование, видимость и все такое. Но это так, из опыта написания батников в лохматых годах, может тут так же работает...

Не, когда сохраняю файл причем уже создан и имеет имя с которым и пытаюсь сохранить.
Но пробовал и как новый сохранить всеравно ошибка.
Может быть он хочет сохранить только с автоматически присвоенным именем? Анализ123.
Ща приеду на работу, попробую.

Вся суть в том что у меня книга эксель, в ней листов 50, по итогам работы надо каждый лист сохранить в отдельный файл. В ручную щелкать надоело и много времени уходит на одинаковые операции.
Макрос прописал чтобы активный лист копируется в новую книгу, дальше выходит стандартный запрос «Сохранить как» и вот на этапе выбрал путь и имя, нажимаю сохранить и облом.

aludov:

папка не создана?

Папка создана и путь выбираю туда где находится исходный файл

ДОбрый день!
Подскажите по Экселю, код в конце выдает ошибку, На этапе выбираю имя файла и нажимаю сохранить вылазит Object required

Сам код:
Sub Macros01()
'1 Сохраняем лист и отправляем в новую книгу
ThisWorkbook.ActiveSheet.Copy Before:=Workbooks.Add.Worksheets(1)
Dim fName As Variant

'~~> Offer user to Save the file at a particular location
fName = Application.GetSaveAsFilename & wb.Path & "\" & s.Name & ".xlsb"

End Sub