我正在用 VBA 编写一个 Excel 宏,向图书馆顾客发送电子邮件,提醒他们逾期的资料。数据来自电子表格,其中包含以下数据
UserID Name Email Title Author Barcode Call Number Borrowed Date Due Date
user2 Jones, Bob bob@jones Title1 A. Baker a0001 H00027C 11/23/2014 1/1/2015
user2 Jones, Bob bob@jones Title2 C. Dalton b0002 S00406R 11/23/2014 1/1/2015
user3 Smith, Mary bob@jones Title3 E. Franklin c0003 M00174R 11/23/2014 1/1/2015
user3 Smith, Mary mary@smith Title4 F. Gelt d0004 M00157G 11/23/2014 1/1/2015
user3 Smith, Mary mary@smith Title5 H. Ivers e0005 M00081G 11/23/2014 1/1/2015
我从用户定义的书籍和顾客类型开始,并为每个顾客提供了一系列书籍。我尝试将顾客传递给函数来生成电子邮件文本,但显然我无法将用户定义的类型作为参数传递。所以,现在我正在尝试上课。
我想要一个Book
与会员一起上课
Public book_title As String
Public date_borrowed As Date
Public date_due As Date
Public barcode As String
Public call_number As String
and a EmailData
与会员一起上课
Public email_text As String
Public patron_name As String
Public patron_email As String
Public sender_email As String
Public book_list() As Book
where book_list
是一个数组Book
对象和方法sendEmail()
.
但是,这不起作用,因为显然我无法定义数组Book
对象作为 an 的成员EmailData
目的。
那么,我的方法是什么?我听说过收藏。这会是一个解决方案吗?