AW: Daten aus anderer Excel-Datei einlesen
08.10.2010 12:36:32
welga
Hallo Josef,
eventuell so:
Sub import()
Dim dateiname
Dim daten(65536, 256)
Dim i As Long, a As Long, y As Long
dateiname = Application.GetOpenFilename
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If dateiname False Then
' Datei öffnen, Meßwerte lesen und Datei schließen
Workbooks.OpenText Filename:=dateiname, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1))
a = ActiveWorkbook.Sheets(1).[b65536].End(xlUp).Row
For i = 2 To a
For y = 1 To 256
daten(i, y) = ActiveWorkbook.Sheets(1).Cells(i, 2)
Next y
Next i
Workbooks(2).Close
For i = 2 To a
For y = 1 To 256
ThisWorkbook.Sheets(1).Cells(i, y) = daten(i, y)
Next y
Next i
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Gruß