Überarbeiten eines Mokros
04.10.2007 07:36:00
Simone
Hab ein Kleines Problem mit meinem VAB Code. Habe diesen mittels Makro aufgezeichnet nd leicht abgeändert funktioniert aber nicht? Kann mir mal einer über den Cod sehen und mir sagen was da Falsch sein könnte?
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
Währe echt super süß wenn sich das mal jemand ansehen könnte.