vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Späte Bindung? 
Autor: Levis
Datum: 26.02.02 21:29

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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Späte Bindung?53Levis26.02.02 21:29
Re: Späte Bindung?283unbekannt26.02.02 21:35
aha....38Levis26.02.02 21:47
Keiner?36Levis27.02.02 18:34

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel