Поиск
... ;Загрузить данные из Word на лист База?", vbQuestion + vbYesNo, "Загрузка данных ... ;База").Cells.Clear
'создаём Word
On Error Resume Next
Set ... objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is ... Then
Set objWrdApp = CreateObject("Word.Application")
End If
On ... .Documents.Open(DocFileFullPath)
'копируем данные из Word
objWrdDoc.Range.Copy
If Application ... файл Данные
objWrdDoc.Close
'закрываем Word
objWrdApp.Quit
Set objWrdDoc = Nothing ...
Изменен: 15.07.2022
Читать сообщение на форуме или сайте.Автор: Андрей VG. "Xel написал:
доблестных ойти, у которых обновления excel до просто свежей версии 16го пришлось требовать со скандалем ""Ну, если требования у вас только уровня скандала, то не удивительно :)
Всего делов-по посмотреть на кодировку xml файла и задать, поискав в инете правильное значение. Но, видимо в лом, лишь бы на ИТ бочку покатить :)
// Convert the output into lines of text
#"Imported Text" = Table.FromColumns({Lines.FromBinary(MyXML, ...
Изменен: 10.06.2020
Читать сообщение на форуме или сайте. ...
Дата протокола
Номер протокола
!!!Номер из Госрогана!!!!!! – работа с этими ... на кнопку разноситься по следующим word документам, которые интегрированы в ... ветку.
Данные документы должны распечатываться из excel, проблема в том, ... пробовали делать связь между excel – word, но это оказалось не ... сервис государственного органа, после загрузки этого xml файла мы с ... . После загрузки данных из гос органа, я должен распечатывать вышеуказанные word файлы, ... что бы мы могли данные из него быстро скопировать в нашу ...
Изменен: 12.03.2024
Читать сообщение на форуме или сайте. ... момент при массовом импорте данных из экселя в ворд.
Каждый ... файлов Excel перегоняются в Word) приводит к 100% загрузке ЦП и съеданию ... циклом построчно заменяются на данные из экселя.
В файле эксель, ... из этого же файла запускаю макрос, который формирует отчет в Word ... создает дополнительные процессы WORD.EXE и не выгружает их из памяти. При ... Dim objWord As Word.Application
Dim objDocument As Word.Document
Dim iLastRow ...
Set objWord = CreateObject("Word.Application")
Se t objDocument ...
Изменен: 20.11.2017
Читать сообщение на форуме или сайте.Автор: Сергей Смирнов. Получаю имя файла документа как Общий курс_03.10.201943742,5694444444
а должно быть Общий курс_03.10.201912:14:00
время ставит числом а не текстом.
Если ставлю так:фИО = Trim$(.Cells(1).Text) & "" & Trim$(.Cells(2).Text) & "" & Trim$(.Cells(3).Text)
выдает ошибку в подсказке в приложении возникла внутренняя ошибка при загрузке библиотек ssl
если так:ФИО = Trim$(.Cells(1).Text) & "" & Trim$(.Cells(2).Text) & "" & Trim$(.Cells(3)) ...
Изменен: 04.10.2019
Читать сообщение на форуме или сайте. ... на всякий случай) Для быстрой загрузки их в телефон нужен файл ... ,5л предлагал. Решил попробовать через Word. Читая книгу Джона Уокенбаха каким ... UTF-8 без BOM, а Word зараза делал с BOM. Пришлось ... итоге они увенчались успехом. Один из найденных макросов использует только VBA ... без BOM и быстрее чем Word, но я зачем-то решил ...
Изменен: 28.01.2022
Читать сообщение на форуме или сайте. ...
For i = 1 To 10
Write #fNum, "f" & i ... ,
Next
Write #fNum, "f11"
For ...
For k = 1 To 10
Write #fNum, vData(i, k),
Next ...
Write #fNum, Math.Round(1000# * Math. ... ;
)
in
Source
Ну, и собственно из CSV с кодом локальной нумерации ... }})
in
return
P. S. Просто загрузка из Access с теми данными с ...
Изменен: 23.08.2020
Читать сообщение на форуме или сайте.Автор: Дмитрий(The_Prist) Щербаков. " написал:
почему 66 писем загрузились в инспектор а дальше это невозможно?"
попробуйте перескочить ошибку и перевести цикл на следующее письмо - без ошибки отработает? Если да - сравнивайте письма и ищите отличия.
Как вариант - проверять, что письмо возможно загрузить в word. Т.е. этот блок: Set xDoc = objMItem.GetInspector.WordEditor
Set xTable = xDoc.Tables(1)
Cells(iRow, column) = xTable.Cell(4, 2).Range.Text
Set ...
Изменен: 18.01.2024
Читать сообщение на форуме или сайте. ... времени суток! Необходимо сделать загрузку таблиц из excel в word, в excel таблицы ... находятся на разных листах, в word ... (
Вот код:
Dim wrd As Word.Application
Dim ws As Worksheet ...
Set wrd = New Word.Application
For Each ws In ...
Изменен: 23.01.2012
Читать сообщение на форуме или сайте.Автор: Владимир Иванов. Мне нужно на основании данных книги Data.xlsb написать программу на языке VBA, которая по нажатию на кнопку сформирует и выведет на экран документ "Отчет по загрузке" в MS Word. При этом отделы и их сотрудники должны быть расположены в порядке убывания количества задач.
Изменен: 12.04.2022
Читать сообщение на форуме или сайте.Автор: Владимир Иванов. Спасибо за ответы! Ознакамливался с тем что вы скинули, кажется это не совсем то что мне нужно.. Мне нужно на основании данных книги Data.xlsb написать программу на языке VBA, которая по нажатию на кнопку сформирует и выведет на экран документ "Отчет по загрузке" в MS Word. При этом отделы и их сотрудники должны быть расположены в порядке убывания количества задач. Может я не в той теме завел топик? Просто уже правда голова идет кругом. Надеюсь на Вашу помощь))
Изменен: 11.04.2022
Читать сообщение на форуме или сайте. ... можно автоматизировать через binding с Word'om. Работает вполне неплохо. Таблицы ... пдф-файл из интернета, открываю его с помощью Word, Word распознает и выдает ... -ресурсы, используя POST-запросы для загрузки искомого файла, но это очень ...
Изменен: 30.07.2015
Читать сообщение на форуме или сайте.Автор: Troll. Вот что получилось)
Sub tt()
Dim a
Application.ScreenUpdating = False
With Workbooks.Open("http://msu-ural.ru/Storage/File/FileItem/Body/src/145/%D0%BF%D1%80%D0%B0%D0%B9%D1%81%2020-12.xls")
a = .Sheets(1).[a1:t1000].Value 'можно выбрать размер поля который мы подгружаем
.Close False 'закрываем временную книгу
End With
Sheets("Лист1").Range("A1").Resize(UBound(a), UBound(a, 2)) = a
Application.ScreenUpdating = True
...
Изменен: 04.01.2012
Читать сообщение на форуме или сайте.Автор: werdew. Приветствую не раз уже помогли форумах. Очередная заморочка. В столбце1 имеем некий текст в каждой ячейке, программа к маске вида http://site.re/index.php?_= добавляет данные из столбце1 поочередно и код полученной html страницы записывает в соответствующие ячейки столбцах также поочередно. В итоге имеем в столбце2 в каждой ячейке соответствующий код. Заранее благодарен.
Изменен: 01.11.2016
Читать сообщение на форуме или сайте.Автор: ArtHome. Agronom, судя по вопросу, вы не стали тратить время на скачивание примера. :) Да, там требуется:
1. Открыть файл с данными, при этом обновится расчётная форма.
2. Сохранить полученный результат куда-либо ещё, например на соседний лист, но уже со значениями, а не с формулами, или вставить в word, или отправить на печать.
3. Закрыть файл с данными.
Эти три пунка требуются вне зависимости от того, будет ли это делать человек или макрос. Я и спрашивал три раза, в чём проблема с ...
Изменен: 19.05.2016
Читать сообщение на форуме или сайте.Автор: JeyCi. "Dima S написал: хотелось бы чтоб названия были с гиперссылками... к сожалению не знаком с HtmlDocument (
"
не знаю, подойдёт ли... но я использовала такой код для взятия ссылок... только линк свой попробуйте... ну и, наверно, вам выборочные линки нужны - там уж сами выбирайте
Public Function UseHTML(Url$) As Variant
Dim XMLHTTP, XX
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
With XMLHTTP
.Open "Get", Url$, "False"
...
Изменен: 14.03.2015
Читать сообщение на форуме или сайте.Автор: himikat. Вопрос решен.
Private Sub cmdRepMen_Click()
Call OpenRepNew(0)
Call Ìàêðîñ1(0)
End Sub
Private Sub CommandButton2_Click()
' Ôîðìèðîâàíèå èìåíè ôàéëà ïðàéñ-ëèñòà.
fName = Application.GetOpenFilename("ini-ôàéë(*.xls),*.xls", , "Óêàæèòå ðàñïîëîæåíèå ôàéëà Ñðàâíåíèÿ ñêëàäîâ")
If fName = False Then
Exit Sub
End If
TextBox1.Value = fName
End Sub
Function MakeZIP(fileName As String) As String
On Error ...
Изменен: 11.11.2014
Читать сообщение на форуме или сайте.Автор: Longines. {quote}{login=fromrom}{date=19.12.2010 11:00}{thema=}{post}Больше ни у кого идей\советов нет?
Как к примеру с амазона картинки в ексель вставлять или с гугла?{/post}{/quote}
Это легко сделать с помощью контрола Microsoft Internet Transfer Control
6.0 (wininet.dll). Находим в инете или ставим VB 6.0. Дальше устанавливаем с системную папку. Редактируем реестр(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility), так как он может быть ...
Изменен: 20.12.2010
Читать сообщение на форуме или сайте. ... при создании текстовиков (при загрузке)... и считывании из этих же текстовиков (при ... response.content.iter_chunked(1024):
fd.write(data)
return 'Successfully downloaded ' + ...
print('\n'.join(results))при загрузке пакетами - для дальнейшего парсинга надо ... , indent=4)
print(json_data2)
fd.write(data)
return 'Successfully downloaded ' + ... быстрее, чем PowerQuery (для дальнейшей загрузки в excel/access потом)... просто ...
Изменен: 20.02.2020
Читать сообщение на форуме или сайте. ... Мб – больше разрешённого для загрузки на форум, даже если максимально ... из реестра (HKEY_LOCAL_MACHINE\SOFTWARE\Classes).
Списки могут синхронизироваться при загрузке ... быть открыт для редактирования пользователем из формы.
Можно сказать, что ... , выбираемые по созданному алгоритму из более чем 1000 вариантов ... в отличие от таблиц в Word, где можно изменить ширину ...
Например, в окне печати Word для печати некоторых страниц, нужно ... файл по мере получения информации из соответствующего каталога.
Возможно, ...
Изменен: 05.07.2017
Читать сообщение на форуме или сайте. ... : Acid Burn. Оказалось, код выгрузки из Excel в CSV + считывания & ... = rng.Columns.Count Then Write #1, V Else Write #1, V,
Next ... , Arr() As String, qR&, qC&
' Загрузка файла, разбивка на линии, оценка ... R
' Вывод содержимого строки 3 из столбца 1 без кавычек
MsgBox ...
Изменен: 26.02.2017
Читать сообщение на форуме или сайте. ... вот вопрос был
Какой путь из нижеперечисленных вариантов ответов не приводит ... ) Загрузка программы с «зараженной» дискеты, флешки…
4) Файлы, созданные в Word, Excel ... ;мелкопакостный" вирус. имхо только Word пока безвреден ;-) и то пока ...
Изменен: 29.10.2010
Читать сообщение на форуме или сайте.