Вопрос по vba, ms-word – VBA WS Toolkit, как получить текущий файл в виде байтового массива

4

Используя VBA, я хочу отправить копию текущего текстового документа в веб-сервис? Как можно получить текущий документ в виде байтового массива?

Я знаю, как использовать веб-сервис, просто не знаю, как получить текущий файл в качестве двоичного объекта для отправки?

постскриптум Я использую только VBA с этого утра =) Так что простые ответы приветствуются

Ваш Ответ

1   ответ
10
Public Sub Example()
    Dim bytFile() As Byte
    bytFile = GetFileBytes("c:\test\dirdump.doc")
    ''// Do something with bytFile here.
End Sub

Public Function GetFileBytes(ByVal path As String) As Byte()
    Dim lngFileNum As Long
    Dim bytRtnVal() As Byte
    lngFileNum = FreeFile
    If LenB(Dir(path)) Then ''// Does file exist?
        Open path For Binary Access Read As lngFileNum
        ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte
        Get lngFileNum, , bytRtnVal
        Close lngFileNum
    Else
        Err.Raise 53
    End If
    GetFileBytes = bytRtnVal
    Erase bytRtnVal
End Function

Похожие вопросы