1

可能的菜鸟问题，但在这里幽默我......

我每晚将至少两个 xml 文件拉入一个单独的目录，这些文件被命名为“order_'type1/2'.12345.12345.xml”，其中“type1/2”可以是两个单词之一，并且数字字符串会有所不同基于日期。我正在寻找一些东西来拉入（不管日期字符串）名为“order_'type1'*.xml 的 xml 文件。据我所知，VBScript 不一定能很好地使用通配符，所以我在损失在这里。

我最初尝试了以下方法：

Const acAppendData = 2

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase ("C:\Path_to_testdb\test.accdb")

Application.ImportXML ("Path_on_the_server_\order_'type1'*.xml"), acAppendData

但无论出于何种原因，它停止工作（我发誓我没有疯）。所以，我环顾四周，发生了这样的事情：

Dim strPathFile As String
Dim strFile As String
Dim strPath As String


strPath = "C:\_where ever file is located_\"

strFile = Dir(strPath & "order_'type1'*.xml")
strPathFile = strPath & strFile

Application.ImportXML strPathFile, acAppendData

我希望这可以解决问题，但是它在第 1 行（哎哟！）char 17 上给了我一个“预期的语句结束”错误......在这一点上，我对语言本身的了解还不够，无法接受教育搜索我真正需要的东西。任何朝着正确方向的轻推都会受到欢迎！

TLDR：我希望使用 VBScript 从（可能）许多使用类似命名约定（不同日期字符串）的文件将单个 xml 文件导入 Access，并附加数据。这将每天进行，并且在新的一天放置在目录中的新文件将具有新的命名。用通配符来做这件事会很棒，但是 VBScript 要么不喜欢我，要么不喜欢通配符！

同样，我对 VBScript 的了解非常有限，因此非常感谢任何方向/帮助！

谢谢！

4

1 回答 1

2

不确定您的问题是什么（没有注意到您的帖子中有任何问号）。

但是，错误（第 1 行）是由于 VBScript 只有一种数据类型（Variant）。在这里阅读更多：http: //msdn.microsoft.com/en-us/library/9e7a57cf (VS.85).aspx

所以你的前三行应该是：

Dim strPathFile
Dim strFile
Dim strPath

或者，甚至更好：

Dim strPathFile, strFile, strPath
于 2012-05-29T22:07:00.883 回答