zoukankan      html  css  js  c++  java
  • vba取局域网电脑共享文件夹下的Excel文件

    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.200My Websisosheets35.xls")  '打开局域网中电脑共享文件夹下的文件,id和文件名你自己改
        Set xlbook2 = xlapp2.Workbooks.Open("d: est2.xls")                              '打开你自己电脑中的文件
        Set xlsheet1 = xlbook1.Worksheets(1)                                              '给工作表对象变量赋值(局域网共享的)
        Set xlsheet2 = xlbook2.Worksheets(1)                                                '给工作表对象变量赋值(你自己的的)
        xlsheet2.Cells(1, 1) = xlsheet1.Cells(3, 1)                                       '把局域网共享中的文件的数据提取到自己的工作表中
        xlapp2.Quit                                                                       '退出自己的工作簿
        Set xlapp2 = Nothing
        xlapp1.Quit                                                                        '退出共享工作簿
        Set xlapp1 = Nothing
    End Sub

  • 相关阅读:
    线程状态
    JVM的运行
    HBase与Protobuf
    HBase Java API
    HBase全分布式部署
    HBase 伪分布式搭建
    HBase架构
    mysql存储引擎中InnoDB与Myisam的区别及应用场景
    mysql5.6 主从配置
    Mongodb3.4安装
  • 原文地址:https://www.cnblogs.com/shida-liu/p/9452617.html
Copyright © 2011-2022 走看看