Kangaroo schrieb: Übrigens: Using brauchen wir eigentlich nur für nicht Objekte... Zu dieser Aussage verweise ich zu ebenfalls deiner: YUCK!!! Using verwendet man, um den Speicher nach der Verwendung eines Objekts wieder freizugeben (Dispose), für alle Objekte Natürlich kannst du so einen unnötigen Riesencode nicht nehmen.. du überprüfst zuerst, ob der Ordner schon vorhanden ist. Wenn nicht wird er erstellt: If ( "C:\Ordner\") = False Then ( "C:\Ordner\") End If Dann musst du deine Text-Datei erstellen. Vba ordner erstellen falls nicht vorhanden. Dazu gibt es mehrere Möglichkeiten wie StringBuilder, oder einfach alle einzelnen Strings manuell aneinanderketten. Für die Erklärung verwende ich letztere Variante: Dim inhalt As String = & vbCrLf & & vbCrLf & & vbCrLf & Diesen Text musst du dann nur noch abspeichern in dem Ordner, der vorhin erstellt wurde, falls er noch nicht existierte.. ( "C:\Ordner\", inhalt) Beep! schrieb: Na was Du nicht sagst, aber es hat schon seinen Grund dass ich "eigentlich" geschrieben habe: es ist nicht falsch aber bewirkt für Managed Objekte das Gleiche wie Dispose.
Dennoch, sollte ich mal jemanden brauche um mir eine erklären, komme ich gerne wieder auf Dich zurück. danke vielmals das ihr einem Amateur wie mir hilft 1 Benutzer hat hier geschrieben Gast (9) Sonstige Problemstellungen »
VB-Paradise 2. 0 – Die große Visual-Basic- und » Forum » Programmieren » Sonstige Problemstellungen » Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag ( 22. Januar 2008, 16:46) ist von tobikubi. Was ist hier an diesem code falsch? Dim oFSO As New System. Object If Not lderExists( & "\config") Then ' Nein! Jetzt erstellen... If eateFolder( & "\config") Then ' Ordner wurde korrekt erstellt! End If versuchs mal so: If Not ( & "\config") Then Try eateDirectory( & "\config") Catch ex As Exception ' Ordner wurde nich erstellt End Try dein Code kann deswegen nicht funktionieren, weil ein allgemeines Objekt, das alles sein kann, darstellt. Ich glaube, das hast du aus VBS, oder? VBA-Methoden: Eine Datei neu erstellen und speichern als – clevercalcul. So kann man das auf jeden Fall in nicht machen. 2 Benutzer haben hier geschrieben Gast (2) Lupus (1) Sonstige Problemstellungen »
Datei unter einem anderen Namen speichern Es kommt immer wieder vor, dass eine Excel-Datei unter einem anderen Namen gespeichert und dann weiter bearbeitet werden soll. In diesem Beispiel erfährst du, wie das mit der Datei "" geht. Erstelle zunächst eine Datei mit diesem Namen. Neue Datei mit gleicher Extension Die neue Datei soll "" heißen. Nach dem Speichern hast du dann zwei statt bisher eine Datei. Sub SpeichernAls1() Workbooks("") Filename:="C:\Excel\" MsgBox("Datei unter neuem Namen gespeichert") Neue Datei mit anderer Extension Die neue Datei soll "" heißen. Es muss also zusätzlich auch noch die Extension von "xlsx" auf "xlsm" geändert werden. Ordner erstellen/Speicherort - Sonstige Problemstellungen - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Eine Übersicht zu den Dateiformaten findest du z. B. hier: Das Format 52 steht für eine Excel-Arbeitsmappe mit Makros. Sub SpeichernAls2() Workbooks("") Filename:="C:\Excel \, FileFormat:=52 Datei öffnen und mit anderer Extension speichern Du willst zuerst die Datei "" öffnen, sie dann unter dem Namen "" speichern und anschließend schließen.