Dzwebs.Net

撰写电脑技术杂文十余年

使用Vba读取已关闭的Excel工作薄数据到当前工作表单元格之简单范例

Admin | 2008-4-8 19:23:58 | 被阅次数 | 25317

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  VBA功能强大,用途广泛,值得研究学习!

  本文介绍如题所示的操作过程;

  范例环境:

  在F:\盘根目录下,存在一工作薄,名称为“成绩表.xls”,其对应的路径是:“F:\成绩表.xls”;

  该工作薄第一个工作表名称是:Sheet1,里面存放的是学生期末考试成绩,其中,E列从E3开始,就是学生的考试成绩;

  下面我们要实现的是,在关闭F:\成绩表.xls情况下,打开Excel软件,新建一工作薄,在其工作表中的指定单元格,读取F:\成绩表.xls中的指定的成绩数据进行填充;

  ①:在新建的工作表中直接按下组合键:Alt+F11,打开Microsoft Visual Basic窗口;如果打开的窗口没有出现代码窗口,那么,请在当前窗口执行操作:“视图”→“代码窗口”;

  ②:在代码窗口中输入如下的代码:

Private Function GetValue(path, filename, sheet, ref)
    ' 从关闭的工作薄返回值
    Dim MyPath As String
    '确定文件是否存在
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & filename) = "" Then
        GetValue = "无法找到指定的Excel文件"
        Exit Function
    End If
    '创建公式
    MyPath = "'" & path & "[" & filename & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
    '执行EXCEL4宏函数
    GetValue = Application.ExecuteExcel4Macro(MyPath)
End Function

'函数参数说明
'-----------------------------------------------------------------
'path:文件路径
'filename:文件名称
'sheet:工作表名称
'ref: 单元格区域
'-----------------------------------------------------------------
Sub GetCloseXlsValue()
    Range("C3").Value = GetValue("F:\", "成绩表.xls", "Sheet1", "E8")
End Sub

  如下图:

  上述代码的功能是:读取F:\成绩表.xls中E8单元格的数据填充到当前EXCEL的C3单元格中;

  上述代码的诠释已做说明,不再阐述!

  之后直接按下F5运行代码,或点击代码运行按钮执行代码的操作,返回EXCEL窗口,即可看到填充效果;

  知识扩展:

  如何对关闭的工作薄数据进行求和再填充到当前工作表?

  可将Range("C3").Value = GetValue("F:\", "成绩表.xls", "Sheet1", "E8")

  改为:Range("C3").Value = GetValue("F:\", "成绩表.xls", "Sheet1", "E8")+ GetValue("F:\", "成绩表.xls", "Sheet1", "E9")+ GetValue("F:\", "成绩表.xls", "Sheet1", "E10")

        这样,对E8,E9,E10三个单元格进行相加求和之后,再填充过来;

        如果想填充其他单元格数据到当前工作表的其他单元格,只需要修改来处即可:

  ①:Range("C3").Value ,修改C3

  ②:GetValue("F:\", "成绩表.xls", "Sheet1", "E8"),修改盘符,文件名,工作表名,E8单元格

  如果想使用更智能的办法,必须使用循环语句来控制,本例暂且不作介绍;


该杂文来自: Excel杂文

上一篇:Excel使用SUMPRODUCT和MOD函数实现隔行求和

下一篇:利用Macromedia Flash Paper将Office文档转换为Fl

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计