none
Link zwischen Excel-Files auf Sharepoint und Access DB erstellen

    Allgemeine Diskussion

  • 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!



    Mittwoch, 22. Juni 2011 07:08

Alle Antworten

  • 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
    Montag, 11. Juli 2011 12:23
    Moderator
  • 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"
    

     


    Montag, 11. Juli 2011 14:35
    Moderator