Thema Datum  Von Nutzer Rating
Antwort
Rot Sharepoint Datenpflege, Aktives Workbook wählen
 03.04.2014 11:29:41 X.klein
Solved
03.04.2014 18:16:14 X.klein
NotSolved
03.04.2014 18:16:26 X.klein
NotSolved
04.04.2014 09:33:28 Gast43572
NotSolved

Ansicht des Beitrags:
Von:
X.klein		 Datum:
03.04.2014 11:29:41		 Views:
2347		 Rating:
     
Antwort:
 Nein
Thema:
Sharepoint Datenpflege, Aktives Workbook wählen		 
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Sharepoint Datenpflege, Aktives Workbook wählen
 03.04.2014 11:29:41 X.klein
Solved
03.04.2014 18:16:14 X.klein
NotSolved
03.04.2014 18:16:26 X.klein
NotSolved
04.04.2014 09:33:28 Gast43572
NotSolved