Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBS Script Excel speichern

VBS Script Excel speichern
chris
Hallo ich habe hier vor einiger zeit von Tino einen guten code bekommen.
Um eine Datei zu öffnen und zwar nur 1 mal am Tag.
Wie bekomme ich es mit dem Code umten noch hin das die Excel Datei wenn Sie geöffnet wird automatisch gespeichert wird so das Sie am gleihen tag nicht noch einmal geöffnet wird.!
Ich habe es mit dieser zeile versucht: XL_App.save true
Aber das geht nicht es kommt ein fehler von VBScript.
Würde mich freuen wenn mir jemand heöfen könnte.
Danke im voraus !
gruß Chris

Dim XL_App, FSO, F1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F1 = FSO.GetFile("G:\Ordner\Mappe1.xls")
If CLng(F1.DateLastAccessed) 

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBS Script Excel speichern
09.09.2010 21:06:59
JogyB
Hallo Chris,
ungestetet:
XL_APP.Workbooks("Mappe1.xls").Close True
Dateiname muss natürlich passen. Oder Du führst eine weiter Variable ein, der Du das Workbook zuweist, also z.B.
Set myWbk = XL_App.Workbooks.Open ("G:\Ordner\Mappe1.xls")
Das kannst Du dann mit myWbk.Close True speichern und schliessen. Hat den Vorteil, dass nicht aus Versehen eine andere Datei mit demselben Namen (die vor Ausführung des Scripts geöffnet war) geschlossen wird.
Gruß, Jogy
Anzeige
AW: VBS Script Excel speichern
09.09.2010 21:10:59
chris
Hallo Danke.
Klappt aber nicht.
Bekomme einen Script fehler ?
Hier mein Code:

Dim XL_App, FSO, F1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F1 = FSO.GetFile("D:\Chris.xls")
'msgbox CLng(F1.DateLastAccessed)
'msgbox CLng(Date)
If CLng(F1.DateLastAccessed) 

Anzeige
AW: VBS Script Excel speichern
09.09.2010 23:40:34
JogyB
Hallo Chris,
XL_App.Workbooks("Chris.xls").Close True
Gruß, Jogy
AW: VBS Script Excel speichern
09.09.2010 21:25:56
chris
Hey Jogy,
habs mit der weiteren Variable hinbekommen.
Danke und schönen Abend !
;
Anzeige
Anzeige

Infobox / Tutorial

VBS Script zum automatischen Speichern von Excel-Dateien


Schritt-für-Schritt-Anleitung

Um ein VBS Script in Excel zu erstellen, das eine Excel-Datei automatisch speichert, folge diesen Schritten:

  1. Öffne den Windows-Editor oder ein anderes Textbearbeitungsprogramm.

  2. Füge den folgenden Code ein:

    Dim XL_App, FSO, F1
    Set XL_App = CreateObject("Excel.Application")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set F1 = FSO.GetFile("G:\Ordner\Mappe1.xls")
    
    If CLng(F1.DateLastAccessed) < CLng(Date) Then
        Set myWbk = XL_App.Workbooks.Open("G:\Ordner\Mappe1.xls")
        ' Hier kannst du deine Excel-Operationen durchführen
        myWbk.Save
        myWbk.Close True
    End If
    
    XL_App.Quit
  3. Speichere die Datei mit der Endung .vbs, z.B. meinscript.vbs.

  4. Führe das VBS Script aus, indem du darauf doppelklickst.


Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden"

    • Überprüfe den Dateipfad in deinem Code. Stelle sicher, dass die Datei tatsächlich an dem angegebenen Ort existiert.
  • Fehler: "Script-Fehler"

    • Achte darauf, dass der Name der Excel-Datei korrekt ist. Eventuell ist der Dateiname oder die Erweiterung falsch.
  • Fehler: Excel startet nicht

    • Stelle sicher, dass Excel auf deinem Computer installiert ist und dass der Excel-Prozess nicht bereits im Hintergrund läuft.

Alternative Methoden

Falls du kein VBS Script verwenden möchtest, gibt es auch andere Möglichkeiten, Excel-Dateien zu automatisieren:

  1. Excel-Makros: Du kannst in Excel eigene Makros erstellen, die ähnliche Aufgaben durchführen können. Diese sind direkt in der Excel-Oberfläche verfügbar.
  2. Power Automate (früher Microsoft Flow): Mit dieser Plattform kannst du automatisierte Workflows erstellen, die Excel in Kombination mit anderen Anwendungen nutzen.

Praktische Beispiele

Hier ist ein Beispiel für ein VBS Script, das eine Excel-Datei öffnet, einige Daten bearbeitet und anschließend speichert:

Dim XL_App, myWbk
Set XL_App = CreateObject("Excel.Application")
XL_App.Visible = True
Set myWbk = XL_App.Workbooks.Open("D:\Chris.xls")

' Füge hier deine Datenbearbeitung hinzu
myWbk.Worksheets(1).Cells(1, 1).Value = "Hallo Welt"

myWbk.Save
myWbk.Close True
XL_App.Quit

Dieses Script öffnet die Datei Chris.xls, fügt in die Zelle A1 den Text "Hallo Welt" ein und speichert die Änderungen.


Tipps für Profis

  • Verwende Fehlerbehandlung: Implementiere On Error Resume Next in deinem VBS Script, um Fehler abzufangen und besser zu steuern.
  • Teste dein Skript: Teste das Script immer in einer Kopie deiner Excel-Datei, um Datenverlust zu vermeiden.
  • Verwende Kommentare: Dokumentiere deinen Code mit Kommentaren, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Was ist ein VBS Script?
Ein VBS Script ist eine Datei, die in der Programmiersprache Visual Basic Scripting Edition geschrieben ist und häufig zur Automatisierung von Aufgaben in Windows verwendet wird.

2. Wie kann ich ein VBS Script in Excel ausführen?
Du kannst ein VBS Script erstellen und es einfach durch Doppelklick auf die .vbs Datei ausführen. Stelle sicher, dass Excel auf deinem Computer installiert ist.

3. Wo kann ich mehr über VBScript in Excel lernen?
Du kannst verschiedene Online-Ressourcen und Tutorials nutzen, um mehr über VBScript in Excel zu erfahren. Ein gutes Startpunkt wäre ein vbscript tutorial for excel.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige