从Sharepoint> Excel> PDF转换时，string中的幻影字符

我的组织使用SP 2010表单来填充信息。 我没有build立这种forms，但我注意到如果你试图从一些字段复制到其他任何地方（记事本等），它会在string前面直接放置问号或欧元符号（有时在中间。）

Dim objMyList As ListObject Dim objWksheet As Worksheet Dim strSPServer As String Const SERVER As String = "xxx" Const LISTNAME As String = "{xxx}" Const VIEWNAME As String = "{xxx}" strSPServer = "https://" & SERVER & "/_vti_bin" Set objWksheet = Sheets("Sheet1") Set objMyList = objWksheet.ListObjects.Add(xlSrcExternal, _ Array(strSPServer, LISTNAME, VIEWNAME), False, , Range("A1")) 

脚本的这一部分将已经input到我的工作表中的表格列表拉出，相当于在SP网站上使用“导出到Excel”button。

其余部分通过在FDF文件上使用replacefunction将每行映射到新的PDF。 这些幻影符号无处可以在Excel工作表中find。 没有任何空格或字符。

 For i = 2 To lastRow oldPDF = "C:\~\Auto.pdf" oldFDF = "C:\~\Auto_data.fdf" newPDF = "C:\~\" & i & ".pdf" iFileNum = FreeFile Open oldFDF For Input As iFileNum Do Until EOF(iFileNum) Line Input #iFileNum, sBuf sTemp = sTemp & sBuf & vbCrLf Loop Close iFileNum Next i sTemp = Replace(sTemp, "<</T(myFormField)/V( )>>", "<</T(myFormField)/V(" & sht.Range("B" & i) & ")>>") 

我打开PDFfind幽灵人物回来了。 所以我们到目前为止：

SharePoint表单和Excel工作表：

 The quick brown fox jumps over the lazy dog 

来自SP表格的文本被复制/粘贴，并在我的PDF上：

 ?The quick brown fox jumps over the lazy dog 

我试过了

 sTemp = Replace(sTemp, "~?", "") sTemp = Replace(sTemp, "?", "") 

但是这些符号仍然显示在PDF上…并且在Excel工作表本身上进行replace是没有用的，因为这些符号不在那里。

如果上述操作失败，我如何自动从PDF / FDF中删除这些符号？

编辑：

 sTemp = Replace(sTemp, Chr(160), "") 

解决了欧元符号问题，但问题依然存在，我试过Chr / Chrw（63）