Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien anhand Exceltabelle finden, kopieren und umbenennen
 17.01.2018 19:11:10 TausW
NotSolved

Ansicht des Beitrags:
Von:
TausW		 Datum:
17.01.2018 19:11:10		 Views:
1070		 Rating:
     
Antwort:
  Ja
Thema:
Dateien anhand Exceltabelle finden, kopieren und umbenennen

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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien anhand Exceltabelle finden, kopieren und umbenennen
 17.01.2018 19:11:10 TausW
NotSolved