Valaki meg tudná oldani, hogy a lenti makrót úgy tudjam használni, hogy megadom a fájlok helyét és utána a program automatikusan menti xls formátumban őket egy ciklus keretében?

Sub ImportTDM()

Call GetTDM("C:\Users\Doctor\Desktop\W1_20161008_01809.tdms") '### chemin a adapter ###

End Sub

Sub GetTDM(Chemin As String)

Dim ComTDM As Object 'COMAddIn

Dim TDM As Object 'ExcelTDMLib.TDMAddin

Set ComTDM = Application.COMAddIns.Item("ExcelTDM.TDMAddin")

ComTDM.Connect = True

Set TDM = ComTDM.Object

Application.ScreenUpdating = False

TDM.ImportFile fileName:="" & Chemin & ""

Application.ScreenUpdating = True

Dim Workbook As Object

Set Workbook = ActiveWorkbook

Workbook.SaveAs ("C:\Users\Doctor\Desktop\1.xlsx")

Workbook.Close

End Sub