Tùy chọn
Sử dụng hàm của Excel trong VBA
- Sử dụng hàm của Excel trong VBA
-
Sử dụng hàm của Excel trong VBA
killitmore > 23-11-17, 12:02 PM
Hiện tại em đang muốn sử dụng hàm NETWORKDAYS.INTL của Excel trong VBA code của Access
Khi điền tham số holiday của hàm NETWORKDAYS.INTL dưới dạng recordset thì báo lỗi.
Em đã cố thử convert recordset ý thành range nhưng vẫn không được.
Mong được các cao nhân chỉ giáo
Mã:Public Function workday_intl(dt_start As Date, dt_end As Date, int_weekend As Integer, _
Optional str_country As String = "VN", _
Optional str_holiday_table As String = "TBL_HOLIDAY_LU", _
Optional str_holiday_field As String = "HOLIDAY_DATE") As Double
Dim excel_obj As New Excel.Application
Dim rst_holiday As DAO.Recordset
Set rst_holiday = CurrentDb.OpenRecordset("SELECT " & str_holiday_field & " FROM " & str_holiday_table _
& " WHERE COUNTRY = '" & str_country & "'")
workday_intl = excel_obj.WorksheetFunction.NetworkDays_Intl(dt_start, dt_end, int_weekend, _
excel_obj.Range("A1:A" & rst_holiday.RecordCount).CopyFromRecordset(rst_holiday))
Set excel_obj = Nothing
End Function -
RE: Sử dụng hàm của Excel trong VBA
maidinhdan > 24-11-17, 09:42 PM
(23-11-17, 12:02 PM)killitmore Đã viết: Hiện tại em đang muốn sử dụng hàm NETWORKDAYS.INTL của Excel trong VBA code của Access
Khi điền tham số holiday của hàm NETWORKDAYS.INTL dưới dạng recordset thì báo lỗi.
Em đã cố thử convert recordset ý thành range nhưng vẫn không được.
Mong được các cao nhân chỉ giáo
Mã:Public Function workday_intl(dt_start As Date, dt_end As Date, int_weekend As Integer, _
Optional str_country As String = "VN", _
Optional str_holiday_table As String = "TBL_HOLIDAY_LU", _
Optional str_holiday_field As String = "HOLIDAY_DATE") As Double
Dim excel_obj As New Excel.Application
Dim rst_holiday As DAO.Recordset
Set rst_holiday = CurrentDb.OpenRecordset("SELECT " & str_holiday_field & " FROM " & str_holiday_table _
& " WHERE COUNTRY = '" & str_country & "'")
workday_intl = excel_obj.WorksheetFunction.NetworkDays_Intl(dt_start, dt_end, int_weekend, _
excel_obj.Range("A1:A" & rst_holiday.RecordCount).CopyFromRecordset(rst_holiday))
Set excel_obj = Nothing
End Function
Bạn khai báo "Dim excel_obj As New Excel.Application" kiểu kết nới sớm thì bắt buộc phải đăng ký tham chiếu đến thư viện Excel là hết lỗi.
Vào mục Tool/References.......Tìm dòng Microsoft Excel 14.0 Object Libraly ( Lưu ý số 14.0 nếu là Access 2003 chọn số nhỏ hơn.)