Hallo,
Ich beschäftige mich seit 2 Tagen mit VBA und möchte durch ein Makro viele Exceldateien(Identischer Aufbau) innerhalb des Sharepoints 2013 bearbeiten.
Aktueller Stand: Ich habe den Quellordner innerhalb des Sharepoints als Netzwerkverknüpfung eingerichtet, um den Browser zu umgehen. Die Testdatei wird bereits erfolgreich aus- und eingecheckt. Während dem Ausführen des Makros sind 2 Arbeitsmappen geöffnet -> Die Exceldatei, welche das Makro ausführt wird und die Zieldatei. Jetzt fällt auf, dass der Befehl "Range("C5:F5").Value = "1"" in der ausführenden Datei durchgeführt wird. Die gängigen Befehle "Appactive" oder "X.Activate" beheben mein Problem bisher nicht.
Eventuell habe ich etwas falsch/ nicht ausreichend definiert. Freue mich auf Unterstützung.
freundliche Grüße
Sub Sharepoint()
Dim xlApp As Object
Dim wb As Workbook
Dim ws As Worksheet
Dim myFileName As String
myFileName = "\\X.sharepoint.com@SSL\DavWWWRoot\sites\x.xlsx"
If Workbooks.CanCheckOut(myFileName) = True Then
Workbooks.Checkout myFileName
Else
MsgBox "Die Datei wird bereits verwendet!"
Exit Sub
End If
Set xlApp = CreateObject("Excel.Application")
xlApp.Application.ScreenUpdating = False
xlApp.Visible = True
Set wb = xlApp.Workbooks.Open(myFileName, True, False)
Set ws = wb.Worksheets("X")
With ws
Range("C5:F5").Value = "1"
End With
xlApp.Application.ScreenUpdating = True
wb.CheckIn
MsgBox " Datei erfolgreich geändert & eingecheckt! "
Set xlApp = Nothing
End Sub
|