5 回答

TA貢獻1820條經(jīng)驗 獲得超9個贊
1.如果是合并兩個表的話,我覺得還是將ACCESS軟件里面的數(shù)據(jù)導(dǎo)入到EXCEL里面去。在這里面做數(shù)據(jù)比較的方便,因為它就是為數(shù)據(jù)而生的。
導(dǎo)入到EXCEL里面了就使用數(shù)據(jù)透視表的功能,在提取字段的時候可以發(fā)揮出它的較大能力。當(dāng)然為了較好的使用數(shù)據(jù)透視表還是了解一些SQL數(shù)據(jù)庫的知識,因為這個數(shù)據(jù)透視表是建立在這個SQL數(shù)據(jù)庫知識上面的。
2.僅僅是提取字段的話,個人覺得還是數(shù)據(jù)透視表比較簡單。如果復(fù)雜一些的話,那就使用函數(shù)了。

TA貢獻1804條經(jīng)驗 獲得超2個贊
以下函數(shù)使用“自動化”功能調(diào)用 Excel 的 Median () 函數(shù)。數(shù)字組的一半在中值之下,而另一半則在中值之上。 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
該函數(shù)在消息框中顯示 6.5。
示例 2
以下函數(shù)使用“自動化”功能調(diào)用 Excel 的 ChiInv () 函數(shù),該函數(shù)返回卡方分布的倒數(shù)或單尾概率。 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
該函數(shù)在消息框中顯示 18.3070290368475。
通過直接調(diào)用 Excel 引用可以簡化代碼: Sub xlChiInv()
MsgBox Excel.Application.ChiInv(0.05, 10)
End Sub
備注: 使用該語法時,Excel 將保留在內(nèi)存中,直到重置代碼或關(guān)閉數(shù)據(jù)庫。
使用加載項
Excel 也使用加載項。這些程序包含自定義函數(shù)和命令。如果需要使用包含在加載項程序中的函數(shù),請先打開加載項。以下示例使用 LCM (Least Common Multiple) 函數(shù): 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
該函數(shù)在消息框中顯示 10。
添加回答
舉報