Überarbeiten eines Mokros

Sub Absolut_Datenimport() ' Absolut_Datenimport Makro ' Makro am 04.10.2007 von Labor BM1 aufgezeichnet Dim Verzeichnis As Variant Dim DateiName1 As Variant Dim DateiName2 As Variant Dim PfadName As Variant Verzeichnis = Worksheets("Probenmessungen").Range("A40").Value DateiName1 = Worksheets("Probenmessungen").Range("A41").Value DateiName2 = DateiName1 & ".TXT" PfadName = Verzeichnis & DateiName2 Debug.Print PfadName With ActiveSheet.QueryTables.Add(Connection:= _ PadName _ , Destination:=Range("A1")) .Name = DateiName1 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Sheets("Probengeometrie ").Select Range("D18:E18").Select ActiveWindow.SmallScroll Down:=-7 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ExterneDaten() ' ExterneDaten Makro ' Makro am 04.10.2007 von Labor BM1 aufgezeichnet With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;K:\ARW_TW\Luftfahrtplatten\Prüfungen\KIC\KIC_Auswertung\06_Archiv\Opt.Messung\ _ absolut\11111_02_011_01_1,0TL.TXT" _ , Destination:=Range("N1")) .Name = "11111_02_011_01_1,0TL" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

Also hab das mal eingefügt hilft aber leider nicht ich scik dir mal die Textdatei vieleicht hilft dir die weiter
Modus;PX;PY;LX;LY;L;K;W;R;D;D;DR
M-Gerade Punkt/Punkt;3,050;29,962;0,144;5,015;5,017;10,034;-88,351;;;;;
M-Gerade Punkt/Punkt;20,194;29,937;0,037;5,054;5,055;10,109;89,583;;;;;
M-Punkt;13,206;0,074;;;;;;;;;;
M-Kreis / 3;12,455;16,282;;;;;;6,244;12,487;12,487;12,487;0,000
M-Abstand Linie/Punkt;11,570;0,067;;;60,020;;89,469;;;;;
M-Abstand Linie/Punkt;12,475;29,948;;;13,666;;89,914;;;;;
M-Abstand Linie/Punkt;13,251;29,947;;;29,873;;89,914;;;;;
M-Kreis / 3;12,406;43,794;;;;;;6,252;12,504;12,504;12,504;0,000
M-Abstand Linie/Punkt;12,385;29,948;;;13,846;;89,914;;;;;
M-Punkt;12,342;60,090;;;;;;;;;;
M-Abstand Linie/Punkt;12,297;29,948;;;30,142;;89,914;;;;;
M-Abstand Linie/Punkt;12,430;30,030;;;14,268;;0,100;;;;;
M-Abstand Linie/Punkt;12,431;29,918;;;21,631;;0,100;;;;;
M-Abstand Linie/Punkt;12,432;28,950;;;50,073;;0,100;;;;;
M-Abstand Linie/Punkt;62,975;3,154;;;63,000;;1,027;;;;;
M-Abstand Linie/Punkt;12,456;15,649;;;12,467;;0,100;;;;;
M-Gerade Punkt/Punkt;3,049;30,175;0,430;5,079;5,098;10,195;-85,161;;;;;
M-Gerade Punkt/Punkt;21,366;30,206;0,182;5,078;5,081;10,162;-87,950;;;;;
M-Punkt;24,380;0,082;;;;;;;;;;
M-Kreis / 3;12,349;16,360;;;;;;6,260;12,520;12,520;12,520;0,000
M-Abstand Linie/Punkt;9,607;0,084;;;60,073;;89,364;;;;;
M-Abstand Linie/Punkt;12,326;30,191;;;13,831;;-89,903;;;;;
M-Abstand Linie/Punkt;24,329;30,211;;;30,130;;-89,903;;;;;
M-Kreis / 3;12,345;43,870;;;;;;6,254;12,509;12,509;12,509;0,000
M-Abstand Linie/Punkt;12,369;30,191;;;13,679;;-89,903;;;;;
M-Punkt;12,923;60,129;;;;;;;;;;
M-Abstand Linie/Punkt;12,974;30,192;;;29,937;;-89,903;;;;;
M-Abstand Linie/Punkt;12,347;30,151;;;14,317;;0,003;;;;;
M-Abstand Linie/Punkt;12,347;30,115;;;21,681;;0,003;;;;;
M-Abstand Linie/Punkt;12,347;29,280;;;50,177;;0,003;;;;;
M-Abstand Linie/Punkt;62,532;1,601;;;62,540;;0,050;;;;;
M-Abstand Linie/Punkt;12,348;18,680;;;12,376;;0,003;;;;;

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread