Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Sử dụng hàm của Excel trong VBA
#1
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  027
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
Chữ ký của killitmore killitmore,gia nhập Thủ Thuật Access từ 30-10 -17.
Reply
Những người đã cảm ơn
#2
(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  027
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.)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn killitmore


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 76 11,708 2 Giờ trước
Bài mới nhất: mrsiro
  Cập nhật dữ liệu Access từ dữ liệu nguồn trong Excel subasatran 1 221 11-10-18, 02:53 PM
Bài mới nhất: ongke0711
  [Hỏi] Import nhiều file Excel vào Table Access vuthaiha90 32 2,592 27-08-18, 11:06 AM
Bài mới nhất: vuthaiha90
  [Hỏi] Nhiều phần mềm Access dùng chung CSDL ?? vkaccess 10 1,300 05-08-18, 11:20 AM
Bài mới nhất: zebnguyen
  [Hỏi] Trích ngấu nhiên dữ liệu trong Table vuthaiha90 7 588 22-04-18, 12:43 PM
Bài mới nhất: vuthaiha90

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line