RunTime Error '5' Invalid procedure call or argument

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

RunTime Error '5' Invalid procedure call or argument (Макросы/Sub)

gge29

Дата: Четверг, 18.08.2016, 19:30 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 303

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

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

Подскажите пожалуйста,что не так,при сохранении в PDF вылетает ошибка
RunTime Error '5' Invalid procedure call or argument и ругается на
[vba]

Код

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:" & _
        ActiveSheet.Range("F3").Value & ".pdf", _
        OpenAfterPublish:=True

[/vba]
windows 8.1 64 bit; Microsoft office 2007
на другом пк с windows 8.1 32 bit сохранил нормально

К сообщению приложен файл: 5811017.xlsm (52.8 Kb)

Ответить

doober

Дата: Четверг, 18.08.2016, 20:26 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 994

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

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

Excel 2010

Цитата gge29, 18.08.2016 в 19:30, в сообщении № 1

Microsoft office 2007

Возможно ошибаюсь, но 2007 не сохраняет в ПДФ

Ответить

krosav4ig

Дата: Четверг, 18.08.2016, 23:23 | Сообщение № 3

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Цитата doober, 18.08.2016 в 20:26, в сообщении № 2

2007 не сохраняет в ПДФ

сохраняет, если вот это установлено

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

sboy

Дата: Пятница, 19.08.2016, 10:45 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата gge29, 18.08.2016 в 19:30, в сообщении № 1

Filename:="C:" & _
ActiveSheet.Range("F3").Value & ".pdf",

Возможно тут ошибка, в файле примере F3 -пустая ячейка

Яндекс: 410016850021169

Ответить

Manyasha

Дата: Пятница, 19.08.2016, 11:28 | Сообщение № 5

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

gge29, а если так?
[vba]

Код

Sub saveAsPDF()
    Dim printPdf
    With CreateObject("Shell.Application").Namespace(4).Items
        For n = 1 To .Count - 1
            printPdf = .Item(n).Name
            If printPdf Like "*PDF*" Then Exit For
        Next
    End With
    ActiveSheet.PrintOut Copies:=1, ActivePrinter:=printPdf
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

gge29

Дата: Пятница, 19.08.2016, 20:07 | Сообщение № 6

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

Ранг: Обитатель

Сообщений: 303

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

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

Цитата krosav4ig, 18.08.2016 в 23:23, в сообщении № 3

сохраняет, если вот это установлено

Скачал,установил на всех компах и на всех стало всё прекрасно работать,проверял на:
8.1(64);8.1(32);7(64);7(32);XP

Ответить

RunTime Error '5' Invalid procedure call or argument (Макросы/Sub)

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