Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei mit bestimmten Namen suchen/kopieren

Datei mit bestimmten Namen suchen/kopieren
Timothy
Hallo miteinander,
ich bin leider noch absoluter Neuling in der VBA-Programmierung.
Komme einfach nicht weiter......
Wie kann ich aus dem aktiven Sheet einen Namen (z.B. XYZ ) aus einer Zelle auslesen, diesen dann in einem Verzeichnis suchen, in welchem der Name als Datei gespeichert ist (z.B. C:\Tabellen\XYZ.mpr ), und diese Datei dann in ein gesondertes Verzeichnis kopieren (z.B. in D:\KopierteTabellen\XYZ.mpr) ?
Ich komm einfach nicht dahinter wie das gehen soll.....
Bitte um eure Hilfe. Besten Dank schon im Voraus!
MfG
Timothy

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei mit bestimmten Namen suchen/kopieren
18.01.2010 15:10:29
Josef
Hallo Timothy,
Sub copyFile()
  Dim objFSO As Object
  Dim strFileToCopy, strOldPath As String, strNewPath As String
  
  strOldPath = "E:\Temp\" 'Verzeichnis in dem die Datei liegt
  strNewPath = "E:\Temp\Test\" 'Verzeichnis in welches kopiert werden soll
  
  With ActiveSheet
    strFileToCopy = .Range("A1") 'Zelle mit dem Namen
    strFileToCopy = strFileToCopy & ".mpr" 'Suffix anhängen
    If Dir(strOldPath & strFileToCopy, vbNormal) <> "" Then
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strFileToCopy
    End If
  End With
  
  Set objFSO = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Datei mit bestimmten Namen suchen/kopieren
18.01.2010 15:59:33
Timothy
Hallo Sepp,
es funktioniert genauso wie ich es möchte! Vielen Dank, genial wenn es so schlaue Köpfe wie dich gibt!!!
Wenn ich jetzt noch in der Spalte alle Zellen von z.B. 3-8 abarbeiten/kopieren will (H3-H8), dann kann ich dies doch einfach mit einer Schleife machen, oder?!?
AW: Datei mit bestimmten Namen suchen/kopieren
18.01.2010 16:10:53
Josef
Hallo,
ja genau.
Sub copyFile()
  Dim objFSO As Object, rng As Range
  Dim strFileToCopy, strOldPath As String, strNewPath As String
  
  strOldPath = "E:\Temp\" 'Verzeichnis in dem die Datei liegt
  strNewPath = "E:\Temp\Test\" 'Verzeichnis in welches kopiert werden soll
  
  With ActiveSheet
    For Each rng In Range("A1:A5") 'Bereich anpassen!
      strFileToCopy = rng 'Zelle mit dem Namen
      strFileToCopy = strFileToCopy & ".mpr" 'Suffix anhängen
      If Dir(strOldPath & strFileToCopy, vbNormal) <> "" Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strFileToCopy
      End If
    Next
  End With
  
  Set objFSO = Nothing
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Datei mit bestimmten Namen suchen/kopieren
18.01.2010 17:03:56
Timothy
Super, so ähnlich habe ich es jetzt gemacht!
Klasse Sepp!
Hier bin ich wohl wirklich auf einen Experten gestoßen ;);)
Aber jetzt ist mir noch eines aufgefallen, was ich gerne als letztes beheben würde:
Ich habe z.B. in der Spalte A den Wert XYZ doppelt aufgelistet (also z.B. in Zeile 3 und Zeile 4).
Wenn ich jetzt das Makro laufen lasse, kopiert es mir die Datei XYZ.mpr nur einmal.
Ich möchte aber dass dann z.B. der Zweite Wert als XYZ_2.mpr gespeichert wird.
Vielen Dank!
I
AW: Datei mit bestimmten Namen suchen/kopieren
18.01.2010 17:53:15
Josef
Hallo Timothy,
bitte das nächste mal gleich mit der ganzen "Wahrheit" herausrücken.
Sub copyFile()
  Dim objFSO As Object, rng As Range
  Dim strFileToCopy, strNewFile As String, strOldPath As String, strNewPath As String
  Dim lngC As Long
  
  strOldPath = "E:\Temp\" 'Verzeichnis in dem die Datei liegt
  strNewPath = "E:\Temp\Test\" 'Verzeichnis in welches kopiert werden soll
  
  With ActiveSheet
    For Each rng In Range("A1:A5") 'Bereich anpassen!
      strFileToCopy = rng 'Zelle mit dem Namen
      strFileToCopy = strFileToCopy & ".mpr" 'Suffix anhängen
      lngC = 1
      If Dir(strOldPath & strFileToCopy, vbNormal) <> "" Then
        Do
          strNewFile = Left(strFileToCopy, InStr(1, strFileToCopy, ".") - 1) & _
            IIf(lngC > 1, "_" & CStr(lngC), "") & Mid(strFileToCopy, _
            InStrRev(strFileToCopy, "."))
          lngC = lngC + 1
        Loop While Dir(strNewPath & strNewFile, vbNormal) <> ""
        
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strNewFile
      End If
    Next
  End With
  
  Set objFSO = Nothing
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Datei mit bestimmten Namen suchen/kopieren
19.01.2010 09:51:14
Timothy
Hallo Sepp,
genial deine Lösung, auch wenn ich dein Programmcode in der Do-Schleife nicht ganz durchschaue.... ;-(
Hab ich leider erst später gesehen, dass ich zwei gleiche Werte in einer Spalte habe, also "Sorry" für die nicht ganz korrekte Fragestellung!
Vielen, vielen Dank!

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Öffnen mehrer Dateien mit gleichen Namen
Ryu

Hallo!
Wenn ich irgendwelche Exceldateien öffne und anschließend noch eine andere mit dem selben Namen (Wenn ich z.B. das Original bei mir behalte und die korrigierten von Kollegen bekomme), dann ist es so, dass entweder die zweite Datei automatisch umbenannt und geöffnet wird oder es wird...
27.08.2008 18:02:00
Thread-ID: 1005168
3 Beiträge
Liste mit Arbeitsblattnamen
Christian

Hallo Forum,
ich habe in einer Exceldatei mehrer - viele Arbeitsblätter, die, da sie importiert wurden, sehr unterschiedliche Namen haben, wie z.b. Apfel, Spargel, Schrauben, Ausfall......0,123 5,38 usw.
Um Daten aus diesen Blättern zusammenführen zu können benötige ich in einem Arbei...
28.08.2008 10:35:00
Thread-ID: 1005327
8 Beiträge
Anzeige
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Probleme mit Namen für Formel und Vba
Reinhard

Hallo Wissende,
die Datei: https://www.herber.de/bbs/user/56243.xls hat nach Klick auf den Button die nachfolgende Tabelle:
Die Berechnung in Spalte C ist korrekt, so soll es aussehen, also pro Stunde nur einen Wert, Rest 0.
Da die Originaldatei alle 65536 Zeilen ausgenutzt hat, e...
24.10.2008 13:28:00
Thread-ID: 1018986
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
7
4
4
3
11
6
5
1
1
2
7
11
2
9
6
7
3
3
4
6
6
7