vba取局域网电脑共享文件夹下的Excel文件

这篇博客展示了如何使用VBA打开并读取局域网内另一台电脑共享文件夹中的Excel文件,并将数据复制到本地Excel文件中。通过创建Excel.Application对象,然后调用Workbooks.Open方法来实现文件的打开,最后将数据从共享文件转移到本地文件。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

Private Sub CommandButton1_Click()
    Dim xlapp1 As Excel.Application
    Dim xlbook1 As Excel.Workbook
    Dim xlsheet1 As Excel.Worksheet
    Dim xlapp2 As Excel.Application
    Dim xlbook2 As Excel.Workbook
    Dim xlsheet2 As Excel.Worksheet
    Set xlapp1 = CreateObject("Excel.Application")
    Set xlapp2 = CreateObject("Excel.Application")
    Set xlbook1 = xlapp1.Workbooks.Open("\\192.168.0.200\My Webs\isosheets\035.xls")  '打开局域网中电脑共享文件夹下的文件,id和文件名你自己改
    Set xlbook2 = xlapp2.Workbooks.Open("d:\test2.xls")                              '打开你自己电脑中的文件
    Set xlsheet1 = xlbook1.Worksheets(1)                    &nbs

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值