1

初心者の質問の可能性がありますが、ここで冗談を言ってください...

毎晩少なくとも 2 つの xml ファイルが別のディレクトリに取り込まれます。これらのファイルの名前は「order_'type1/2'.12345.12345.xml」です。「type1/2」は 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行目（痛い！） 17文字目で「ステートメントの終わりが予想されます」というエラーが表示されます...この時点では、言語自体について教育を受けるのに十分な知識がありません。私が実際に必要なものに関して検索します。正しい方向へのナッジは大歓迎です！

TLDR: VBScript を使用して Access にデータを追加して、同様の命名規則 (異なる日付文字列) を使用する (おそらく) 多くのファイルから単一の xml ファイルをインポートしようとしています。これは毎日実行され、新しい日にディレクトリに配置される新しいファイルには新しい名前が付けられます。ワイルドカードを使用してこれを行うのは素晴らしいことですが、VBScript は私を好きではないか、ワイルドカードを好きではありません!

繰り返しますが、私の VBScript の知識は非常に限られているため、指示やヘルプをいただければ幸いです。

ありがとう！

4

1 に答える 1

2

問題が何であるかわからない（投稿に疑問符がないことに気づかなかった）。

ただし、エラー（1行目）は、VBScriptのデータ型が1つ（バリアント）しかないためです。詳細はこちら： http： //msdn.microsoft.com/en-us/library/9e7a57cf （VS.85）.aspx

したがって、最初の3行は次のようになります。

Dim strPathFile
Dim strFile
Dim strPath

または、さらに良い：

Dim strPathFile, strFile, strPath
于 2012-05-29T22:07:00.883 に答える