通过VBA实现数据复制到远程共享文件中

xiakor

各位好。
我想实现这样一个功能，Excel保存时，通过VBA将指定区域数据复制到远程电脑共享文件中。
如果共享文件中有数据，先进行清除。
结果出现如下错误提示，请问如何修改？多谢。


代码如下：

1. Sub CopyRangeToRemoteExcel()
   
2.     Dim remoteFilePath As String
   
3.     Dim remoteSheetName As String
   
4.     Dim localSheet As Worksheet
   
5.     Dim remoteSheet As Worksheet
   
6.     Dim lastRow As Long
   
7.    
   
8.     ' 远程文件路径
   
9.     remoteFilePath = "E:\Data\目标表格.xlsx"
   
10.     ' 远程工作表名称
    
11.     remoteSheetName = "a"
    
12.     ' 本地工作表名称
    
13.     Set localSheet = ThisWorkbook.Sheets("a")
    
14.    
    
15.     ' 复制本地数据范围
    
16.     lastRow = localSheet.Cells(localSheet.Rows.Count, "B").End(xlUp).Row
    
17.     localSheet.Range("B2:C" & lastRow).Copy
    
18.    
    
19.     ' 打开远程文件
    
20.     Application.ScreenUpdating = False
    
21.     Workbooks.Open remoteFilePath
    
22.    
    
23.     ' 设置远程工作表
    
24.     Set remoteSheet = ActiveWorkbook.Sheets(remoteSheetName)
    
25.    
    
26.     '清除远程工作表所有内容
    
27.     remoteSheet.Cells.Clear
    
28.    
    
29.     ' 粘贴到远程工作表
    
30.     remoteSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
    
31.    
    
32.     ' 关闭远程文件，保存更改
    
33.     Workbooks(remoteSheetName).Close SaveChanges:=True
    
34.     Application.ScreenUpdating = True
    
35.    
    
36.     ' 提示消息
    
37.     MsgBox "数据已复制到远程Excel文件。"
    
38. End Sub

复制代码

table.rar (22.52 KB, 下载次数: 3)

2024-11-1 21:51 上传

点击文件名下载附件

z865593849

xiakor

z865593849 发表于 2024-11-2 08:50

谢谢回复。
功能过于简单了，没有达到我的要求。

he577

粘贴到远程工作表 前加一句：remoteSheet.activate 試下

xiakor

he577 发表于 2024-11-2 15:40
粘贴到远程工作表 前加一句：remoteSheet.activate 試下

有心了。
还是显示上述错误。

perfect131

不要用xlPasteValues 用数字 -4163 试试

xiakor

perfect131 发表于 2024-11-2 20:40
不要用xlPasteValues 用数字 -4163 试试

试过，不可以。
找到其他解决方法了，谢谢。