大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

Excel使用宏操作另一个Excel文件

Admin | 2007-10-16 21:59:37 | ReadNums | 9248 | 标签 Excel教程 | 打印本页
     

      #使用宏在一个Excel文件中操作另一个Excel文件。
     办公软件中使用宏处理一些信息,尤其是大量的重复信息,可以提高效率。

     操作过程结构如下:

   Dim strFilePath As String
    Dim strFileName As String
    Dim strFile As String
    Dim excel As Object
    Dim sheet As Object
    Dim Workbook As Object
   
    'The target file
    strFileName = "test_out.xls"
    strFilePath = Me.Parent.Path
    strFile = strFilePath & "\" & strFileName
   
    'STEP 0: proof the existence of excel file
    If Dir(strFile) = "" Then
        MsgBox "The target file:" & vbCrLf & _
                strFile & vbCrLf & _
                "is NOT exsit!"
        Exit Sub
    End If
   
    'STEP 1: open the excel file
    Set excel = CreateObject("excel.application")
    Set Workbook = excel.Workbooks.Open(strFile)
   
    'STEP 2: find the needed sheet
    Set sheet = Workbook.ActiveSheet
   
    'STEP 3: process
    MsgBox sheet.Range("a1").Value
   
    sheet.Range("a2").Value = "sunyt"
   
    'STEP 4: close file
    '      : to save file firstly
    Workbook.Save
    Workbook.Close
    excel.Quit
    Set sheet = Nothing
    Set Workbook = Nothing
    Set excel = Nothing


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日