SharePoint OnlineドキュメントライブラリからAccessデータベースにCSVファイルをインポート

Question

SharePoint OnlineドキュメントライブラリにアップロードされたCSVファイルが毎日更新されています。このCSVファイルを使用して、Accessデータベースでいくつかのレポートを作成します。私が達成したいのは、CSVファイルをローカルにダウンロードして保存する必要なくAccessに自動的にインポートすることです。私が使用しているコードは次のとおりです。

Sub ImportCSV() 

    DoCmd.TransferText TransferType:=acLinkDelim, TableName:="Daily_Report_Table", FileName:="https://mycompany.sharepoint.com/teams/Daily%20Reporting.csv", HasFieldNames:=True 

End Sub 

しかし、それはログインして私を尋ねいずれかと、それは私が、ファイルへのアクセスを持っていないか、それがHTMLページをロードすることはできませんと言って実行していないと言います...

Answer 1

リンクのタイトルに惑わされてはいけません。

HTTP経由でファイルを直接インポート/リンクすることはできません。コードをリンクする準備ができて、あなたのためのファイルをダウンロード：// stackoverflowの：[インターネット上のパスからファイルのリストを取得]（HTTPの

Option Compare Database 
Option Explicit 

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (_ 
    ByVal pCaller As Long, _ 
    ByVal szURL As String, _ 
    ByVal szFileName As String, _ 
    ByVal dwReserved As Long, _ 
    ByVal lpfnCB As Long) _ 
    As Long 

Public Function DownloadFile(_ 
    ByVal strURL As String, _ 
    ByVal strLocalFilename As String) _ 
    As Long 

' Download file or page with public access from the web. 
' 2004-12-17. Cactus Data ApS, CPH. 

' Usage, download a file: 
' lngRet = DownloadFile("http://www.databaseadvisors.com/Graphics/conf2002/2002ConferencePicsbySmolin/images/dba02smolin27.jpg", "c:\happybassett.jpg") 
' 
' Usage, download a page: 
' lngRet = DownloadFile("http://www.databaseadvisors.com/conf2002/conf200202.asp", "c:\dbaconference.htm") 

' Returns 0 if success, error code if not. 
' Error codes: 
' -2146697210 "file not found". 
' -2146697211 "domain not found". 

' Limitation. 
' Does not check if local file was created successfully. 

    Dim lngRetVal As Long 

    lngRetVal = URLDownloadToFile(0, strURL & vbNullChar, strLocalFilename & vbNullChar, 0, 0) 

    DownloadFile = lngRetVal 

End Function