Link zwischen Excel-Files auf Sharepoint und Access DB erstellen

Question

Hallo,

 

mit dem Ziel der Datenkonsistenz würde ich gerne meine Access DB (Access 2010) auf dem neuesten Stand halten und hierfür die manuell bearbeiteten Excel Dateien, die in einer Sharepoint (SP 2007) Document Library gelagert sind, mit der Datenbank verknüpfen. Eine Verknüpfung mit einer Sharepoint Liste oder einem lokal gespeicherten Excel-File stellt kein Problem dar - wie jedoch verlinke ich das im Intranet gespeicherte Excel-File?

 

Vielen Dank für jegliche Hilfe!

Answer 1

Hallo FKugler,

Ich würde halt eigene Importprozedur schreiben, die eine neue Instanz von Excel öffnet, die ‘http://…./ExcelDatei.xlsx‘ öffnet und dann die Daten aus Exceldatei in der Tabelle schreibt:

 

Dim ex As Object 
Dim wb As Object

Set ex = CreateObject("Excel.Application")
'alles pasiert im Hintergrund 
ex.Visible = False
Set wb = ex.Workbooks.Open("http://.../Datasource1.xlsx")

'weiterhin die Daten aus Excel Datei holen und in Access Tabelle einfügen
'....

wb.Close False
Set wb = Nothing
ex.Quit
Set ex = Nothing

 

Grüße,

Bogdan

Answer 2

Man kann sogar einfacher machen:

1. Datei aus Intranet lokal speichern

2. Dann normales Import durchfuehren

 

Dim ex As Object 
Dim wb As Object

Set ex = CreateObject("Excel.Application")
'alles pasiert im Hintergrund 
ex.Visible = False
Set wb = ex.Workbooks.Open("http://.../Datasource1.xlsx")
wb.SaveAs "C:\Temp\Temp.xlsx", wb.FileFormat
wb.Close False
Set wb = Nothing
ex.Quit
Set ex = Nothing

'jetzt die temporaere Datei importieren
 DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "Tabelle1", "C:\Temp\Temp.xlsx"