?? 怎樣通過automation直接運行excel中的宏.txt
字號:
這 要 利 用 Excel的 Application.Run方 法 。 具 體 做 法 如 下 :
假 設 你 的 Book2.xls中 有 一 個 HelloWorld的 宏 :
Sub HelloWorld(sName As String)
MsgBox "Hi, " + sName +"!"
End Sub
在 VB中 采 用 如 下 代 碼 就 可 以 調 用 Excel的 宏 。
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
appExcel.Workbooks.Open "G:\My Documents\book2.xls"
appExcel.Run "HelloWorld", "zhixiong lin"
<END>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -