Hallo. Folgendes Problem: Ich erstelle und speichere eine Excel-Datei von Powerpoint aus. Beim späteren manuellen Öffnen kommt folgende Fehlermeldung in Excel 2007: "Sie versuchen eine Datei zu öffnen, [Dateiname], deren Format von dem in der Dateierweiterung angegebenen abweicht. Stellen Sie sicher, dass die Datei nicht beschädigt ist ... Möchten Sie die Datei jetzt öffnen?" Excel-Versionen unter 2007 zeigen dann nur Murks an, ab 2007 isdt das Betrachten kein Problem.
Code:
'globale Variablen
Dim objExcel As Object 'zum Excel starten
Dim xlWS As Object 'neues Excel worksheet(die individuelle Excel Datei)
Dim xlVP As Object 'neues Excel worksheet(für alleVP.xls)
Sub startexcel()
Set objExcel = CreateObject("Excel.Application") 'öffnet das Programm Excel
objExcel.Visible = False 'Excel-Fenster unsichtbar machen
Set xlWS = objExcel.Workbooks.Add 'fügt neues Excel-Arbeitsblatt hinzu
'zwischenspeichern der 1. Excel-Datei
xlWS.Application.DisplayAlerts = False
xlWS.SaveAs "E:\3.xls"
xlWS.Application.DisplayAlerts = True
End Sub
Was übersehe ich hier, wo ist der Fehler? Vielen Dank schonmal im Voraus.
|