Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellwert aus geschlossener Arbeitsmappe auslesen

Zellwert aus geschlossener Arbeitsmappe auslesen
08.07.2002 16:42:50
christian
Ich meinte schon eimal einen Beitrag gelesen zu haben, wie man Zellwerte aus einer geshlossenen Arbeitsmappe auslesen kann.

Beispiel:

In einem Directory "C:\Export" sind Reporte als xls-files hinterlegt. Die einzelnen Reporte können mit einer jeweils einmaligen Nummer in Zelle A1 identifiziert werden.

Fragestellung:

In einer neuen Arbeitsmappe soll eine Übersicht über alle generierten Reports in diesem Directory erstellt werden. (z.B. Spalte A - Report Nummer, Spalte B - Filename) Wie kann ich nun in dieser neuen Arbeitsmappe die Werte übernehmen, ohne alle anderen files öffnen zu müssen

Danke
Christian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Danke, habe eine Lösung gefunden
08.07.2002 18:21:46
Christian
Sub InsertSVServiceID()
Dim strFile, strType, strPath, strSheet, strCell As String
strPath = ThisWorkbook.path & "\Export\"
strFile = Cells(ActiveCell.Row, 3).Value & ".xls"
strType = Cells(ActiveCell.Row, 6)
strSheet = "Report" & strType
strCell = "A27"
ActiveSheet.Unprotect Password:="sokrates"
If strType = "SPTF" Then
ActiveCell.Value = ""
Else
ActiveCell.Value = GetValue(strPath, strFile, strSheet, strCell)
End If
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
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Anzeige

368 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige