Question

如何使用Excel VBA将文件从远程桌面复制到本地计算机？

Answer 1

是的，您可以在VBA中的不同计算机/服务器之间复制文件。你没有指定太多，所以这里有一个从本地机器到远程机器的应对示例。只需更改副本（或移动）的参数即可。

在我的示例中，我正在远程计算机上访问管理员共享“Z $”。您可以指定任何共享名称。

我在Excel 2013中对此进行了测试。

Option Explicit 'always declare your vars!

Sub CopyFile()
    Dim FSO:           Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim strFile:       strFile = "c:\temp\RemoteCopyTest\mytestfile.txt"
    Dim strTargetPath: strTargetPath = "\\Server\Z$\"

    'verify the remote folder exists
    If FSO.FolderExists(strTargetPath) Then
        'verify the source file exists
        If FSO.FileExists(strFile) Then
            'use FSO.MoveFile <Source>,<Target> if you want to move instead of copy
            FSO.CopyFile strFile, strTargetPath
        Else
            MsgBox "ERROR:  Source FIle does not exist or is not accessible."
        End If
    Else
        MsgBox "ERROR:  Target Folder does not exist or is not accessible."
    End If
End Sub

Answer 2

当您连接到远程PC \ Server时，您可以选择共享资源，即如果您使用远程桌面连接其选项\ z本地资源\更多\驱动器

您可以选择本地c盘，现在可以在远程机器上使用...在Windows资源管理器中。

因此，当您运行Excel VBA时，您只需将文件从Remote移动到远程计算机上列出的本地C驱动器（它可能会给它一个新的驱动器号）

正如DevilsAdvocate所说......只是将1个文件从这里复制到那里

BTW您可以保存远程连接设置...以便每次连接到该PC /服务器时都设置相同的设置

如何使用Excel VBA将一个文件从远程桌面复制到本地计算机

2 个答案: