Question

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

我每晚至少将两个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：我正在寻找从（可能）许多使用类似命名约定（不同日期字符串）的文件导入单个xml文件，使用VBScript到Access中，附加数据。这将每天执行，并且新日期放置在目录中的新文件将具有新的命名。用通配符做这件事会很棒，但是VBScript不喜欢我，或者不喜欢通配符！

同样，我的VBScript精明非常有限，所以非常感谢任何方向/帮助！

谢谢！

Answer 1

不确定您的问题是什么（未发现帖子中有任何问号）。

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

所以你的前三行应该是：

Dim strPathFile
Dim strFile
Dim strPath

或者，甚至更好：

Dim strPathFile, strFile, strPath

通过VBScript将XML导入MS Access的问题

1 个答案: