.txt datei gleichzeitig in erstellten or
27.01.2023 13:54:27
Olaf
ich habe hier schon einen ModulCode zum erstellen eines Ordners mit Namen aus einer Texzbox. Nun möchte ich gerne im selben Zuge eine Textdatei erstellen mit dem Namen "Notizen". Dazu habe ich
Dim FSO As New FileSystemObject
und
Set FSO = CreateObject("Scripting.FileSystemObject") Set DateiZumErstellen = FSO.CreateTextFile("C:\Geschäft\Lieferanten\" & .Range("D" & lRowsCount) \ Notizen.txt)in den funktionierenden Code eingegeben. Es erscheinen keine Fehler, aber es erschein auch nicht die Textdatei. Hat jemand eine Idee oder einen Hinweis?
Gruß Olaf
Public Sub Ordner1_anlegen() Dim FSO As New FileSystemObject Dim lRowsCount& For lRowsCount = 2 To 101 If Worksheets("Lieferanten").Cells(lRowsCount, 4) = "" Then Exit Sub With Worksheets("Lieferanten") If Dir("C:\Geschäft\Lieferanten\" & .Range("D" & lRowsCount), vbDirectory) = "" Then MkDir ("C:\Geschäft\Lieferanten\" & .Range("D" & lRowsCount)) Set FSO = CreateObject("Scripting.FileSystemObject") Set DateiZumErstellen = FSO.CreateTextFile("C:\Geschäft\Lieferanten\" & .Range("D" & lRowsCount) \ Notizen.txt) ActiveSheet.Hyperlinks.Add Anchor:=.Range("A" & lRowsCount), _ Address:="C:\Geschäft\Lieferanten\" & .Range("D" & lRowsCount), TextToDisplay:="1", ScreenTip:="Hyperlink" End If End With Next lRowsCount End Sub