Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus einer geschlossenen Arbeitsmappe importi

Daten aus einer geschlossenen Arbeitsmappe importi
06.02.2005 10:46:15
Alfred
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
Anzeige
AW: Daten aus einer geschlossenen Arbeitsmappe importi
Ulf
Aus einer geschlossenen Mappe können keine Daten kopiert werden.
Ulf
AW: Daten aus einer geschlossenen Arbeitsmappe imp
JL
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
AW: Daten aus einer geschlossenen Arbeitsmappe importi
06.02.2005 17:36:51
Daniel
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

Anzeige
AW: Daten aus einer geschlossenen Arbeitsmappe importi
Alfred
Bekomme die Meldung
Fehler beim Kompilieren:
Sub oder Function nicht definiert
und in der Zeile g = GetValue (...)
ist das GetValue unterlegt
mfg Alfred
AW: Daten aus einer geschlossenen Arbeitsmappe importi
06.02.2005 22:06:02
Daniel
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

Anzeige
AW: Daten aus einer geschlossenen Arbeitsmappe importi
alfred
Danke schön hat funktioniert.
alfred
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige