Hm... hab wohl mal wieder Unklarheiten verbreitet. sy.
Also ich habe hier einen Stücklisten Export den ich für mich umgeschrieben habe.
Code:
oFileName = oPartNumber & ".xls" ' '& oDescription Name der Ausgabe datei (excel)"
Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oXLSFileName = oPath & "\" & oFileName 'Name und Pfad der Ausgabe datei (excel)
If Dir(oXLSFileName) <> "" Then
Dim byWert As Byte
byWert = MsgBox("Stückliste ist schon vorhanden." & vbCrLf & "Überschreiben?", 1, "Stückliste existiert")
If byWert = 1 Then
On Error Resume Next
Kill (oPath & "\" & oFileName)
If Err Then
MsgBox ("Datei " & " " & oPath & "\" & oFileName & _
vbCrLf & "ist geöffnet. Schließen Sie zuerst dir Datei")
End
End If
ElseIf byWert = 2 Then
'Exit Sub
End
End If
End If
'oName = Name des Excel- Sheets
oName = "test"
'oStart = Start- Zelle
oStart = "A7"
'oTemplate = Pfad zum xls- Template
oTemplate = "C:\Temp\template.xls"
So funtioniert es.
Wenn ich jetzt aber .xls durch .xlsx ersetze bekomme ich die Excel Datei nicht mehr geöffnet.
Edit:
Dim oExl As New Excel.Application
On Error Resume Next
Set oExl = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
On Error Resume Next
Set oExl = CreateObject("Excel.Application")
If Err.Number Then
Err.Clear
MsgBox "Kann Excel nicht öffnen."
Exit Sub
End If
End If
On Error Resume Next
oExl.Workbooks.Open (oXLSFileName)
If Err.Number Then
Err.Clear
Call oDoc.ActiveSheet.PartsLists.Item(1).Export(oXLSFileName, kMicrosoftExcel, oOptions)
oExl.Workbooks.Open (oXLSFileName)
Else
Dim oExlSheet As Excel.WorkSheet
oExl.ActiveWorkbook.Close (True)
Call oDoc.ActiveSheet.PartsLists.Item(1).Export(oXLSFileName, kMicrosoftExcel, oOptions)
oExl.Workbooks.Open (oXLSFileName)
End If
------------------
Gruß
Klaus
[Diese Nachricht wurde von Rodario7 am 25. Mrz. 2013 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP