Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Elhamplo vom 01.07.2020, 08:56 Options
Datei automatisch in einen Ordner Speichern
Hallo,
ich brauch mal Eure Hilfe.
Ich hab ein Messprotokoll was ich mit Hilfe eines VBA Codes automatisch in ein Verzeichnis in den richtigen ordner Speicern möchte.
Der Speichername der Datei steht in der Zeile Q2. Das ganze soll so automatisiert werden, das beim ausführen des VBA-Codes, in das Verzeichnis D:\Alles\Messergebnis\ geschaut wird, ob es einen Ordner schon mit der bezeichnung aus Q2 gibt, wenn ja Speiher die Datei unter dem Namen von Q2 dort ab. Sollte noch kein Ordner mit dem Namen aus Q2 in dem Verzeichnis vorhanden sein, leg erst ein Ordner mit der Bezeichnug aus Q2 an und speicher dann die Datei unter dem Namen aus Q2 in den Ordner.
Vielen Dank für Eure Hilfe!!!!!
Gruß
Elhamplo
ich brauch mal Eure Hilfe.
Ich hab ein Messprotokoll was ich mit Hilfe eines VBA Codes automatisch in ein Verzeichnis in den richtigen ordner Speicern möchte.
Der Speichername der Datei steht in der Zeile Q2. Das ganze soll so automatisiert werden, das beim ausführen des VBA-Codes, in das Verzeichnis D:\Alles\Messergebnis\ geschaut wird, ob es einen Ordner schon mit der bezeichnung aus Q2 gibt, wenn ja Speiher die Datei unter dem Namen von Q2 dort ab. Sollte noch kein Ordner mit dem Namen aus Q2 in dem Verzeichnis vorhanden sein, leg erst ein Ordner mit der Bezeichnug aus Q2 an und speicher dann die Datei unter dem Namen aus Q2 in den Ordner.
Vielen Dank für Eure Hilfe!!!!!
Gruß
Elhamplo
Antwort 1 von Hajo_Zi vom 01.07.2020, 09:41 OptionsLösung
Hallo Nick,
hier ein Ansatz zu Ordner vorhanden
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub
Gruß hajo
hier ein Ansatz zu Ordner vorhanden
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub
Gruß hajo
Ähnliche Themen
Lotus Notes alle Anlagen automatisch in Ordner speichern
prof_silvermax 01.02.2007 - 176 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
