Skip to main content
lastDate As Date on Muck Rack

lastDate As Date

Is this you? As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work. Claim your profile

Get in touch with lastDate As

Contact lastDate As, search articles and posts on X, monitor coverage, and track replies from one place.

Learn more about Muck Rack

Actions

Share this page

Is this you?

As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work.
Claim your profile

Articles

Excel VBA【代码】采购明细汇总：WPS数据库连接字符串|类模块设置控件事件

|
By sql As String, supplierName As String, lastDate As Date
| 360doc.com
1、在myModule里，dataQuery自定义函数，执行SQL查询，把结果存到一个数组里： Function dataQuery(sql As String) Dim dbs As String Dim cnn As Object, rs As Object Dim strCnn As String Dim arr() dbs = ThisWorkbook.FullName Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") '//如果高版本连接字符串出错，就尝试低版本的。 '//如果是使用WPS，它会使用低版本的连接字符串 On Error GoTo ErrorHandler strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbs & ";Extended Properties='Excel 12.0;HDR=Yes;IMEX=2';" cnn.Open strCnn GoTo...
Open in Who Shared Issue with article?
See all 1 articles