Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VB Script erzeugt temporäres Excelfile

VB Script erzeugt temporäres Excelfile
hteufl
Hallo Specialists!
Ich habe ein Problem, bei dem ich schon Tage am "tüfteln" bin. Ich erstelle auf unserem ERP System eine CSV Datei welche mit einem VB-Script im Excel aufbereitet wird. Das Script funktioniert soweit so gut. Nur wenn ich mit SAVEAS im Script das Workbook speichere, erstellt mir Excel eine zusätzlich zum Originalfile eine ~$xxx.xlsx Datei. Die Datei enthält so weit ich das sehe nur den Benutzernamen. Da ich schon langsam am Verzweifeln bin suche ich hier im Forum Hilfe.
Danke für Eure Antworten im voraus
Hermann

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

Betreff
Benutzer
Anzeige
AW: VB Script erzeugt temporäres Excelfile
06.10.2009 07:56:45
Hajo_Zi
Hallo Herman,
wird die Datei nicht gelöscht, wenn Du die Datei schliesst?

AW: VB Script erzeugt temporäres Excelfile
06.10.2009 08:19:13
hteufl
Hallo Hajo_Zi!
Danke für die rasche Antwort. Im VB-Script wird die Exceltabelle entweder als xlsx oder xls gespeichert. Danach wird die CSV Datei gelöscht (funktioniert tadellos). Danach wird das Script beendet (bitte siehe Codeteil!) die Exceltabelle bleibt aber offen. Auch wenn das Workbook geschlossen wird bleibt diese ~$... Datei im Verzeichnis.
If objXL.Version = "12.0" then 'Office 2007
name = objFSO.GetBaseName(objFile) + ".xlsx"
' als XLSX sichern
FileNM = path + name
objWb.SaveAs FileNM
Else ' andere Office Versionen
name = objFSO.GetBaseName(objFile) + ".xls"
objWb.SaveAs Filename
End if
'CSV Datei löschen
objFile.Delete
'---------------------------------------
Set ObjXL = Nothing
wScript.Quit()
Muss ich das Script irgendwie anders beenden? Oder muss ich Excel irgendwie vor dem Scriptende schließen?
Danke
Hermann
Anzeige
Excel schließen! oT
06.10.2009 14:58:54
F1
oT
AW: Excel schließen! oT
06.10.2009 16:27:46
hteufl
Hallo F1!
Ich habe jetzt auch die Exceltabelle vor dem Ende des Scripts geschlossen - leider auch da bleibt die temporäre ~$... Datei bestehen. Anbei Script:
'---------------------------------------------------------------------------------
'CSV Datei als XLS Datei speichern und CSV Datei löschen
'---------------------------------------------------------------------------------
If objXL.Version = "12.0" then ' Office 2007
name = objFSO.GetBaseName(objFile) + ".xlsx"
FileNM = path + name
objWb.SaveAs FileNM
Else ' andere Office Versionen
name = objFSO.GetBaseName(objFile) + ".xls"
objWb.SaveAs Filename
End if
'Excel Tabelle schließen
objXL.workbooks.close
objXL.Quit
'CSV Datei löschen
objFile.Delete
'---------------------------------------------------------------------------------
Set ObjXL = Nothing
wScript.Quit()
Habt ihr vielleicht noch eine Idee?
Danke
Hermann
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige