Ich meinte schon eimal einen Beitrag gelesen zu haben, wie man Zellwerte aus einer geshlossenen Arbeitsmappe auslesen kann.
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.
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
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
Das Archiv des Excel-Forums
