Problem mit Range
22.10.2007 13:22:00
Meyer
erstmal vorweg, ich habe von VBA kaum Ahnung und mir ein Script zusammengeklaubt um eine Art Ausgangsbuch damit zu erstellen.
Das Blatt soll zur Archivierung einmal abends automatisch geöffnet, gedruckt, die Inhalte der Zellen für die Eingabe sollen nach dem Druck entfernt, die geänderte Datei anschließend gespeichert (überschrieben) und die Anwendung beendet werden.
Start des Scripts als geplanter Task
und dann habe ich das mal hiermit versucht:
dim ex
dim datei
dim blatt
' Parameter prüfen
if WScript.Arguments.count > 0 then
datei = WScript.Arguments(0)
else
' bei Fehler, eine Meldung und beenden
msgbox "Es wurde keine Datei angegeben!"
WScript.Quit 1
end if
' Verbindung zu Excel herstellen
Set ex = GetObject ( datei )
' alle einzelnen Arbeitsblätter ausdrucken
for each blatt in ex.WorkSheets
blatt.PrintOut
Range ("A4:D35").Select
ClearContents
next
Sub beenden()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
' = statt True schreibe False das verhindert die Sicherheitsabfrage
End Sub
Problem: Bei Range kommt immer ein Fehler "Typen unverträglich"
Die zu bereinigenden Zellen sind zum Teil schon leer (täglich unterschiedliche viele Einträge (Ausgänge))
Weiß jemand Rat?
Grüße, Frank