Разряд чисел (15 симв.) при открытии excel

[xamillion]

уже нарисовалась картина... попадается <td width='66%'> в строке <p class=MsoNormal><td width='66%'>(.+?)</p>, как бы пропустить эту гадость?
и можно ли сразу работать с несколькими регулярными выражениями?

[xamillion]

Сообщение от xamillion

<td width='66%'> в строке <p class=MsoNormal><td width='66%'>(.+?)</p>, как бы пропустить эту гадость?

придумал пока так...
<p class=MsoNormal></td><td width='*\d\d%'>(.+?)</p>

[Казанский]

xamillion, в чем задача вообще? Извлечь из html файла одно число, все числа или таблицу?

[xamillion]

Сообщение от Казанский

xamillion, в чем задача вообще? Извлечь из html файла одно число, все числа или таблицу?

Первоначально планировалось открывать посредством vba из excel сохраненный заранее html-файл и из него брать выборочно данные... все бы ничего если бы не ограничение в 15 разрядов числа в excel'e... еще бы excel соображал присваивать более длинным числам текстовый формат... да фиг там - он лучше ноликов наставит ну да ладно...

doober'ом было предложено регулярными выражениями из тегов получать данные... вроде получается... В итоге формируется некий лист с данными, из которого по шаблону формируется doc'a.

Днем в перерывах от звонков, от отвлеканий коллегами, от посетителей пытался постигнуть великолепие REGEX... Затем Вы подкинули идейку с добавлением одинарной кавычки... Задумался - идейка и впрямь достойная...

Теперь пытаюсь реализовать либо добавление перед каждым числом более 15 разрядов кавычку в html-файле, либо буду дальше выдергивать как получается "регулярками". А возможно и таблицы выдергивать придется.... только вот не все столбцы в таблице нужны... тут надо подумать... ну то ладно - дойду буду думать...

Было бы красиво напрямую с браузера тянуть, но увы опыта в написании скрипта для браузера нет.

Подведу итог что вообще пытаюсь сделать вкратце:
html - excel - word
звено excel - word уже реализовано...

спасибо за внимание и помощь...

[doober]

Сообщение от xamillion

Было бы красиво напрямую с браузера тянуть, но увы опыта в написании скрипта для браузера нет.

Это не проблема

Sub Вперед_За_Орденами()
    WebBrowser1.Navigate "E:\test.html"

    While WebBrowser1.ReadyState <> 4
        DoEvents
    Wend
    For Each X In WebBrowser1.Document.GetElementsByTagName("table")

        For n = 0 To X.Rows.Length - 1
            For m = 0 To X.Rows(n).Cells.Length - 1
                Debug.Print X.Rows(n).Cells(m).innertext
            Next
        Next
    Next
End Sub

[xamillion]

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Const WM_CLOSE As Long = &H10

Private Sub IEclose()
Dim lhWnd As Long
Do
lhWnd = FindWindowEx(0&, lhWnd, "IEFrame", vbNullString)
        If lhWnd Then PostMessage lhWnd, WM_CLOSE, 0&, 0&
Loop While lhWnd
End Sub


Sub FromHTMLtoXLS()

IEclose

Range("A:E").ClearContents

Set WebBrowser1 = CreateObject("InternetExplorer.Application")


WebBrowser1.Visible = False

    WebBrowser1.Navigate "E:\test.html"

    While WebBrowser1.ReadyState <> 4
        DoEvents
    Wend
    

    For Each x In WebBrowser1.Document.GetElementsByTagName("table")

        j = j + 1

        For n = 0 To x.Rows.Length - 1
        k = 1

            For m = 0 To x.Rows(n).Cells.Length - 1
            
                Debug.Print x.Rows(n).Cells(m).innertext
                
                    Cells(j, k) = "'" & x.Rows(n).Cells(m).innertext
                    k = k + 1

            Next
            j = j + 1
            
        Next
    Next
    WebBrowser1.Quit
End Sub

так уже тянет таблицы в excel... не спится же...
да и кавычку добавляет... ну на всякий закрываем IE...
Может кому пригодится...