Daten aus einer geschlossenen Arbeitsmappe importi

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Daten aus einer geschlossenen Arbeitsmappe importi von: Alfred
Geschrieben am: 06.02.2005 10:46:15

Hallo Leute

Habe ein Problem mit dem Auslesen von Daten.

In geschlossenen Arbeitsmappen sind 4 Tabellenblätter gespeichert. In einer Arbeitsmappe sind Blätter zur Auswertung. Ist es möglich Daten aus einer bestimmten Tabelle (Plan) einer der geschlossenen Mappen in ein bestimmtes Blatt (Rohdaten) zu kopieren?

Danke im voraus.
Alfred

Bild


Betrifft: AW: Daten aus einer geschlossenen Arbeitsmappe importi von: Ulf
Geschrieben am: 06.02.2005 11:43:21

Aus einer geschlossenen Mappe können keine Daten kopiert werden.

Ulf


Bild


Betrifft: AW: Daten aus einer geschlossenen Arbeitsmappe imp von: JL
Geschrieben am: 06.02.2005 11:52:19

aber natürlich kannst Du die Arbeitsmappe im Hintergrund öffnen und schließen lassen und mittels

Application.ScreenUpdating = False

die Anzeige des Vorgangs unterdrücken.

Jörg


Bild


Betrifft: AW: Daten aus einer geschlossenen Arbeitsmappe importi von: Daniel
Geschrieben am: 06.02.2005 17:36:51

Versuche es mal so, bei mit gehts wunderbar

Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "C:\"
f = "test.xls"
s = "Tabelle1"
r = "A1"
Rem oder r = ActiveCell.Address(0, 0)
Rem MsgBox GetValue(p, f, s, r)
g = GetValue(p, f, s, r)
If g = "File Not Found" Then Exit Sub
ActiveCell.Value = g
End Sub



Bild


Betrifft: AW: Daten aus einer geschlossenen Arbeitsmappe importi von: Alfred
Geschrieben am: 06.02.2005 20:46:39

Bekomme die Meldung
Fehler beim Kompilieren:
Sub oder Function nicht definiert

und in der Zeile g = GetValue (...)
ist das GetValue unterlegt

mfg Alfred


Bild


Betrifft: AW: Daten aus einer geschlossenen Arbeitsmappe importi von: Daniel
Geschrieben am: 06.02.2005 22:06:02



Sorry habe da noch etwas vergessen. Die Function muss definiert ja noch definiert werden.

Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "C:\"
f = "test.xls"
s = "Tabelle1"
r = "A1"
Rem oder r = ActiveCell.Address(0, 0)

Rem MsgBox GetValue(p, f, s, r)
g = GetValue(p, f, s, r)
If g = "File Not Found" Then Exit Sub
ActiveCell.Value = g
End Sub




Private Function GetValue(path, file, sheet, ref)
    '   Retrieves a value from a closed workbook
        Dim arg As String
    '   Make sure the file exists
        If Right(path, 1) <> "\" Then path = path & "\"
        If Dir(path & file) = "" Then
            GetValue = "File Not Found"
            Exit Function
        End If
    '   Create the argument
    Rem g = arg
    Rem ActiveCell.Value = g
        arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
         Range(ref).Range("A1").Address(, , xlR1C1)
    '   Execute an XLM macro
        GetValue = ExecuteExcel4Macro(arg)
    End Function



Bild


Betrifft: AW: Daten aus einer geschlossenen Arbeitsmappe importi von: alfred
Geschrieben am: 08.02.2005 10:18:27

Danke schön hat funktioniert.

alfred


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten aus einer geschlossenen Arbeitsmappe importi"