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

Automatisch überschreiben

Forumthread: Automatisch überschreiben

Automatisch überschreiben
Steve
Guten Morgen,
Wie kann ich das Fenster das fragt ob die dateien überschrieben werden sollen unterdrücken? oder das abbrechen oder das nein verwenden um den Code zu beenden?
        Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
Set FSO = CreateObject("scripting.filesystemobject")
Besten Dank Steve
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Automatisch überschreiben
07.04.2012 12:38:06
Hajo_Zi
Hallo Steve,
Application.DisplayAlerts = False ‚ Mitteilungen
nicht vergessen wieder einzuschalten.

AW: Automatisch überschreiben
07.04.2012 12:50:31
Steve
Hallo Hajo,
Danke, aber es funktioniert irgendwie nicht.
Sobald der code bei "oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items" ist, kommt das fenster.
Grüsse Steve
Anzeige
AW: Automatisch überschreiben
07.04.2012 12:54:16
Hajo_Zi
Hallo Steve,
ich kann das nicht testen. Da der Code nicht laufähig ist.
Gruß Hajo
AW: Automatisch überschreiben
07.04.2012 13:56:10
Hajo_Zi
Hallo Steve,
Du möchtest keine lauffähigen Code posten. Dann mache die rabiate Methode lösche die Datei vorher. dazu sollte man die Fehlerbehandlung aus- und einschalten.
Gruß Hajo
Anzeige
AW: Automatisch überschreiben
07.04.2012 21:09:01
Steve
Hallo Hajo,
Der code ist nur dieser:

Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
MultiSelect:=False)
FileNameFolder = ThisWorkbook.Path
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).copyhere oApp.Namespace(Fname).Items
Er läuft auch sehr gut, nur habe ich das nachfragen noch nicht weg gebracht, ob er überschreiben soll, wen das verzeichniss nicht leer ist.
Ich dachte mir auch schon ob ich das verzeichniss vorher löschen soll.
Grüsse Steve
Anzeige
AW: Automatisch überschreiben
07.04.2012 21:25:05
Josef

Hallo Steve,
probiere es so.
Sub kopieren()
  Dim Fname As String, FileNameFolder As String, NewName As String
  Dim objFSO As Object, objFile As Object
  
  Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
    MultiSelect:=False)
  FileNameFolder = ThisWorkbook.Path
  
  NewName = FileNameFolder & Mid(Fname, InStrRev(Fname, "\"))
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  Set objFile = objFSO.GetFile(Fname)
  
  objFile.Copy NewName, True
  
  Set objFSO = Nothing
End Sub



« Gruß Sepp »

Anzeige
;

Forumthreads zu verwandten Themen

Autom. Datei erzeugen und Inhalt hineinschreiben..
Helmut

Liebe Mitglieder,
ich habe folgende knifflige Situation manuell zu tätigen:
In einem Ordner befinden sich x PDF-Dokumente (z.B. abcde.pdf, dfg45.pdf, usw.). Zu jedem dieser Dokumente muss ich eine txt-Datei anlegen, die einen Pfad enthält und folgendermaßen aussieht, also z.B. abcde.txt...
05.09.2008 08:59:57
Thread-ID: 1007580
5 Beiträge
Cell.Formula verändern und zurückschreiben
Andreas

Hallo Herber Fans,
wie kann ich bei einer ausgelesenen SUM formula im Code den Bezug um eine Zeile verändern?
es wird ausgelesen: =SUM(L22:L22)
und soll dann als: =SUM(L22:L23)
wieder zurück in die Zelle geschrieben werden? Habe schon mit RIGHT und Stellen auslesen experimentier...
09.12.2008 15:21:00
Thread-ID: 1031440
12 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Anzeige
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
Groß- und Kleinschreibung für Variablen
Jürgen

Hallo Excel Profis.
Für eine Datei werden Rechte in Abhängigkeit des Benutzernamens vergeben.
Den Benutzernamen (Variable "Benutzer") liest daß Programm folgendermaßen:
Benutzer = Environ("Username")
Das funktioniert auch soweit einwandfrei.
Die Rechte werden dann über Selec...
29.07.2009 11:13:22
Thread-ID: 1092183
4 Beiträge
Kombinationsfeld Überschreiben sperren
Jordan

Hallo zusammen,
ich habe in einem UserForm verschiedene Kombinationsfelder, die ich mit vorbestimmten Inhalten bestückt habe! Nun kann der Nutzer aber leider den vorbelegten Text überschreiben und beim Klick auf "OK" wird dieser dann auch übertragen.
Kann ich dieses Überschreiben des Ko...
29.07.2009 15:34:27
Thread-ID: 1092303
3 Beiträge
Makroname in Zelle automatisch schreiben
Nibio

Hallo Excel-Profis,
Gibt es ein Befehl dass der Makroname in eine bestimmte Zelle schreibt (z.B in Zelle X1)?
Da mein deutsch leider nicht so gut ist (da ich keine deutsche Schule besucht habe), versuche ich mit ein Beispiel mi besser auszudrucken:
Sub Test() ' Makro2 Makro ' Makro...
18.08.2009 13:01:45
Thread-ID: 1096729
15 Beiträge
Programm neu schreiben
Ludwig

Hallo Experten
Ich gebe auf den Fehler zu suchen und möchte neu, mit blankem Excel-Sheet anfangen!
Wie mache ich das am komfortabelsten. In der Originaldatei sind natürlich viele Formate, Zellnamen, VBA-Code etc. vorhanden.
Mit copy/paste werde ich immer gefragt "...Namen übernehmen...
04.09.2009 09:24:43
Thread-ID: 1100543
2 Beiträge
Summenformel auf VBA umschreiben
Martin

Hallo,
folgende Formel möchte ich gerne für VBA schreiben:
=SUMMENPRODUKT((Geschlecht=A2)*(Endzeit<B2))+1
So geht es mit VBA:
MsgBox [SumProduct((Geschlecht = A2) * (Endzeit MsgBox Evaluate("SumProduct((Geschlecht = A2) * (Endzeit ("Geschlecht" und "Endzeit" sind benannte...
07.10.2009 19:33:12
Thread-ID: 1107979
11 Beiträge
Gros- und Kleinbuchstaben
Erich

Hallo,
vielleicht kann mir jemand helfen. In einer Tabelle gebe ich über ein UF Namen in TextBox1 ein. Die Namen bestehen aus Nach- und Vorname. Alle in einer Zelle.
".Range("A" & lLetzte).Value = UCase(Trim(TextBox1.Value))".
Der Nachname, sowie der erste Buchstabe im Vornamen...
18.12.2009 12:44:13
Thread-ID: 1124874
21 Beiträge
Zelle per Textbox aus Userform überschreiben
eric

Hallo,
wenn Inhalt der Textbox aus Userform in einer Tabelle vorhanden ist, dann soll die Zeile gelöscht werden ?
DANKE ERIC
16.02.2010 19:27:06
Thread-ID: 1139027
2 Beiträge
Aktuelle Zelle 'gross' schreiben
Tommi

Hallöchen,
gibt es eigentlich eine einfache Möglichkeit die aktuelle Zelle komplett grossgeschrieben zu bekommen?
Wenn also Blafasel drin steht, soll nach dem Ausführen des Makros BLAFASEL drin stehen.
Und noch besser wäre es natürlich, wenn man nicht 'auf eine Zelle klicken - dann...
28.03.2010 13:57:08
Thread-ID: 1148919
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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