Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Treeview Добрый всем! Такой вопрос вот я получаю имя выбранного пункта в Treeview: MsgBox tvTasks.SelectedItem.Text Пытаюсь получить имя выделенного пунка "Родителя" не получается, постоянно показывает... https://www.cyberforum.ru/ visual-basic/ thread1537146.html Подключение "хитрой" DLL к проекту VB
Всем привет! Нашел тему в соседней ветке (https://www.cyberforum.ru/vb-net/thread1307732.html#post6890474) листинг правда для NET Function GetStreamReader(ByVal path) As StreamReader Dim...
VB Служба на Visual Basic Добрый! Можно ли разработать службу для программы на VB 6? https://www.cyberforum.ru/ visual-basic/ thread1536904.html VB Таймер, зависящий от системного времени Всем привет, помогите пожалуйста с заданием: создать объект-таймер на примере формы, в которой через заданный интервал времени на экран будет выводиться системное время компьютера. К сообщению... https://www.cyberforum.ru/ visual-basic/ thread1535570.html
VB Система бронирования мест/кабинетов
Доброго времени суток! Уважаемые форумчане, никто не писал(начинал писать) систему бронирования мест/кабинетов/аудиторий и т.д.? Решил на работе упростить жизнь народу, а то записываются в...
VB Из-за чего редактор желтым подсвечивает строку кода? во такой вопрос желтая строка что означает? Private Sub Кнопка10_Click() и все это окрашено в желтый цвет. https://www.cyberforum.ru/ visual-basic/ thread1534814.html
VB Как пользоваться отладчиком OllyDbg на файлах-ЕХЕ для Visual Basic 6.0? https://www.cyberforum.ru/ visual-basic/ thread1534667.html
Добрый вечер! Прошу научить пользоваться отладчиком OllyDbg. Имею: Windows 7, 32 Bit. Скачал почти все книги Касперски — жуть (!), без практики непонятно. Хочу освоить самые простые приёмы. ...
Тип данных single/double представление в памяти VB
Всем привет. Собственно стал вопрос о том, как выглядят типы данных single и double в памяти. Немного погуглив, нашел только стандартное описание данных типов из учебников для начинающих. Подумав,...
VB Как узнать исходный код файла-ЕХЕ для Visual Basic 6.0? Здравствуйте! Прошу помощи. Как узнать P-Code? Научите, пожалуйста, пользоваться компиляторами и декомпиляторами. У языка VB6.0 осталось богатое наследство, за 20 лет. Часто приходится... https://www.cyberforum.ru/ visual-basic/ thread1533698.html VB Создать блок-схему и программу Здравствуйте посмотрите пожалуйста правильно ли я сделала под цифрой 1 и объясните пожалуйста как сделать под цифрой 2. Заранее спасибо))) 1.Составить общую блок–схему алгоритма нахождения суммы k... https://www.cyberforum.ru/ visual-basic/ thread1533510.html
VB Работа с ActiveX семисегментнный индикатор. не правильная работа
Есть проект ActiveX семисегментнный индикатор. но сами семисегментники загораются не понятно по какому закону((( помогите пожалуйста
VB Вычисление объема параллелепипеда Создать проект для вычисления объема параллелепипеда. Разработать экранную форму, содержащую 7 объектов метка, 4 объекта окно редактирования и по 1 объекту картинка и кнопка. Рисунок связать с... https://www.cyberforum.ru/ visual-basic/ thread1533234.html
0 / 0 / 0
Регистрация: 24.09.2015
Сообщений: 3
0

Сохранение вэб страниц в PDF - VB - Ответ 8111921

25.09.2015, 10:25. Показов 522. Ответов 5
Метки (Все метки)

Приветствую комрады есть макрос, который сохранял вэб страницы в PDF файл. После апдейта IE и Excela перестал работать. Помогите пожалуйста разобраться в чем соль..

Добавлено через 9 минут
Как результат предлагает сохранить в html

Добавлено через 10 часов 40 минут
Собственно сам код :
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
 Dim PDFFolder As String
 Dim LastRow As Long
 Dim arrSpecialChar() As String
 Dim dblSpCharFound As Double
 Dim PDFPath As String
 Dim i As Long
 Dim j As Integer
 
 'An array with special characters that cannot be used for naming a file.
 arrSpecialChar() = Split("\ / : * ? " & Chr$(34) & " < > |", " ")
 
 'Find the last row.
 With shMain
 .Activate
 LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
 End With
 
 'Check if the PDF's folder exists.
 PDFFolder = shMain.Range("B4").Value
 If FolderExists(PDFFolder) = False Or PDFFolder = "" Then
 MsgBox "The PDF folder's path is incorect!", vbCritical, "Wrong path"
 shMain.Range("B4").Select
 Exit Sub
 End If
 
 'Check if there is at least one URL.
 If LastRow < 8 Then
 MsgBox "You did't enter a URL!", vbCritical, "No URL"
 Exit Sub
 End If
 
 'Add the backslash if not exists.
 If Right(PDFFolder, 1) <> "\" Then
 PDFFolder = PDFFolder & "\"
 End If
 
 ' 'Set the default printer to Adobe PDF (for Adobe Professional).
 
 'Convert the URLs to PDFs.
 For i = 8 To LastRow
 On Error Resume Next
 PDFPath = Cells(i, 4).Value
 ' 'Check if the PDF name contains a special/illegal character.
 For j = LBound(arrSpecialChar) To UBound(arrSpecialChar)
 dblSpCharFound = WorksheetFunction.Find(arrSpecialChar(j), PDFPath)
 If dblSpCharFound > 0 Then
 PDFPath = WorksheetFunction.Substitute(PDFPath, arrSpecialChar(j), "-")
 End If
 Next j
 PDFPath = PDFFolder & PDFPath
 On Error GoTo 0
 'Save the PDF files to the selected folder.
 Call WebpageToPDF(Cells(i, 3).Value, PDFPath & ".pdf")
 Next i
 
 'Inform the user that macro finished.
 MsgBox LastRow - 7 & " invoices were successfully saved as PDFs!", vbInformation, "Done"
 
 End Sub
 
 Sub WebpageToPDF(pageURL As String, PDFPath As String)
 
 'Creates a new web browser object, opens a selected URL and then prints
 'the web page as PDF using Adobe Professional.
 
 'The macro needs a reference to Windows Script Host Object Model Library, as well
 'as to the Microsoft Internet Controls Library in order to work.
 'From VBA editor go to Tools -> References -> add the two references.
 'Or you can find them at C:\Windows\system32\wshom.ocx and C:\Windows\system32\ieframe.dll.
 
 Dim WebBrowser As InternetExplorer
 Dim StartTime As Date
 Dim intRet As Long
 Dim Report As Variant
 
 
 'Create new web browser object, make it visible,
 'maximize the window and navigate to the desired url.
 Set WebBrowser = New InternetExplorer
 WebBrowser.Visible = True
 ShowWindow WebBrowser.hwnd, SW_MAXIMIZE
 WebBrowser.Navigate (pageURL)
 
 'Wait until the web page is fully loaded.
 Do
 DoEvents
 Loop Until WebBrowser.ReadyState = READYSTATE_COMPLETE
 
 'Check if the internet explorer window exists.
 StartTime = Now()
 Do Until Now() > StartTime + TimeValue("00:00:05")
 intRet = 0
 DoEvents
 'IEFrame is the class name for internet explorer.
 intRet = FindWindow("IEFrame", vbNullString)
 If intRet <> 0 Then Exit Do
 Loop
 
 Const OLECMDID_SAVEAS = 4
 Const OLECMDEXECOPT_DODEFAULT = 0
 Const OLECMDEXECOPT_PROMPTUSER = 2
 'If the IE window exists, print the web page as PDF.
 WebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
 WebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
 If intRet <> 0 Then
 
 WebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
 
 ShowWindow WebBrowser.hwnd, SW_MAXIMIZE
 Application.Wait (Now + TimeValue("00:00:05"))
 
 End If
 
 If MsgBox("Invoice saved! Do you wish to proceed?", vbYesNo + vbQuestion) = vbNo Then
 Exit Sub
 End If
 
 
 'Release the web browser object.
 WebBrowser.Quit
 Set WebBrowser = Nothing
 
 End Sub


Вернуться к обсуждению:
Сохранение вэб страниц в PDF VB
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2015, 10:25
Готовые ответы и решения:

Как создать простой аплоадерс вэб-страниц?
nujen uploader web-stranichek s domashnego kompa na sayt:) 10X:))

Количество страниц в PDF документе
Добрый день. Как на JAVA можно определить количество страниц в документе pdf?

Нумерования страниц в PDF документе
Проблемка такого плана.Необходимо написать программу которая будет нумеровать страницы через одну (...

Количество страниц в pdf документе
Доброго времени суток! Есть задача - получить кол-во страниц pdf-файла. Пытался напрямую потрошить...

5
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2015, 10:25

Записать несколько страниц из Excel в PDF
Уважаемые, надо выделенные страницы записать в один PDF-file

Объединение страниц pdf для последующей печати
2 страницы в 1 лист как слить? на печать софт какой? конвертер?

Как получить количество страниц в документе PDF
kak iz biblioteka pdf reader (Axdpdf) shitat countpage in.vbnet

Как посчитать количество страниц в PDF-файлах
Мне необходимо посчитать количество страниц в PDF-файлах (в данной дирректории и во всех вложениях)...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.