将ADODB Stream数据写入pdftk的stdin

时间:2015-02-12 03:50:30

标签: vba ms-access stream stdin adodb

使用VBA进行访问:我需要做的是将BLOB数据传送到“textstream”并将其发送到pdftk的stdin。以下是我到目前为止的情况:

With objStream
    .Type = adTypeBinary
    .Open
    .Write Rst.Fields("lngBLOB").Value
    .Position = 0
    .Type = adTypeText
    .CharSet = "us-ascii"
End With

txtStrContract = objStream.ReadText

Set objShell = CreateObject("WScript.Shell")
Set oExec = objShell.Exec("CMD /K")

With oExec
    .StdIn.WriteLine "pdftk - fill_form """ & strTempXFDF & """ output """ & strFilledPDF & """"

        .StdIn.Write txtStrContract

    Debug.Print .StdErr.ReadAll()
    Debug.Print .StdOut.ReadAll()

End With

唯一的问题是,我没有得到任何错误,但我的合并的pdf文件也没有被创建。 如果我提取两个文件并通过命令行手动合并它们,我已检查文件是否会成功合并

我一直在搜索,直到我觉得自己正在失去理智!

0 个答案:

没有答案