ThisWorkbook.Path auf Netzlaufwerk
08.08.2019 11:57:34
Chris
könnt Ihr Euch mal bitte das Skript anschauen. Wenn ich es lokal ausführe funktioniert es. Wenn ich aber die Dateien auf ein Netzlaufwerk lege, schmiert Excel ab. Was muss ich ändern, damit das Skript auch auf Netzwerklaufwerken funktioniert?
Als vertrauenwürdige Speicherorte sind die Netzlaufwerke hinzugefügt.
Das Skript habe ich hier mit freundlicher Unterstützung von "EDE" erhalten und angepaßt.
Wäre super, wenn Ihr mir weiterhelfen könnt!
Hier das Skript:
Sub t()
Dim xl As Object, wb As Workbook, Counter As Long
pfad = ThisWorkbook.Path & "\"
Set xl = CreateObject("excel.application")
' für alle ID's aus Spalte A
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
' MsgBox pfad & Cells(i, 1) & ".xlsx"
Set wb = xl.Workbooks.Open(Filename:=pfad & Cells(i, 1) & ".xlsx")
Set ws = wb.Sheets(1)
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
For ii = 2 To lz
If ws.Cells(ii, 1) = 1060 Then
Cells(i, 4) = ws.Cells(ii, 4)
Cells(i, 5) = ws.Cells(ii, 9)
Exit For
End If
Next ii
wb.Close False
Set wb = Nothing
Next i
Set xl = Nothing
xl.Quit
End Sub