Ich möchte mit der unten aufgeführten Applikation eine Excelfile speichern und drücken.
Die Funktion speichern sowie der Ausdruck der Datei funktionieren auch, allerdings lassen sich die von der Funktion erstellten Files nicht durch einen doppelklick öffnen. Starte ich Excel und gehe über Datei öffnen
Werden die erstellten Files geöffnet.
WAS habe ich falsch gemacht ???
P.S. Ich programmiere unter VB Version 6.0
cheers
Marcus
Public Sub PrintMontlyReport()
Dim fso As New FileSystemObject
Dim Tstream As TextStream
Dim i As Long
Dim Daten As Variant
i = 1
If PrintMonthyReportOK = False Then
Excel.Workbooks.Open ExcelMonthTempFile
Excel.ActiveWorkbook.Sheets("Tabelle1").Select
'Monatstextfile in Excelfile Speichern
Open TempMonth For Random As #4
Get #4, 1, Daten
Excel.Range("D18").Value = Daten 'Gesamt Betäubt
Get #4, 7, Daten
Excel.Range("D20").Value = Daten 'Davon gut betäubt
Get #4, 6, Daten
Excel.Range("D21").Value = Daten 'Davon schlecht betäubt
Get #4, 2, Daten
Excel.Range("D28").Value = Daten 'Schwellwertfehler Hirn
Get #4, 4, Daten
Excel.Range("D29").Value = Daten 'Schwellwertfehler Herz
Get #4, 3, Daten
Excel.Range("D31").Value = Daten 'Ladungsmengenfehler Hirn
Get #4, 5, Daten
Excel.Range("D32").Value = Daten 'Ladungsmengenfehler Herz
Close #4
Excel.ActiveWorkbook.SaveCopyAs FileName:=MonthPath & "M" & Date & ".xls"
Excel.ActiveWorkbook.Close SAVECHANGES:=False
Excel.Application.Quit
' File drucken
Excel.Workbooks.Open MonthPath & "M" & Date & ".xls"
Excel.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Excel.ActiveWorkbook.Close SAVECHANGES:=False
Excel.Application.Quit
MonthOld = AMonth
PrintMonthyReportOK = True
'Monatsauswertung Reset
SchwellwertfehlerHirnMonth = 0
LadungsmengenfehlerHirnMonth = 0
SchwellwertfehlerHerzMonth = 0
LadungsmengenfehlerHerzMonth = 0
GesamtSchlechtMonth = 0
GesamtGutMonth = 0
End If
End Sub