Excel Daten auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallo allerseits!
Für Profis vermutlich ein triviales Problem:

  1. Was ich will:
    Aus einer zu wählenden Excel-Tabelle möchte ich Daten von a12:s1500 auslesen, um sie dann in der aktuell geöffneten zweiten Tabelle „auswertung“ einzufügen.

  2. Wie ich es bisher gelöst habe:
    Sub datei_öffnen()
    datei = Application.GetOpenFilename(„Rohdaten, *.xls; *.txt;*.doc“)
    If datei False Then Workbooks.Open datei Else End
    End Sub

Sub daten_kopieren()
Workbooks(Workbooks.Count).Activate
Range(„a12:s1500“).Copy
Workbooks(„auswertung“).Activate
Range(„a12“).PasteSpecial
End Sub

Das dauert mir zu lange. Gibt es eine einfache, schnellere Möglichkeit, die Daten von der einen in die andere Tabelle zu bekommen, evtl. ohne die Quelldatei öffnen zu müssen?

#2

Hallo allerseits!

Hallo, Heribert.

Die dazu passende Aktion ist DoCmd.TransferSpreadsheet; dort kannst Du auch Zellbereiche zum Importieren angeben. Der Befehl ist in der „Hilfe“ recht gut dokumentiert.

Gruß kw

#3

Ich habe den Hilfeeintrag schlussendlich gefunden - in der Access-Hilfe, was mich ein wenig verwundert. Ist VBA nicht für alle Office-Produkte gültig?
Und zu meinem konkreten Problem: Ich habemichwohl ein wenig ungenau ausgedrückt: meine aktuelle datei, in die ich hineinimportieren möchte ist ebenfalls ein Excel-File. Geht das trotzdem mit dem vorgeschlagenen Befehl?
Besten Dank aus Berlin.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]