Excel fragt zuviel
03.02.2004 20:25:33
Thomas
Ich öffne ein txt-File und kopiere die Daten in den Zwischenspeicher. Nach dem Einfügen der Daten in ein Excel-Sheet will ich die *.txt Datei wieder schliessen. Excel motzt dann, dass noch viele Daten im Zwischenspeicher sind. Wie kann ich dass überspringen?
Mein Code:
Sub RhpFileEinlesen()
Dim sFile As String
Dim strName As String
Dim Nr As Integer
Const Pfad = "C:\Eigene Dateien\KrFA\Hsk\Save\"
Application.ScreenUpdating = False
Sheets("Preistabelle").Select
Set Mappe = ActiveWorkbook
strName = "RHP" 'Name der Textdatei
Nr = Range("S15").Value
sFile = Pfad & strName & "-Nr" & Nr & ".txt"
Workbooks.OpenText Filename:=sFile
ActiveSheet.UsedRange.Copy
Mappe.Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B2").Select
Sheets("Eingabe").Select
Workbooks(strName & "-Nr" & Nr & ".txt").Close False
End Sub
Vielen Dank für die Hilfe
Gruss Thomas