Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriff auf geschlossene Datei

Forumthread: Zugriff auf geschlossene Datei

Zugriff auf geschlossene Datei
11.06.2008 16:40:00
Melissa
Hallo Leute,
ich habe zig Dokumente, die alle gleich aufgebaut sind. Diese sind an verschiedenen Orten abgelegt. Ich brauche jetzt eine Visual Basik funktion, die in Abhängigkeit eines bestimmten Kriteriums in einem zugehörigen Ordner aus der Datei einen bestimmten Wert ausliesst.
Ich würde eine Funktion erstellen, mit einem Select Case verwenden, um das Kriterium auszuwerten. Je nach Kriterium würde ich den Pfad in einen String schreiben.
Wie verwende ich den String weiter, sodass ich einen bestimmten Zellwert auslesen kann. Weiss jemand Rat, ich wäre sehr dankbar.
Viele Grüsse
Melissa

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf geschlossene Datei
11.06.2008 16:44:59
Hajo_Zi
Hallo Melissa,

Option Explicit
'   von Alf Herber Forum
' https://www.herber.de/ _
forum/archiv/52to56/t52834.htm#52840
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "L:\Eigene Dateien\Hajo\"
f = "Adresse.xlsm"
s = "Adresse"
r = "B4"
'   bennanter Bereich ergänzung von Nikhil Milo
'    r = "Heinze"
MsgBox GetValue(p, f, s, r)
Worksheets("Tabelle1").Range("A1") = GetValue(p, f, s, r)
End Sub
Public 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
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   bennanter Bereich ergänzung von Nikhil Milo
'     arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Public Function Start(path, file, sheet, ref)
Worksheets("Tabelle1").Range("A1") = GetValue(path, file, sheet, ref)
Start = Worksheets("Tabelle1").Range("A1")
End Function



Anzeige
AW: Zugriff auf geschlossene Datei
11.06.2008 18:08:00
Melissa
Danke dir für deine Antwort, ich komme mit der Ref nicht klar. Ich habe daraus folgendes gemacht:

Public Function GetValue(MatNr, Werk, Zelle)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
Select Case Werk
Case "D"
arg = "'R:\Sonderauswertungen\" & _
"Werk Düsseldorf\[Regeneratanalyse MatNr " & MatNr & ".xls]Tabelle1'!Range(" & Zelle & "). _
Value"
Case "T"
arg = "'R:\Sonderauswertungen\" & _
"Werk Turin\[Regeneratanalyse MatNr " & MatNr & ".xls]Tabelle1'!Range(" & Zelle & ").Value"
Case "S"
arg = "'R:\Sonderauswertungen\" & _
"Werk Schweinfurt\[Regeneratanalyse MatNr " & MatNr & ".xls]Tabelle1'!Range(" & Zelle & "). _
Value"
Case "P"
arg = "'R:\Sonderauswertungen\" & _
"Werk Prag\[Regeneratanalyse MatNr " & MatNr & ".xls]Tabelle1'!Range(" & Zelle & ").Value"
Case Else
arg = Null
End Select
GetValue = ExecuteExcel4Macro(arg)
End Function


Als Ergebnis bringt er #Wert!
Was mache ich hier falsch? Muss irgendwie an den Objekten liegen.

Anzeige
AW: Zugriff auf geschlossene Datei
11.06.2008 18:18:00
Hajo_Zi
Hallo Melissa,
was mit auffältt die Varianle Null ist nicht definiert und es fehlt ein IF, arg =Null
irgendwie fehlt mitr auch [
Ich habe mir das jetzt nur hier im Forum angeschaut.
Gruß Hajo

Anzeige
AW: Zugriff auf geschlossene Datei
11.06.2008 18:31:08
Melissa
Hallo Hajo,
das arg = Null kann man auch weglassen. Da ich immer einen Wert habe. Und die offenen Klammern müssten auch alle da sein.
[Regeneratanalyse MatNr " & MatNr & ".xls]Tabelle1
Bei deiner urprünglichen Antwort war mehrfach die Zelle "A1" auf "Tabelle1" vermerkt, wozu brauche ich das?
Wie kann ich möglichst einfach auf die Zelle in den Analysedateien zugreifen?
Danke dir.
Gruss
Melissa

Anzeige
AW: Zugriff auf geschlossene Datei
11.06.2008 19:31:19
Hajo_Zi
Hallo Mellissa,
ich hätte eigentlich die Funktion unbehandelt gelassen und die Auswahl der Übergabewerte in das Startprogramm geschrieben. Nach Deinen bisherigen Beiträgen, ist dieses ja unverändert übernommen worden.
Gruß Hajo

Anzeige
AW: Zugriff auf geschlossene Datei
11.06.2008 21:12:00
Melissa
Hallo Hajo,
danke dir. Aber so hab ich es nicht hinbekommen: Ich habe es so gelöst: Das war zwar nicht ganz das was ich mir vorgestellt habe, es hat aber geklappt.
Danke dir trotzdem.
Lieben Gruss
Melissa
Dim strQuelle As String
Dim Zeilen As Long
Dim Spalten As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & _
sourceSheet & "'!" & _
Range(SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox (strQuelle), _
vbExclamation, "Get data from closed Workbook"
GetDataClosedWB = False
End Function 



Public Sub HoleDaten3()
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim MatNr As String
Dim Zeile As Long
Dim Ziel As String
Dim Werk As String
Dim i As Integer
Dim Wert As Boolean
Zeile = 3
MatNr = Worksheets("ABC Gruppe auf Artikel").Range("B3").Value
Do While IsNumeric(MatNr)
Werk = Worksheets("ABC Gruppe auf Artikel").Range("O" & Zeile).Value
Dateiname = "Regeneratanalyse MatNr " & MatNr & ".xls"
Blatt = "Tabelle1"
Select Case Werk
Case "D"
Pfad = "R:\Sonderauswertungen\" & _
"Werk Düsseldorf\"
Case "S"
Pfad = "R:\Sonderauswertungen\" & _
"Werk Schweinfurt\"
Case "T"
Pfad = "R:\Sonderauswertungen\" & _
"Werk Turin\"
Case "P"
Pfad = "R:\Sonderauswertungen\" & _
"Werk Paris\"
End Select
If Len(Dir(Pfad & Dateiname)) > 1 Then
For i = 1 To 2
If i = 1 Then
Wert = GetDataClosedWB(Pfad, Dateiname, Blatt, "L8", Worksheets("ABC Gruppe auf Artikel"). _
Range("P" & Zeile))
Else
Wert = GetDataClosedWB(Pfad, Dateiname, Blatt, "L7", Worksheets("ABC Gruppe auf Artikel"). _
Range("Q" & Zeile))
End If
Next i
End If
Zeile = Zeile + 1
MatNr = Worksheets("ABC Gruppe auf Artikel").Range("B" & Zeile).Value
Loop
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Anzeige
Kopf- & Fußzeile auf andere Dateien übertragen?
Jessi

Hallo zusammen,
habe mal wieder eine Frage:
Habe 175 Dateien, die ich mit gleicher Kopf- & Fußzeile versehe muss. Die Dateien sind alle gleich nummeriert:
001.xlsm
002.xlsm
(...)
175.xlsm
Gibt es ggf. eine geschickte Möglichkeit z.B. das erste Tabellenblatt richt...
06.12.2008 18:56:00
Thread-ID: 1030728
9 Beiträge
Schneller Zugriff auf andere Dateien
Marco

Hallo zusammen,
ich möchte in einer Prozedur auf Daten in einem anderen Workbook zugreifen, welches zu diesem Zeitpunkt nicht geöffnet ist. Wie kann ich dies tun ohne das Programm zu langsam zu machen.
Gruß Marco
10.12.2008 10:13:00
Thread-ID: 1031590
5 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Anzeige
SVerweis - Zugriff auf ext. Tabellen ->Datei gross
sk

Hallo zusammen,
ich habe eine Preislistendatei die ich anhand von externen Tabellen mit SVerweis aktualisiere.
Ich suche anhand der der hinterlegten Artikelnummer in meiner Datei per SVerweis im jeweiligen
Datenbankextrakt der Artikelstammdaten(12MB) und Artikelpreise(1.5MB) die pas...
26.01.2009 14:43:35
Thread-ID: 1043902
3 Beiträge
Anzeige
Makro, Verweis auf andere xls Dateien
Diego

Guten Morgen an alle,
ich hätte ein kleines oder großes oder kleines Problem, weiss ich leider nicht so genau, da ich mich nicht so gut auskenne in Excel oder VBA =(
Also mal zu meinem Problemchen, ich hoff einfach mal ihr könnt euch unter meiner Beschreibung etwas vorstellen und mir da...
13.02.2009 09:21:00
Thread-ID: 1050345
6 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Verweis auf andere Dateien
Ingo


Hallo zusammen,
Ich habe eine Datei namens "Elektrik". In Tabelle2 möchte ich einen Bezug auf ein anderes Tabellenblatt in einer anderen Datei nehmen Dateiname unbekannt - Tabellenblatt bekannt ("MechaniK").
Z.B.: Mechanik!A5
Wenn ich jetzt meine Datei "Elektrik" öffne werde...
17.09.2009 14:13:42
Thread-ID: 1103590
4 Beiträge
Verweis auf Text in anderer Datei
mhoeppner

Hallo,
ich möchte in einer Tabelle (Blatt2) auf eine Zelle mit beliebigem Text in einer anderen Tabelle (Blatt1 oder 2) verweisen. Dieser Text soll übernommen werden.
='[Stücklistenübersicht XYZ, Version 31, xx.xx.2009.xls]Test'!$C$4:$F$4 funktioniert nicht --- es erscheint nur #WERT!
13.10.2009 13:03:59
Thread-ID: 1109316
14 Beiträge
Anzeige
Application.OnTime läuft auch bei anderen Dateien
Roland

Hallo,
Durch eine Steuerelement angestupst wird meine Datei alle 15 Minuten gespeichert.
Das Modul sieht so aus:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("0:15:00") ' Hi...
06.11.2009 02:22:33
Thread-ID: 1114851
4 Beiträge
Zugriff auf geschlossene Datei
Peter

Hallo,
ich habe eine Abfrage-Datei, die per Sverweis auf eine geschlossene Daten-Datei zugreift.
Das funktioniert auch ganz gut.
Wenn sich jedoch die Daten-Datei ändert, muss ich sie bei geöffneter Abfragedatei kurz öffnen und wieder schließen, damit ich die aktuellen Daten erhalte....
19.11.2009 11:40:16
Thread-ID: 1118559
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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