Zellwert aus geschlossener Arbeitsmappe auslesen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zellwert aus geschlossener Arbeitsmappe auslesen
von: christian
Geschrieben am: 08.07.2002 - 16:42:50

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

nach oben   nach unten

Danke, habe eine Lösung gefunden
von: Christian
Geschrieben am: 08.07.2002 - 18:21:46

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellwert aus geschlossener Arbeitsmappe auslesen"