Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige