Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Excel Problem
Autor: Levis
Datum: 24.02.02 13:14
Hi! Mit dieser Prozdur exportiere ich eine vorher gefüllte Textdatei nach Excel. Public Sub Datensatz_Export() Dim strDateiName As String Dim oExl As New Excel.Application 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)) ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 1 Rows("1:1").Select Selection.Font.Bold = True Cells.Select Cells.EntireColumn.AutoFit Range("A1").Select '*.xls Speichern strDateiName = InputBox("Bitte geben Sie der Excel-Datei bitte einen Dateinamen:", "KALview", "KALview") strDateiName = strDateiName & ".xls" ActiveWorkbook.SaveAs FileName:=App.Path & "\" & strDateiName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False 'Excel schließen oExl.Quit Set oExl = Nothing End Sub Warum muss ich vorher mein Programm schließen, damit ich die *.xls-Datei starten kann? Also das Starten geht zwar, aber es wird kein Inhalt angezeigt. Es geht erst, wenn ich mein Programm beendet habe.

Excel Problem

55

Levis

24.02.02 13:14

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übersicht

Suchen