AW: Arbeitsmappe unsichtbar öffnen
27.04.2010 16:05:53
Viktoria
Das ist mein Coding für den Pfad.
Jedoch kopiert bzw. fügt er mir nur #Bezug in die Zellen
Public Sub HoleDaten()
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Pfad = " \\S0145822F\E01_454578\Projekte\Excel\VBA\"
Dateiname = "Massnahmen_Abzug1.xls"
Blatt = "Massnahmen_Abzug1"
If GetDataClosedWB(Pfad, _
Dateiname, _
Blatt, _
"A2:H100", _
Worksheets("Thema2").Range("A59")) Then
MsgBox "Daten importiert"
End If
End Sub
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, _
sourceSheet As String, _
SourceRange As String, _
TargetRange As Range) As Boolean
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 "Die Quelldatei oder der Quellbereich ist ungültig!", _
vbExclamation, "Get data from closed Workbook"
GetDataClosedWB = False
End Function