问题描述
我打开了一个很大的 XML 文件。我使用 VBA 遍历每一行并进行一些无聊的编辑,然后写入表格。法语字符搞砸了。另一个例子:
SCT diveRSITÉ 成为 SCT diveRSITÉ
打开“BIGLIST.XML”作为输入#1
Do Until EOF(1)
Line Input #1,ReadData
XMLLine = Replace(LTrim(RTrim(ReadData)),"'","''") ' Using Replace to deal with single quotes
' 发生了一大堆数据转换
DoCmd.Runsql "INSERT INTO [TableName] (Field Names) VALUES (All the boring variables I make)"
Loop
Close #1
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)