|
Moin moin,
Ich (blutiger Anfänger) habe eine Exeltabelle mit Dateinamen (von Worddateien).
Nun will ich die zugehörigen Worddateien in einem Ordner mit Unterordnern finden,
in einen ganz bestimmten Ordner kopieren und dort umbenennen. Die Worddateien
sollen in der gleichen Reihenfolge abgelegt werden, wie sie in der Exceltabelle
gelistet sind (z.B. Zahl vor Dateinamen einfügen). Das ganze soll mit relativen Pfaden laufen).
Ich hab ein wenig gebaltelt, bin mir aber nicht sicher, wie genau das mit den rel. Pfaden läuft.
Wäre schön, wenn jemand weiterhelfen könnte.
With MyExcel.Workbooks.Open("\\Merger_List.xlsx")
With .Sheets(1)
Dim Counter As Integer = 0
Dim strPath As String
strPath = ThisWorkbook.Path
For r = 3 to .Cells(.Rows.Count,3).End(Excel.XlDirection.xlUp).Row
Dim FileName = .Cells(r,3).Value 'Get filename from cell
Dim PreNum As String ' Set prefix number
' Convert Counter to 4-digit PreNum-text
PreNum = Format(Text(Counter), "0000")
' Rename (4-digit) counter+-"_"+original_file-name) and copy file to dedicated directory
My.Computer.FileSystem.CopyFile(
"C:\UserFiles\\TestFiles\testFile.txt",
"C:\UserFiles\TestFiles2\NewFile.txt",
Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
' Raise counter
Counter = Counter +100
Next
'Reset Counter
Counter =0
End With
End With
|