Eine txt Datei - lesen.txt - möchte ich in das geöffnete Excelsheet - Arbeit - (mit dem arbeite ich aktuell) in die Tabelle - meins - einlesen.
Wie geht das?
Option Explicit
Public Sub Main()
Application.ScreenUpdating = False
Workbooks.OpenText Filename:="E:\OneDrive\Office2021\Testdatei.txt", _
DataType:=xlDelimited, Tab:=True
With ActiveWorkbook
.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("meins").Range("A1")
.Close False
End With
Application.ScreenUpdating = True
End Sub
Workbooks. OpenText-Methode (Excel)...