Opentext
26.10.2015 23:05:41
joerg
Leider wird eine Mappe "a.xls" erzeugt - ich möchte die Daten aber in die aktive Arbeitsmappe auf das Blatt "Rohdaten" einlesen. Kann man das erzeugen von "a.xls" verhindern?
Vielen Dank für die hilfe!!
Sub ateinlesen()
Dim pfad As String
pfad = "G:\je_test\a.txt"
Workbooks.OpenText Filename:=pfad, Semicolon:=True
Call ActiveWorkbook.ActiveSheet.UsedRange.Copy(Destination:=ThisWorkbook.Worksheets("Rohdaten"). _
Range("a1"))
End Sub
Anzeige