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

[xamillion]

Сломал уже мозг.
Имеем:
Microsoft Office 2003, файлик html.
При открытии html число 23820000000026203 преобразуется в 23820000000026200 (2,382E+16).
Перепробовал все что только в голову пришло... Может как-то можно при открытии ему текстовый формат присвоить, или макросом перенести, или еще чего незаурядного есть из вариантов?

[doober]

есть из вариантов?

Есть.
Открываете его как текстовый файл и Regexом по тексту.

Function За_Номером_Иду(s) As String
    Dim RegEx As Object
    За_Номером_Иду = "Не найден"
    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "(<p class=MsoNormal>(.+?)</p>)"
        .MultiLine = True
    End With

    If RegEx.Test(s) Then
        Set oMatches = RegEx.Execute(s)
        ''Текст = oMatches(0).SubMatches(1)
        За_Номером_Иду = oMatches(1).SubMatches(1)
    End If

End Function

[Казанский]

Или открыть в браузере, скопировать. В Excel установить текстовый формат всего листа, Правка - спец. вставка - текст.

[xamillion]

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

Или открыть в браузере, скопировать. В Excel установить текстовый формат всего листа, Правка - спец. вставка - текст.

Этот вариант пробовал, работает, но не годится. Вот если бы Excel по-умолчанию заставить открывать документы с присвоенным текстовым форматом до открытия.

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

Есть.
Открываете его как текстовый файл и Regexом по тексту.

Function За_Номером_Иду(s) As String
    Dim RegEx As Object
    За_Номером_Иду = "Не найден"
    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "(<p class=MsoNormal>(.+?)</p>)"
        .MultiLine = True
    End With

    If RegEx.Test(s) Then
        Set oMatches = RegEx.Execute(s)
        ''Текст = oMatches(0).SubMatches(1)
        За_Номером_Иду = oMatches(1).SubMatches(1)
    End If

End Function

Приступил к освоению регулярных выражений. На всякий случай подключил к проекту библиотеку Microsoft VBScript Regular Expression 5.5.
Немного не совсем ясно как открыть как текстовый файл...

[doober]

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

Немного не совсем ясно как открыть как текстовый файл...

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objfile = objFSO.OpenTextFile(Путь к файлу, 1)
      S = objfile.Readall
              objfile.Close
    Set objfile = Nothing

    Set objFSO = Nothing

[Казанский]

Можно отдельным скриптом заменить <p class=MsoNormal> на <p class=MsoNormal>' (добавить апостроф) в одном файле или во всех html файлах папки. Потом открывать в Excel как обычно. Правда, потребуется еще перевести значение в формулу, чтобы апострофы не маячили, т.е. имитировать команду F2, Enter для каждой ячейки. Это можно сделать макросом из одной строки, хоть в окне Immediate:

for each a in cells.SpecialCells(xlCellTypeConstants,xltextvalues).Areas:a.formula=a.formula:next

[xamillion]

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

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objfile = objFSO.OpenTextFile(Путь к файлу, 1)
      S = objfile.Readall
              objfile.Close
    Set objfile = Nothing

    Set objFSO = Nothing

схавал... но нарисовалась еще проблема с кодировкой символов UTF8... тупик?

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

Можно отдельным скриптом заменить <p class=MsoNormal> на <p class=MsoNormal>' (добавить апостроф) в одном файле или во всех html файлах папки. Потом открывать в Excel как обычно. Правда, потребуется еще перевести значение в формулу, чтобы апострофы не маячили, т.е. имитировать команду F2, Enter для каждой ячейки. Это можно сделать макросом из одной строки, хоть в окне Immediate:

for each a in cells.SpecialCells(xlCellTypeConstants,xltextvalues).Areas:a.formula=a.formula:next

Ох ничего себе маневр... пробую...

[Казанский]

Или так, проще

activesheet.usedrange.formula=activesheet.usedrange.formula

[xamillion]

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

Или так, проще

activesheet.usedrange.formula=activesheet.usedrange.formula

ну до этого еще не дошел... застрял на первом этапе...

пробую так, но что-то пока не выходит...

Sub zamena_simvolov()
    Dim s As String, v As Variant, i As Long, l As Long
    ' Откроем файл и поместим все его содержимое в переменную "s"
    Open "d:\test(5).html" For Input As #1: s = Input(LOF(1), 1): Close #1
    v = Split(s, vbCrLf)
    ' Открываем файл для записи
    Open "d:\test(5).html" For Output As #1
    ' Перебираем все строки считанного ранее файла в переменной "s" и заменяем нужные символы
    For i = 0 To UBound(v) - 1
        s = v(i)
        s = Replace(s, "<p class=MsoNormal>", "<p class=MsoNormal>'")
        Print #1, s
    Next
    Close #1
End Sub

В результате получаем пустой файл.

[doober]

Function За_Номером_Иду(Путь_К_Файлу) As String
    Dim oStream
    Dim S As String
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 2
    oStream.Charset = "Utf-8"
    oStream.Open
    oStream.LoadFromFile Путь_К_Файлу
    S = oStream.ReadText
    oStream.Close
    Dim RegEx As Object
    За_Номером_Иду = "Не найден"
    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "(<p class=MsoNormal>(.+?)</p>)"
        .MultiLine = True
    End With

    If RegEx.Test(S) Then
        Set oMatches = RegEx.Execute(S)
        За_Номером_Иду = oMatches(1).SubMatches(1)
    End If
End Function