импорт таблицы из IE - Microsoft Office Excel - Страница 2

Kek · 03.10.2011, 13:59

использую:

Function WebPageText(ByVal sURL As String) As String
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Appl ication"):
IE.Navigate sURL
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
WebPageText = IE.Document.body.innerText
IE.Quit: Set IE = Nothing
End Function

Sub ПримерИспользованияФункции_WebPageT ext()

txt = WebPageText("http://excelvba.ru/services")
ПутьКРабочемуСтолу = CreateObject("WScript.Shell").Speci alFolders("Desktop")
SaveTXTfile ПутьКРабочемуСтолу & "\PageText.txt", txt
Workbooks.OpenText ПутьКРабочемуСтолу & "\PageText.txt", , , xlDelimited
End Sub

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemo bject")
Set ts = fso.CreateTextFile(filename, True)
ts.Write txt: ts.Close
SaveTXTfile = Err = 0
Set ts = Nothing: Set fso = Nothing
End Function

Kek · 07.10.2011, 09:31

я пытаюсь использовать приложение wget, но оно не приносит результата. Подскажите, каким образом еще можно перенести данные в excel 2003

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Импорт таблицы из Access в Excel	Callika	Microsoft Office Excel	6	17.03.2011 22:10
Импорт данных c Бд(конкретной таблицы) Sql в Excel...	David-D	ASP.NET	1	25.02.2011 23:26
Помогите сделать импорт таблицы в html каждые 15минут	jimbots	HTML и CSS	1	30.07.2010 05:01
Вставка/импорт массива значений из текстового файла в столбец таблицы	bungler	Microsoft Office Excel	4	08.01.2009 19:09
импорт таблицы *.dbf в ms access через ADO	ADO	БД в Delphi	6	17.11.2008 15:01

03.10.2011, 13:59	#11
Kek Пользователь Регистрация: 20.06.2011 Сообщений: 54	использую: Function WebPageText(ByVal sURL As String) As String On Error Resume Next Set IE = CreateObject("InternetExplorer.Appl ication"): IE.Navigate sURL While IE.busy Or (IE.readyState <> 4): DoEvents: Wend WebPageText = IE.Document.body.innerText IE.Quit: Set IE = Nothing End Function Sub ПримерИспользованияФункции_WebPageT ext() txt = WebPageText("http://excelvba.ru/services") ПутьКРабочемуСтолу = CreateObject("WScript.Shell").Speci alFolders("Desktop") SaveTXTfile ПутьКРабочемуСтолу & "\PageText.txt", txt Workbooks.OpenText ПутьКРабочемуСтолу & "\PageText.txt", , , xlDelimited End Sub Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean On Error Resume Next: Err.Clear Set fso = CreateObject("scripting.filesystemo bject") Set ts = fso.CreateTextFile(filename, True) ts.Write txt: ts.Close SaveTXTfile = Err = 0 Set ts = Nothing: Set fso = Nothing End Function

07.10.2011, 09:31	#12
Kek Пользователь Регистрация: 20.06.2011 Сообщений: 54	я пытаюсь использовать приложение wget, но оно не приносит результата. Подскажите, каким образом еще можно перенести данные в excel 2003