Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vorhandenes Excel File editieren

Forumthread: Vorhandenes Excel File editieren

Vorhandenes Excel File editieren
06.04.2005 10:58:54
harald
Hallo!
Ich möchte ein vorhandenes Excel File mittels einem vbscribt editieren!
Ich möchten den vorhandenen Wert in der Zelle A1 in dem Aktuellen Sheet überschreiben, jedoch alle anderen
Werte sollen erhalten bleiben! Und dann soll das File wieder gespeichert werden!
Mein Code macht das auch, jedoch nach dem Abspeichern ist nichts mehr im file enthalten!
Wieso?
Kann mir dabei jemand helfen?
'---------Einstellungen Formatierung------
'****************Excel file erstellen*****
Set Exsheet_new = WScript.GetObject("C:\Test1.xls")
Set Exsheet = Exsheet_new.Application
Exsheet.Visible = True
Exsheet.Range("A1").Value = "Hallo neuer Wert!!!"
Exsheet_new.saveAs "C:\ACTS\Export\test1.xls"
Exsheet.Quit
Set Exsheet = Nothing
wscript.quit
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorhandenes Excel File editieren
06.04.2005 22:41:47
Werner
Hallo,
kopiere den Code in eine Text Datei und Speicher die Datei unter Test.vbs!

'--- Code Start -----------------------------------------
Dim appExcel, strNeueDatei
strNeueDatei="C:\ACTS\Export\Test1.xls"
Set appExcel = WScript.CreateObject("Excel.Application")
With appExcel
.Workbooks.Open "C:\Test1.xls"
.Visible=True
.ActiveWorkbook.SaveCopyAs strNeueDatei
.Workbooks.Open strNeueDatei
.Range("A1")="Hallo neuer Wert!!!"
.ActiveWorkbook.Close True
.Quit
End With
Set appExcel=Nothing
WScript.Quit
'--- Code Ende -----------------------------------------

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige