摘要：
Sub UpdateClientDetailWGQ() Dim Wb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim Arr As Variant Dim Brr As Variant Dim dData As Object Dim dRow As Object Dim K... 阅读全文
posted @ 2017-09-23 06:58
wangway
阅读(247)
评论(0)
推荐(0)
摘要：
'建立应用环境进程 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
阅读(882)
评论(0)
推荐(0)
摘要：
'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
阅读(257)
评论(0)
推荐(0)
摘要：
'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
阅读(237)
评论(0)
推荐(0)
摘要：
Sub GetCellTextFromWordDocument() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 'On Err... 阅读全文
posted @ 2017-09-22 11:58
wangway
阅读(262)
评论(0)
推荐(0)
摘要：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2=10),"万零","万")),"零分","整") 阅读全文
posted @ 2017-09-21 10:12
wangway
阅读(155)
评论(0)
推荐(0)
摘要：
Sub 租房() Dim Wb As Workbook Dim Sht As Worksheet Dim OpenWb As Workbook Dim OpenSht As Worksheet Dim FolderPath As String Dim FileName As String Dim FilePath As String ... 阅读全文
posted @ 2017-09-14 15:45
wangway
阅读(247)
评论(0)
推荐(0)
摘要：
Public Sub BatchImportTextFiles() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>... 阅读全文
posted @ 2017-09-13 09:28
wangway
阅读(1408)
评论(0)
推荐(0)
摘要：
import threading #导入线程 from urllib import request #导入网页请求模块 import re #导入正则表达式模块 import os # 引入模块 from openpyxl import Workbook from... 阅读全文
posted @ 2017-09-12 17:33
wangway
阅读(1170)
评论(0)
推荐(0)
摘要：
'WORD 加载项 代码模板 Dim cmdBar As CommandBar, cmdBtn As CommandBarControl Const cmdBtnCap As String = "批量提取操作步骤" Sub AutoExec() Call DelCmdBtn Call AddCmdBtn End Sub Sub AutoExit() ... 阅读全文
posted @ 2017-09-07 13:39
wangway
阅读(249)
评论(0)
推荐(0)
浙公网安备 33010602011771号