在ACCESS中如何打开其它可执行文件

在它的程序窗口里面和vb一样用shell函数

或者

用API来调用

Private

Declare

Function

ShellExecute

Lib

"shell32.dll"

Alias

"ShellExecuteA"

(ByVal

hwnd

As

Long,

ByVal

lpOperation

As

String,

ByVal

lpFile

As

String,

ByVal

lpParameters

As

String,

ByVal

lpDirectory

As

String,

ByVal

nShowCmd

As

Long)

As

Long

这两个函数各有用处.

以下函数使用“自动化”功能调用 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。

1、定义模块：

在Access软件VB编辑界面中，单击插入，如图

定义子过程的名字为 “baidu”，并编写一个简单的子程序，如图：

模块定义已经完成了。

2、调用模块：

语法 call 模块名称

还是用刚才的例子，则可以直接调用 “baidu”这个模块：

call baidu

3、补充知识，模块的本质：

模块含义是在某个流程流转过程中可以创建一个新的流程并执行，结束后可以再次返回父流程。

---