'日志输出定义'--------------------------------shuchulog = 1 '0不输出日志，1输出日志logh = 0 '日志输出行初始值logl = "A" '日志输出列Dim logsheet As WorksheetSet logsheet = ThisWorkbook.Worksheets("shuchulogs") '定义日志输出工作表名'日志输出点'--
Function UDecode(ByVal UCode As String) As String Dim oHtml As Object Set oHtml = CreateObject("htmlfile") With oHtml Set oWindow = .parentWindow With oWindow .execSc
VBA调用cmd自动打开网页代码备份
VBA实现双击单元格自动输出对号再次双击取消对号
Sub 通过城市编码获取天气信息()'创建对象Dim xmlHttp As ObjectSet xmlHttp = CreateObject("MSXML2.XMLHTTP")'发送请求xmlHttp.Open "GET", "http://wthrcdn.etouch.cn/weather_mini?citykey=101010100", FalsexmlHttp.sendRange("A1")
char或chr值对应大全
Sub qigemingzi() '起个名字'--------------------------------Sheets("表名").Select '选中一个表Dim tmstms = Timer '获取当前时间Application.ScreenUpdating = False
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号
