Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle aus geschlossener Datei per VBA verwenden

Zelle aus geschlossener Datei per VBA verwenden
04.05.2007 17:12:00
Chris
Hallo,
ich bin mal wieder auf der suche nach einem Spezialisten.
Mein Problem:
Ich würde gerne per VBA auf eine andere Exceldatei (z.B. Grunddaten) im Tabellenblatt 1 (z.B. Schrauben) auf die Zelle A1 zugreifen und diese nur auslesen. Dabei sollte die Datei, die sich auf einer anderen Festplatte befindet, jedoch nicht geöffnet werden.
ist dies möglich?
vielen Dank für eure Hilfe.
Gruß Chris

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle aus geschlossener Datei per VBA verwende
04.05.2007 17:21:53
Ramses
Hallo
probiers mal
'******************************************
'Daten aus geschlossener Datei lesen
'Gehört zusammen
'Start Sequenz
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim R As String
p = "C:\temp\"
f = "test.xls"
s = "Tabelle3"
R = "A1"
MsgBox GetValue(p, f, s, R)
End Sub 



Private Function GetValue_from_Closed_File(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
arg = "'" & path & "[" & File & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function


'Ende Sequenz
'***********************************************
Gruss Rainer

Anzeige
AW: Zelle aus geschlossener Datei per VBA verwende
04.05.2007 17:47:00
Chris
Hallo Reiner,
erstmal Danke, aber leider tut das noch nicht.
Er schreibt mir bei MsgBox GetValue(p, f, s, R)
Sub oder Function nicht definiert.
Hast Du ne Ahnung, warum?
Ich habe das gesamte Macro in meinen Code eingefügt. von *** bis ***.
Aber trotzdem, warum?
Gruß Christian.
PS. fahre gleich noch kurz fort, daher kann ein feedback etwas länger dauen.

vielen Dank für Eure Hilfe, Funktioniert.
04.05.2007 21:52:40
Chris

AW: Zelle aus geschlossener Datei per VBA verwende
04.05.2007 21:47:39
Ramses
Hallo
Kopierfehler :-)
Das kommt davon wenn man mehre Dinge schnell zusammenkopiert
Es muss heissen
MsgBox GetValue_from_Closed_File(p, f, s, R)
Gruss Rainer

Danke, das funktioniert jetzt auch.
05.05.2007 13:52:56
Chris

oT. Dank dir, Gruss Mehmet
05.05.2007 13:59:00
mehmet
.

AW: oT. Dank dir, Gruss Mehmet
05.05.2007 14:01:00
mehmet
sorry 8-)
habe mich in Link geirrt
trotzdem
schoenes weekend 8-)

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige