| Hallo! Ich verstehe das mit der Späten Bindung nicht.
 Ich habe den Verweis "Microsoft Excel 9.0 Object Library"
 auf mein Programm gesetzt.
 Auf meinem PC klappt es super. Aber wenn ich mein Programm
 auf einem PC installiere, auf dem eine ältere und neuere
 Excel-Version installiert ist, stürzt das Programm ab.
   Kann mir einer ganz genau erklären, wie ich das Problem
 umgehen kann?
 Vielen, vielen Dank!!!
 
 Mein Programmcode für die Excel Funktion:
 
 
Public Sub Datensatz_Export()
 Dim strDateiName As String
 Dim intMsgBox As Integer
 Dim oExl As Object
 Set oExl = CreateObject("Excel.Application")
 oExl.Visible = False
 
 [...]
 
 '------------------ MAKRO START ------------------
 Range("A1").Select
 Workbooks.OpenText FileName:=App.Path
 & "KALview_Export.txt", Origin:= _
 xlWindows, StartRow:=1, DataType:=xlDelimited,
 TextQualifier:=xlNone, _
 ConsecutiveDelimiter:=False, Tab:=False,
 Semicolon:=False, Comma:=False _
 , Space:=False, Other:=True, OtherChar:="~",
 FieldInfo:=Array(Array(1, 1 _
 ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5,
 1), Array(6, 1), Array(7, 1), Array(8, 1), _
 Array(9, 1), Array(10, 1), Array(11, 1), Array(12,
 1), Array(13, 1), Array(14, 1), Array(15 _
 , 1), Array(16, 1), Array(17, 1), Array(18, 1),
 Array(19, 1), Array(20, 1), Array(21, 1), _
 Array(22, 1), Array(23, 1), Array(24, 1), Array
 (25, 1), Array(26, 1), Array(27, 1), Array( _
 28, 1), Array(29, 1), Array(30, 1), Array(31, 1),
 Array(32, 1), Array(33, 1), Array(34, 1), _
 Array(35, 1), Array(36, 1), Array(37, 1), Array
 (38, 1), Array(39, 1), Array(40, 1), Array( _
 41, 1), Array(42, 1), Array(43, 1), Array(44, 1),
 Array(45, 1), Array(46, 1), Array(47, 1), _
 Array(48, 1), Array(49, 1), Array(50, 1), Array
 (51, 1))
 Rows("1:1").Select
 Selection.Font.Bold = True
 Rows("2:2").Select
 ActiveWindow.FreezePanes = True
 Cells.Select
 Cells.EntireColumn.AutoFit
 Range("A1").Select
 'Workbook speichern
 ActiveWorkbook.SaveAs FileName:=strDateiName,
 FileFormat:=xlNormal, Password:="", WriteResPassword:="",
 ReadOnlyRecommended:=False, CreateBackup:=False
 '------------------ MAKRO ENDE -------------------
 
 'Excel anzeigen
 oExl.Visible = True
 
 [...]
 End Sub
 
 |