Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Dateien kopieren / Dateien schützen ?

Forumthread: VBA: Dateien kopieren / Dateien schützen ?

VBA: Dateien kopieren / Dateien schützen ?
06.07.2007 10:56:00
Selma
Hallo Leute,
ich habe zwei Fragen:
1. In Zellen habe ich die Dateinamen (ohne Pfad z.B. Bestellungen 2007.doc - Kompletter Pfad steht in Hyperlink.Adress) stehen die mit den Hyperlinks versehen sind.
Ist es möglich nur die Dateien die im markierten Zellenbereich stehen per VBA nach T:\Export\2007\ zu kopieren ?
2. Wie kann ich per VBA alle Dateien incl. Unterordnerdateien für T:\Eingang\IN\ schreibgeschützt machen?
Vielen Dank im Voraus...
Liebe Grüße
Selma

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Dateien kopieren / Dateien schützen ?
06.07.2007 14:17:15
Oberschlumpf
Hi Selma
Kopiere diese beiden Makros in ein allgemeines Modul

Sub markierte()
Dim lrZelle As Range
For Each lrZelle In Selection
If lrZelle.Hyperlinks.Count > 0 Then
FileCopy lrZelle.Hyperlinks(1).Address, "T:\Export\2007\" & lrZelle.Value
End If
Next
End Sub




Sub schreibschutz()
Dim I As Long
Dim MeinPfad As String, liZeile As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
MeinPfad = "T:\Eingang\IN"
liZeile = 1
With Application.FileSearch
.LookIn = MeinPfad
.SearchSubFolders = True
.Filename = "*.*"
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
SetAttr .FoundFiles(I), vbReadOnly
Next I
End If
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


In Excel über Extras/Makro/Makros kannst du dann beide Makros ausführen.
Das erste Makro beantwortet deine erste Frage, das zweite Makro beantwortet deine zweite Frage.
Konnte ich helfen?
Ciao
Thorsten

Anzeige
AW: VBA: Dateien kopieren / Dateien schützen ?
06.07.2007 15:03:00
Selma
Hallo Thorsten,
erstmal vielen Dank für deine Hilfe.
Das zweite Makro funktioniert.
Das erste Markro bleibt hier FileCopy lrZelle.Hyperlinks(1).Address, "T:\Export\2007\" & lrZelle.Value hängen.
LG
Selma

AW: VBA: Dateien kopieren / Dateien schützen ?
06.07.2007 15:19:11
Oberschlumpf
Hi Selma
Nach deiner Beschreibung gehe ich bisher davon aus, dass die Zelle, in der sichtbar nur der Dateiname steht, automatisch auch die Zelle ist, die mit einem Hyperlink mit Pfad zur Datei steht, dessen Name eben in der Zelle sichtbar ist.
Z Bsp
in A1 steht
Beispiel.doc
gleichzeitig ist A1 mit dem Hyperlink "D:\Eigene Dateien\Beispiel.doc" versehen.
und wenn du nun NUR A1 markierst und das erste Makro startest, dann wird aus Zelle A1 die Hyperlinkadresse gelesen, und mit Hilfe dieser Adresse wird die Datei Beispiel.doc in das Verzeichnis T:\Export\2007 kopiert.
Was habe ich falsch verstanden oder du falsch erklärt?
Bei mir funzt der Code jedenfalls.
Ciao
Thorsten

Anzeige
AW: VBA: Dateien kopieren / Dateien schützen ?
06.07.2007 17:56:00
Selma
Hallo Thorsten,
wenn der Pfad der Datei nicht zu lang ist, dann funktioniert es bei mir auch.
Mein Problem liegt bestimmt daran, dass z.B. in Hyperlink-Adresse dies steht: ../../prj/3041/IN/Architekturbüro%20Sevens/2007-06-15/XM_Begleitschein.pdf
Gehe ich mit dem Maus über den Hyperlink drüber, dann steht dies:
file:///\\51HH15\share\prj\3041\IN\Architekturbüro%20Sevens\2007-06-15\XM_Begleitschein.pdf
Die Datei existiert auf dem Server, leider wird sie nicht kopiert.
Ist die Pfadlänge das Problem ?
LG
Selma

Anzeige
AW: VBA: Dateien kopieren / Dateien schützen ?
07.07.2007 00:05:56
Oberschlumpf
Hi Selma
Schreib mir mal bitte den riochtigen Pfad auf (nicht das, was angezeigt wird, wenn du den Mauszeiger darüber bewegst) - schau nach, in dem du mit rechte Maustaste auf den Link klickst, und dann Hyperlink bearbeiten auswählen.
Ciao
Thorsten

AW: VBA: Dateien kopieren / Dateien schützen ?
08.07.2007 19:32:00
Selma
Hallo Thorsten,
dies hier steht (rechte Maustaste auf den Link und dann Hyperlink bearbeiten):
../../prj/3041/IN/Architekturbüro%20Sevens/2007-06-15/XM_Begleitschein.pdf
LG
Selma

Anzeige
AW: VBA: Dateien kopieren / Dateien schützen ?
09.07.2007 05:53:00
Oberschlumpf
Hi Selma
Ich glaube, das Problem ist im Dateinamen der Teil "%20".
Wenn ich versuche, einen Hyperlink auf eine Datei zu setzen, die im Dateinamen auch den Teil "%20" enthält, wird in meinem Excel (Excel XP nicht 2000) nicht einmal dieser Teil angezeigt.
Kannst du den Dateinamen der Datei(en) so ändern, dass wenigstens das %-Zeichen nicht mehr enthalten ist?
Wenn nicht, weiß ich im Moment leider auch keine Lösung, wie man auf solche Dateien einen Hyperlink setzen kann, der auch funktioniert.
Lässt sich denn bei dir solch eine Datei öffnen, wenn du mit der Maus auf den Link klickst? Nicht mal das funktioniert bei mir, wenn im Dateinamen das %-Zeichen vorkommt.
Ciao
Thorsten

Anzeige
Da der Dateipfad Zeichen enthält, die...
09.07.2007 14:35:00
Luc:-?
...nicht der ursprünglichen Namenskonvention entsprechen, Selma (+ Thorsten),
wäre es viell hilfreich, den gesamten Pfad in Apostrophs einzuschließen...
Gruß Luc :-?

AW: VBA: Dateien kopieren / Dateien schützen ?
10.07.2007 16:55:00
Selma
@Thorsten
die Dateien lassen sich öffnen auch wenn das %-Zeichen vorkommt.
@Luc
ich werde den gesamten Pfad in Apostrophs ändern. Ich gebe dir ein Feedbackchen ;-)
LG
Selma
Anzeige

Forumthreads zu verwandten Themen

VBA beim anlegen neuer Datei mit kopieren
Stefanglander

Mal wieder ich,
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2() Dim strFile As...
16.08.2009 19:31:38
Thread-ID: 1096268
4 Beiträge
Anzeige
VBA-Projekt innerhalb Datei kopieren
Gregor

Hallo Excel-Profis
Folgendes Problem, dass ich trotz intensiver Recherche nicht gelöst bekomme:
Möchte das VBA-Projekt der Arbeitsmappe("2") mit dem VBA-Projekt der Arbeitsmappe("1") überschreiben.
(beide Blätter sind in einer Datei).
Kann mir jemand helfen?
Vielen Dank!
...
03.12.2009 13:09:19
Thread-ID: 1121578
7 Beiträge
Anzeige
VBA Probelm bei Datei einlesen und kopieren
Roland

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
02.02.2010 10:57:34
Thread-ID: 1134995
2 Beiträge
per VBA die Datei kopieren
Karsten

Hallo,
ich möchte per VBA die Datei "Test.txt" von E: nach C: kopieren.
Kann mir jemand mit dem entspr. Code weiterhelfen?
Besten Dank.
Gruß
Karsten
25.11.2010 09:10:57
Thread-ID: 1188679
3 Beiträge
VBA - Druckbereich+Inhalt in vorh. Datei kopieren
Christian

Hallo liebe VBA-Gemeinde,
ich habe ein kleines VBA-Problem, bei dem ihr mir sicher helfen könnt.
Ich habe 2 vorhandene Dateien (Datei 1, mit Makros; Datei 2, ohne Makros) die sich im selben Ordner befinden.
Datei 1 enthält ein Arbeitsblatt in dem ein festes Formular hinterlegt ist,...
18.06.2013 09:32:36
Thread-ID: 1318218
11 Beiträge
Anzeige
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich habe das Problem, dass man in Pivottabellen aus irgendeinen Grund den Filter nicht teilweise sperren kann. Soll heißen ich habe eine Buchhaltungsdatei die sämtliche Rechnungen etc. enthält. Eine Spalte gibt die Abteilung an und eine die Unterabteilungen. Jeder Abteilungsleiter soll...
04.07.2013 14:09:38
Thread-ID: 1321094
2 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich war im Urlaub und jetzt liegt mein Beitrag schon im Archiv: Daher neuer Thread:
https://www.herber.de/forum/archiv/1320to1324/t1321094.htm
also ich habe versucht den Code auf meine Datei zu übertragen. An sich klappt es auch aber mitten drin bricht Excel ab mit dem Grund "T...
15.07.2013 10:41:35
Thread-ID: 1322445
7 Beiträge
Mit VBA eine Datei mit Notepad verschieben
RAP

Hallo,
ich habe per Excel eine Datei von Laufwerk x (unix) nach Laufwerk y (windows) zu kopieren. Wenn ich das manuell mit notepad mache, dann werden die Umlaute korrekt kodiert.
Wie kann ich im Hintergrund per VBA eine Datei im Editor öffnen und in einem anderen Laufwerk speichern?
15.07.2013 17:20:06
Thread-ID: 1322569
9 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

https://www.herber.de/forum/archiv/1320to1324/t1321094.htm
Hi,
wie gebe ich einen Ordner an. Bisher steht in meinem Code
strOrdner = ActiveWorkbook.Path 'Haupt-Ordner der Abteilungs-Dateien - ggf. anpassen !!!!
Wie kann ich einen von mir ausgewählten Ordner als Speicherort ang...
24.07.2013 08:21:38
Thread-ID: 1323778
3 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

https://www.herber.de/forum/archiv/1324to1328/t1324218.htm#1324218
Hi,
leider hatte ich die letzten Tage keine Zeit, da eine Kollegin im Urlaub war. Jetzt ist der Thread schon wieder im Archiv.
Foglendes: Namen wurden gefunden und ich habe sie gelöscht. Wo auch immer diese noch war...
12.08.2013 08:17:20
Thread-ID: 1326466
2 Beiträge
Kopieren&umbenennen von Dateien mit VBA
Dateien

Moin,
verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.
Dim sr As Scripting.FileSystemObject v0 = "c:\prog\testfiles" TNetzCopy "\\pc1\i1\*T ", v0, "1" und dann weiter mit der SUB Private Sub TNetzCopy(QuellPC As...
02.09.2013 08:49:00
Thread-ID: 1329147
2 Beiträge
VBA: Ordner filtern und danach kopieren
Alexis

Hallo Forum,
habe folgende Aufgabe bekommen:
Ich soll mit Microsoft Access und VBA einen Ordner von "a" nach "b" kopieren und bestimmte Unterordner dabei weglassen, da deren Inhalt zu groß und sie auch nicht von Relevanz sind (hauptsächlich Unterordner mit Bildern).
Meine ersten Ve...
12.08.2015 19:16:08
Thread-ID: 1442064
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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