Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mein Code
Autor: Levis
Datum: 25.02.02 20:58
Ich benutze folgenden Code (nur das wichtigste...), um eine Textdatei nach Excel zu exportieren. Public Sub Datensatz_Export() Dim strDateiName As String Dim intMsgBox As Integer Dim oExl As Object Set oExl = New Excel.Application oExl.Visible = False '------------------ MAKRO START ------------------ 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 ActiveWorkbook.SaveAs FileName:=strDateiName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False '------------------ MAKRO ENDE ----------------- 'Excel beenden Excel.Application.ActiveWorkbook.Saved = True oExl.Quit Set oExl = Nothing End Sub -------------- Wo soll ich den Errorhandler denn einbauen? Erst beim Excel-Funktionsaufruf, oder gleich beim Programmstart? Vielen Dank für Deine tolle und schnelle Hilfe! - Sowas gibts nur hier

Excel	127	Levis	25.02.02 17:50
Re: Excel	284	unbekannt	25.02.02 18:57
Welche Versionen und Problem?	58	Levis	25.02.02 19:56
Re: Welche Versionen und Problem?	258	unbekannt	25.02.02 20:12
Re: Welche Versionen und Problem?	44	Levis	25.02.02 20:20
Re: Welche Versionen und Problem?	249	unbekannt	25.02.02 20:48
Mein Code	56	Levis	25.02.02 20:58

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