[VBScript] Ordner erstellen in Excel

[hoogla]

Hallo Zusammen!

Ich habe folgende Aufgabe:

Eine Exceltabelle soll per script in eine Html-Datei gewandelt werden. soweit-so gut, das kriege ich auch hin-

Allerdings soll diese Datei stets als "index.html" gespeichert werden, und soll auch immer in einem Verzeichnis gespeichert werden, dessen namen sich in der Excel-Tabelle in Zelle A1 befindet. Ausserdem soll vor jedem Speichervorgang überprüft werden, ob dieser Folder bereits existiert, wenn ja, soll er durch eine neue Version überschrieben werden, wenn nein, soll er erstellt werden, so dass die Htmldatei in Ihn geschrieben werden kann.. Eigentlich ganz einfach, nur habe ich keine Ahnung von VB...

Hier ist mal mein Versucher tut es nicht)

ub speichern_unter_Html()
Dim str As String

Const Lw = "E:\"
Const Name = "index"
str = Range("A1:A1")
ChDrive Lw
ChDir "\"
If objekt.Folderexists(str) = True Then GoTo save Else GoTo create:


create:

MkDir str
ChDir str

GoTo save:

save:

ChDir "\"
ChDir str

ActiveWorkbook.SaveAs Filename:=Index, FileFormat:=xlHtml
End Sub

Gruss
Hoogla

 

[Arnd]

Re: Hilfe bei VBScript

Hallo hoogla,

sub speichern_unter_Html()
Dim str As String

Const Lw = "E:\"
Const Name = "index"
str = Range("A1:A1")
ChDrive Lw
ChDir "\"

If objekt.Folderexists(str) = False then

MkDir str

endif

ChDir "\"
ChDir str

ActiveWorkbook.SaveAs Filename:=Index, FileFormat:=xlHtml

End Sub

Nur eine kleine Verbesserung. Aber wenn ich "goto" sehe. Da musste ich das loswerden.

MfG

Arnd

 

[hoogla]

Re: Hilfe bei VBScript

Merci dafür!

Er sagt mir beim compilen, das bei dieser Zeile

If objekt.Folderexists(str) = False Then

ein objekt deklariert wurde... wie mache ich das??

gruss

 

[Toaster]

Re: Hilfe bei VBScript

sub speichern_unter_Html()
Dim objekt
Dim str As String
Set objekt= CreateObject("Scripting.FileSystemObject")

Const Lw = "E:\"
Const Name = "index"
str = Range("A1:A1")
ChDrive Lw
ChDir "\"

If objekt.Folderexists(str) = False then

MkDir str

endif

ChDir "\"
ChDir str

ActiveWorkbook.SaveAs Filename:=Index, FileFormat:=xlHtml

End Sub

alternativ

On Error Resume Next
ChDir "c:\test"
MkDir "C:\test"
On Error GoTo 0
ChDir "c:\test"

 

[hoogla]

juppiee!!!!!
Vielen Dank!!"

Frohes Hasenfest