XML import with changing filename

[FvdF]

Dear members,

I want a macro or vba code to import several xml files with different filenames in one workbook (different sheets "VH", "NW", "ZK"). I have a macro as example but need the code to import every day these xml files that have a new filename.
The blue text is every day different but the red is every day the same. I copy these xml files every day in this folder and want to use the macro look into this folder to import these xml files in the workbook.

Can someone help me with this issue.

FvdF.


========================
Sub ImportXML()
'
' ImportXML Macro
'
'
Sheets("VH").Select
ActiveWorkbook.XmlImport URL:="D:\@FvdF\Desktop\XML\ST_VH_171004_0_2.xml", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
Sheets("NW").Select
ActiveWorkbook.XmlImport URL:="D:\@FvdF\Desktop\XML\ST_NW_171004_0_2.xml", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
Sheets("ZK").Select
ActiveWorkbook.XmlImport URL:="D:\@FvdF\Desktop\XML\ST_ZK_171004_0_2.xml", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
End Sub
=======================

[Kenneth Hobson]

Welcome to the forum! Click the menu icon # to insert code tags to paste your code between.

Maybe something like:

Please Login or Register  to view this content.

[FvdF]

Dear Kenneth,

Your code is not working yet and my knowledge about vba is from a beginner, so if you can explane why it is not working yet.
The error is in the blue line.

With regards,
FvdF

Please Login or Register  to view this content.