Office: (Office 2007) Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen

W99 · 1. September 2015

Hallo VBA-Fan Gemeinde,

ich breche mir gerade mal wieder die Finger bei folgendem Problem.
Ich habe ein Excel-Arbeitsmappe (inkl. Makros) die funktional regelmäßig erweitert werden soll.

Nun möchte ich dieser Mappe eine "Update"-Funktionalität mitgeben.
Über ein Makro möchte ich folgendes erreichen:
- Auslesen einer version.txt, version.csv oder version.xlsx, die auf einem Sharepoint liegt (da hier die verschiedenen Kollgen Zugriff drauf haben.
- wenn die dort hinterlegte Versionsnummer größer ist als die in der gerade offenen Mappe, dann hinweis an den Anwender, dass da eine neuere Version bereitsteht und diese heruntergeladen werden kann (sollte).

Also im Endeffekt eine Art Updateprüfung ...

Das ganze soll "natürlich" ohne das sichtbare Öffnen der version.* Datei passieren.

Ich habe mit Application.Workbooks.OpenText versuche gestartet - komme aber nicht wirklich weiter.

Ich gehe davon aus, dass es so eine "Update-Prozedur" schon gibt - ggf. auch so wie beschrieben mit von einem Sharepoint Portal.

VIELEN Dank für eure Hilfe

:)

W99 · 3. September 2015

Ok - habe etwas gefunden und für mich zusammengebaut.
Funktioniert für mich *Smilie

1.) Test, ob Datei auf dem Sharepoint existiert
2.) Öffnen der Textdatei
3.) Zeile in Variable einlesen
4.) Sharepoint-Datei wieder schließen

Für diejenigen, die das gleiche Problem haben ... hier meine zusammengebaute Lösung.

In einem Modul (Check_Sharepoint) habe ich folgenden Code hinterlegt:
Code:

Dim CheckVersion As Boolean ' Globale Variable innerhalb des Moduls

Sub Version_Holen()
Dim wbname As String
Dim Ver As String

' Set wbZiel = ThisWorkbook.Worksheets("Tabelle1") ' nur wenn Daten geholt und abgelegt werden sollen

Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False

wbname = "https://..../..../Version.txt" ' oder http, ohne "s"
CheckFile (wbname) ' Prüfen, ob Datei existiert

If CheckVersion = True Then
Workbooks.Open wbname

Set wbQuelle = ActiveWorkbook.Worksheets("Version")
With wbQuelle
' .Range("A1").Copy Destination:=wbZiel.Range("C6") ' sofern benötigt - siehe oben
Ver = .Range("A1") ' Inhalt in Variable übernehmen
End With

ActiveWorkbook.Close SaveChanges = False ' Sharepoint Datei ohne Änderungen schließen
Set wbZiel = Nothing
Set wbQuelle = Nothing

Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Else
MsgBox ("Kein Zugriff auf die Prüfdatei möglich.")
End If
End Sub

Private Function CheckFile(Path)
'gibt True zurück, wenn file geöffnet werden kann
'gibt False zurück, wenn file nicht geöffnet werden kann

On Error GoTo ErrorCode

check = Workbooks.CanCheckOut(Path)
CheckVersion = True

ExitCode:
On Error Resume Next
Exit Function
ErrorCode:
CheckVersion = False
Resume ExitCode

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klappt der Code auch bei euch?

Gruß

xlph · 3. September 2015

Hallo W99,

kannst du die Datei nicht als lesend öffnen?

Datenkonflikte können doch nur beim Schreiben entstehen.

Demnach ist ein Prüfung überflüssig bzw. irrelevant, selbst wenn die Datei
durch einen anderen User grad benutzt wird. Außer du möchtest warten
bis die Datei wieder eingecheckt wird um aktuelle Daten zu erhalten.

Ich weiß nicht wie SharePoint das regelt.

W99 · 10. September 2015

Hallo XLPH,

nun ... wie vorher beschrieben, habe ich für mein problem eine Lösung gefunden und dargestellt.
Ich möchte die Datei auf dem Sharepoint nur kurz öffnen, um die dort hinterlegte Version (oder was auch immer) auslesen zu können. Diese vergleiche ich dann mit meiner Version (aus dem aufrufenden Excel) und kann damit einen Hinweis auf eine neuere Version (die dann ebenfalls auf dem Sharepoint liegt) geben.

Mein Problem ist damit gelöst und ich dachte, dass der Code ggf. auch für andere interessant wäre.

Gruß
W99*Smilie

Office: (Office 2007) Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen

Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen

Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen

Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen

Inhalt einer Text Datei vom Sharepoint einer Variablen zuweisen - Similar Threads - Inhalt Text Datei

Tabellenkopfbezeichnungen in Abhängigkeit von Inhalt ausgeben

nach Absturz + Neustart in Excel Textzeilen verschwunden

Mail nach Textinhalt Filtern

"Einfügen -> Text -> Objekt -> Text aus Datei" zerstört Inhalt der Datei

Zeilen mit Inhalt zählen >>> zzgl Textergänzung

(Text)Felder mit gleichem Inhalt ausfüllen

Quell Datei inhalt in Formular text felder einfügen