[VBScript] Ordner erstellen in Excel

hoogla

Newbie
Dabei seit
März 2005
Beiträge
3
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 Versuch:(er 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

Lieutenant
Dabei seit
Jan. 2005
Beiträge
926
Re: Hilfe bei VBScript

Hallo hoogla,

Code:
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

Newbie
Ersteller dieses Themas
Dabei seit
März 2005
Beiträge
3
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

Lt. Commander
Dabei seit
Apr. 2001
Beiträge
1.266
Re: Hilfe bei VBScript

Code:
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
Code:
On Error Resume Next
ChDir "c:\test"
MkDir "C:\test"
On Error GoTo 0
ChDir "c:\test"
 
Top