Đá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
  [Hỏi] Cách tăng tốc độ Copy Paste Excel sang Access vuthaiha90 2 41 7 Giờ trước
Bài mới nhất: vuthaiha90
  [Hỏi] Trộn văn bản Word từ dữ liệu trong table Access vuthaiha90 15 433 17-04-19, 10:02 AM
Bài mới nhất: Xuân Thanh
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 20 8,208 15-04-19, 03:48 PM
Bài mới nhất: Xuân Thanh
  Kết nối Access với Database Oracle trong mạng LAN macd 3 179 12-04-19, 12:59 PM
Bài mới nhất: Xuân Thanh
  [Hỏi] Import nhiều file Excel vào Table Access vuthaiha90 33 4,357 16-01-19, 11:45 PM
Bài mới nhất: khuuquytrung

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| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối