2017年9月22日
20170920xlVBA_FTP_UpDownLoad_DownLoad
摘要： '建立应用环境进程 Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, B... 阅读全文
posted @ 2017-09-22 12:05 wangway 阅读(807) 评论(0) 推荐(0) 编辑
2017-09-21xlVBA_蒸发SQL循环查询1
摘要： 'ARRAY("1991","1992","1993","1994","1996","1997","1998","1999","2001") Sub ADO_SQL_QUERY_ONE_RNG() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application... 阅读全文
posted @ 2017-09-22 12:03 wangway 阅读(253) 评论(0) 推荐(0) 编辑
20170921xlVBA_SQL蒸发循环查询2
摘要： 'ARRAY("1991","1992","1993","1994","1996","1997","1998","1999","2001") Sub ADO_SQL_QUERY_ONE_RNG() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application... 阅读全文
posted @ 2017-09-22 12:03 wangway 阅读(229) 评论(0) 推荐(0) 编辑
20170922xlVBA_GetCellTextFromWordDocument
摘要： Sub GetCellTextFromWordDocument() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 'On Err... 阅读全文
posted @ 2017-09-22 11:58 wangway 阅读(257) 评论(0) 推荐(0) 编辑