- 博客(4)
- 收藏
- 关注
RSS订阅转载 excel vba使用SQL查询最新日期各厂、物料单价
表头() EXCEL2007 工作表名称：MXSub CreateRecordset1()Application.Calculation = xlManual Dim cnn As Object Dim rst As Object Dim strPath As String Dim strSQL As String Dim lngCount As ...
2018-12-18 16:08:21
1362
转载 VBA窗体最大化、最小化、调整大小
VBA窗体最大化、最小化、调整大小Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Functi...
2018-12-15 08:48:34
11540
原创 '自定义简单查询SQL赋值到数组
'自定义简单查询SQL赋值到数组'Public JLH As Long '长整数变量；工作表记录所在行'Public JLL As Long '长整数变量；工作表记录所在行Function SQL_JDCX(F_Url As String, F_strSQL As String) As Variant 'F_Url '定义数据库链接字符串，连接方法、服务器名称、数据库名称、数据库账...
2018-12-07 16:55:53
1894
转载 数组写入listview
Public Sub AddHeaders(arr, ListView1 As Object)'读入二维数组第一行写入到表头'示例 AddHeaders arr,UserForm1.listview1 Dim i& ListView1.ColumnHeaders.Clear For i = 1 To UBound(arr, 2) ListView...
2018-12-07 16:12:13
1991
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人