.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
Anzeige