kann jemand mir sagen warum es nicht funktioniert?
ich habe so 1 Programm und es klappt
Sub TextdateiEinlesen()
Workbooks("essay.xlsm").Activate
Sheets("Tabelle2").Activate
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Documents and Settings\georg\Desktop\ _
DV_S\DMV.txt", _
Destination:=Range("A1"))
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.View = xlPageBreakPreview
End Sub
Nun habe ich 1 Variable eingefügt und es funktioniert nicht mehr
Sub TextdateiEinlesen()
Dim essay as String
Workbooks("essay.xlsm").Activate
Sheets("Tabelle2").Activate
essay = C:\Documents and Settings\georg\Desktop\DV_S\DMV.txt
With ActiveSheet.QueryTables.Add(Connection:="TEXT;essay", _
Destination:=Range("A1"))
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.View = xlPageBreakPreview
End Sub
Hat jemand eine Idee?