Hallo zusammen,
ich brauche mal eure Hilfe.
Mit einiger Hilfe habe ich ein Skript zusammengestellt weches mir erlaubt aus einer Excel-Liste aus bestimmten zellen im Dokument, Ordner und Unterordner anzulegen. Da viele meiner kollegen mit OO arbeiten, dachte ich mir ich mache das lieber mit OO Calc.
Aus div. Foren habe ich gelesen dases eine Kompatibelität gibt.
Was mache ich flasch?
Sub VerzAnleg()
Dim strMain As String
Dim i As Long
strMain = Cells(1, 6)
On Error GoTo knPfad
ChDir (strMain)
i = 8
Do While Cells(i, 2) <> ""
On Error Resume Next
MkDir (strMain & Cells(i, 6))
MkDir (strMain & Cells(i, 6) & "\" & Cells(i, 7))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 7), Address:= _
strMain & Cells(i, 6) & "\" & Cells(i, 7)
i = i + 1
Loop
Exit Sub
knPfad:
MsgBox strMain & " gibt es nicht"
End Sub
Für hilfe bin ich dankbar!
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗