5 回答
TA贡献1820条经验 获得超9个赞
1.如果是合并两个表的话,我觉得还是将ACCESS软件里面的数据导入到EXCEL里面去。在这里面做数据比较的方便,因为它就是为数据而生的。
导入到EXCEL里面了就使用数据透视表的功能,在提取字段的时候可以发挥出它的较大能力。当然为了较好的使用数据透视表还是了解一些SQL数据库的知识,因为这个数据透视表是建立在这个SQL数据库知识上面的。
2.仅仅是提取字段的话,个人觉得还是数据透视表比较简单。如果复杂一些的话,那就使用函数了。
TA贡献1804条经验 获得超2个赞
以下函数使用“自动化”功能调用 Excel 的 Median () 函数。数字组的一半在中值之下,而另一半则在中值之上。 Sub xlMedian()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
MsgBox objExcel.Application.Median(1, 2, 5, 8, 12, 13)
objExcel.Quit
Set objExcel = Nothing
End Sub
该函数在消息框中显示 6.5。
示例 2
以下函数使用“自动化”功能调用 Excel 的 ChiInv () 函数,该函数返回卡方分布的倒数或单尾概率。 Sub xlChiInv()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
MsgBox objExcel.Application.ChiInv(0.05, 10)
objExcel.Quit
Set objExcel = Nothing
End Sub
该函数在消息框中显示 18.3070290368475。
通过直接调用 Excel 引用可以简化代码: Sub xlChiInv()
MsgBox Excel.Application.ChiInv(0.05, 10)
End Sub
备注: 使用该语法时,Excel 将保留在内存中,直到重置代码或关闭数据库。
使用加载项
Excel 也使用加载项。这些程序包含自定义函数和命令。如果需要使用包含在加载项程序中的函数,请先打开加载项。以下示例使用 LCM (Least Common Multiple) 函数: Sub xlAddin()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
Opens the add-in, which is in the Analysis folder of the
Excel Library Directory.
objExcel.workbooks.Open (objExcel.Application.librarypath & _
"\Analysis\atpvbaen.xla")
Runs the AutoOpen macro in the add-in
objExcel.workbooks("atpvbaen.xla").RunAutoMacros (xlAutoOpen)
MsgBox objExcel.Application.Run("atpvbaen.xla!lcm", 5, 2)
objExcel.Quit
Set objExcel = Nothing
End Sub
该函数在消息框中显示 10。
添加回答
举报