BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

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

VBA Script aus MS Excel in OOCalc nutzen

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
Harrycain
Beiträge: 1
Registriert: Di 24. Jan 2017, 11:01

VBA Script aus MS Excel in OOCalc nutzen

Beitrag von Harrycain » Di 24. Jan 2017, 14:15

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!

Antworten