1

XML ファイルをインポートする命令をコード VBA に統合したいと考えています。else私の条件の分岐に、XML ファイルをインポートするコマンドを追加したいと考えています。何か提案していただけますか（インポートを行うVBA命令）？

   Private Sub Commande0_Click()
      Dim rep As String
      rep = Dir("C:\Users\Toufik\Desktop\XML\*.*", vbDirectory)
      Do While (rep <> "")
         If (GetAttr("C:\Users\Toufik\Desktop\XML\" & rep) And vbDirectory) = vbDirectory Then
            MsgBox "Directory " & rep
         Else
            MsgBox "File " & rep
         End If 
         rep = Dir
      Loop
   End Sub
4

1 に答える 1

3

VBA を使用して XML データを Access にインポートする場合は、次のApplication.ImportXML方法を確認してください。

http://msdn.microsoft.com/en-us/library/ff823157%28v=office.14%29.aspx

于 2013-05-13T20:43:08.420 に答える