[發問] VBA使用 SQL 指令，User Defined Function(使用者自訂函數)，如何輸入2個參數。

參數內容參數1：為欄位內容，參數2：為設定的常數
VBA 中設定引用設定引用的是 Microsoft ActiveX Data Objects 2.0 Library
已經試過的內容直接引用常數時可以 Work
=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' +  trim(str(0.1)) + ')'  as 勞退個人 " & _

指定參數(宣告為常數)不Work
Const Labor_Pension_Personal_rate = 0.1
=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' +  trim(str(Labor_Pension_Personal_rate)) + ')'  as 勞退個人 " & _
錯誤訊息：參數太少，預期個數1
參考內容 Excel 巨集魔法書  李潛瑞著 page99
問題背景想要在 Excel VBA中使用SQL來計算勞健保及勞退的個人負擔金額
      lcCommandText = "SELECT 序號, 姓名,  核定本薪,  核定績效 , 薪資總額 , 勞保薪資 , 勞退薪資 , 健保薪資, " & _
                  " 勞退 , 職災, 普通事故, 就業保險, 工資墊償, 全民健保, 全民健保舊, " & _
                  "  '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' +  trim(str(Labor_Pension_Personal_rate)) + ')'  as 勞退個人 " & _

Macro_SQL_UDF.zip (13.07 KB)

樓主熱帖

Baracuda

中學生 Rank: 2

帖子: 132
主題: 25
精華: 0
積分: 199
點名: 0
作業系統: window XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
來自: 台灣新竹
註冊時間: 2010-6-1
最後登錄: 2022-7-14

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2012-1-28 15:49 | 顯示全部帖子

輸入2個參數 Source Code。

Option Explicit
Option Base 0
Sub main()
Call SQL_Insurance_Burden
End Sub
Function Multiply_2_No_Round_Down_4_Up_5(Number1 As Single, Number2 As Single) As Long
' 目的
' 2數相乘再做4捨5入
Multiply_2_No_Round_Down_4_Up_5 = Int(Number1 * Number2 + 0.5)
End Function
Sub SQL_Insurance_Burden()
Const Output_Sht = "輸出表"
Const Input_Sht = "輸出表"
Const Labor_Pension_Personal_rate = 0.1
Dim lcConnectionString As String
Dim lcConnectString, lcCommandText As String
Dim loADODBConnection As ADODB.Connection
Dim loADODBRecordset As ADODB.Recordset
lcConnectionString = "Driver={Microsoft Excel Driver (*.xls)}; " & _
"DBQ=" + ActiveWorkbook.FullName + ";" & _
"ReadOnly=True"
lcCommandText = "SELECT 序號, 姓名, 核定本薪, 核定績效 , 薪資總額 , 勞保薪資 , 勞退薪資 , 健保薪資, " & _
" 勞退 , 職災, 普通事故, 就業保險, 工資墊償, 全民健保, 全民健保舊, " & _
" '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' + trim(str(Labor_Pension_Personal_rate)) + ')' as 勞退個人 " & _
"FROM " & "[" & Input_Sht & "$" & "A1:P32]"
' Work
'1 " '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' + trim(str(0.1)) + ')' as 勞退個人 " & _
' 不 Work
'1 " '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' + trim(str(Labor_Pension_Personal_rate)) + ')' as 勞退個人 " & _
'2 " '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(勞退)) + ',' + Labor_Pension_Personal_rate + ')' as 勞退個人 " & _
Set loADODBConnection = CreateObject("ADODB.Connection")
Set loADODBRecordset = CreateObject("ADODB.Recordset")
Debug.Print lcCommandText
loADODBConnection.Open lcConnectionString
loADODBRecordset.Open lcCommandText, loADODBConnection, 3, 1, 1
Sheets(Output_Sht).Select
Dim r, f As Integer
r = 1
For f = 0 To loADODBRecordset.Fields.Count - 1
Sheets(Output_Sht).Cells(r, f + 1) = loADODBRecordset.Fields(f).Name
Next
While Not loADODBRecordset.EOF
r = r + 1
For f = 0 To loADODBRecordset.Fields.Count - 1
Sheets(Output_Sht).Cells(r, f + 1) = loADODBRecordset.Fields(f).Value
Next
loADODBRecordset.MoveNext
Wend
End Sub