小编use*_*620的帖子

在Windows下,安装Evernote时,还会安装api,可以通过vba访问(例如).

每个注释都可以显示其"资源"(附加文件和图像),实际资源可以作为字节数组检索.

我将字节数组写入实际文件时遇到问题.

变量声明:

Dim fileByte() As Byte
Dim nt As enapiLib.Note

获取数据:

fileByte = nt.Resources.Item(i).Data

将字节数组写入文件:

Function WriteByteArray(vData As Variant, sFileName As String, Optional bAppendToFile As Boolean = False) As Boolean
Dim iFileNum As Integer, lWritePos As Long

Debug.Print " --> Entering WriteByteArray function with " & sFileName & " file to write."
On Error GoTo ErrFailed
If bAppendToFile = False Then
    If Len(Dir$(sFileName)) > 0 And Len(sFileName) > 0 Then
        'Delete the existing file
        VBA.Kill sFileName …