Importieren von CSV-Datei in MS-Zugriff mit DoCmd.TransferText Netzwerkberechtigungen

Question

Ich habe ein einfaches VBA-Skript, um ein csv von einer Netzwerkfreigabe in eine neue Tabelle in meiner Access-Datenbank zu importieren. Ich habe Zugriff auf die Netzwerkfreigabe und es läuft gut von meinem Computer. Ich möchte, dass andere, die keinen Zugriff auf die Netzwerkfreigabe haben, auch das Skript ausführen können. Ich habe ein generisches Netzwerkkonto mit den erforderlichen Berechtigungen und hoffe, dass ich das in das Skript einbetten kann?

Ich habe in diesem und anderen Foren und MSDN gesucht und kann nicht finden, wie dies zu tun ist, scheinen die meisten Datenbank-und Datenbankverbindung Berechtigungen betreffen.

Thankyou

Answer 1

Hier ist eine Lösung. Es erstellt ein lokales zugeordnetes Netzlaufwerk des Netzwerkspeicherorts, als es Daten importiert, als würde es aus einer CSV-Datei in einem lokalen Laufwerk importieren; Wenn es fertig ist, entfernt es das zugeordnete Laufwerk.

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set wshNet = CreateObject("WScript.Network") 

strUsername = Domain\username 

strPassword = Password 

strDestination = GetNextLetter("F", wshNet) 

wshNet.MapNetworkDrive strDestination, "\\ServerAddress\Folder", , strUsername, strPassword 

DoCmd.TransferText acImportDelim, , "Daily_data", strDestination & "\RestOfThePathIncludingFileName", True 

wshNet.RemoveNetworkDrive strDestination, True 

Set objFSO = Nothing 
Set wshNetwork = Nothing 

Diese Lösung wurde von https://www.experts-exchange.com/questions/21108808/using-vba-to-copy-file-to-a-network-share-with-username-and-password.html

Function GetNextLetter(DriveLetter, wshNet) 

    'Start x at the ascii value of the drive letter to start the search 
    'unless something is passed in. This sample uses capital letters and 
    'starts at F. 

    If IsEmpty(DriveLetter) Then 

    x = 70 

    Else 

    x = Asc(DriveLetter) 

    End If 

    Set oDrives = wshNet.EnumNetworkDrives 
    'Step by two since the first item in the collection is the drive letter 
    'and the second item is the network mapping 

    For i = 0 To oDrives.Count - 1 Step 2 

    If Chr(x) & ":" = oDrives.Item(i) Then 

     x = x + 1 

    End If 

    Next 

    GetNextLetter = Chr(x) & ":" 

End Function 

folgende getan