VBA-Beispiel 054
mail schreiben
mail schreiben

Import einer Tabelle (Used Range)

Import der ersten Tabelle einer bestimmten Exceldatei in diese Tabelle
Sub bestimmte_Exceldatei_importieren()
Dim Quelle As Object  
Dim Ziel As Object  

On Error GoTo Fehler    

'Quelldatei öffnen
Workbooks.Open Filename:=ThisWorkbook.Path & "\test.xls"

Set Quelle = Workbooks("10000 x 256.xls").Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)

'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)

'Quelldatei schließen
Workbooks("test.xls").Close

'Speicher freigeben
Set Quelle = Nothing  
Set Ziel = Nothing  

Exit Sub  


Fehler:
Set Quelle = Nothing  
Set Ziel = Nothing  
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub  

Download:   vba054.zip