title image


Smiley Excel im Backend speichern ohne Meldung von Excel "Wollen Sie speichern?"
Ich öffne eine Excel-Datei, befülle die Datei mit Daten und speicher die Datei ohne Meldung mit dieser Zeile



xlApp.DisplayAlerts = False



Hier der Aufruf, das Füllen und Speichern in Kurzform



'// Verbindung zu EXCEL aufbauen

Dim xlApp As Variant

Dim xlWB As Variant

Dim xlSheet As Variant



'Get the Excel object from a file.

Set xlApp = CreateObject("Excel.application")



xlApp.Visible = False '// EXCEL nicht als Anwendung anzeigen lassen

xlApp.Workbooks.Open xlFilename '// EXCEL Datei öffnen

Set xlWB = xlApp.ActiveWorkbook

Set xlSheet = xlWB.Worksheets(1)



cols = 1

row = 1 '// Beide Zählvariablen werden in jedem Fall mit 1 initialisiert



' Erste Zeile mit den Überschriften füllen

xlsheet.Cells(row,cols).Value = "Firmenname"



xlApp.DisplayAlerts = False

Call xlWB.SaveAs(xlFilename)

Call xlWB.Close

xlApp.Quit

Set xlApp = Nothing

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: