摘要：
setobjExcelApp=createObject("Excel.Application")2objExcelApp.DisplayAlerts=false3objExcelApp.Application.Visible=false4objExcelApp.WorkBooks.add5setobjExcelBook=objExcelApp.ActiveWorkBook6setobjExcelSheets=objExcelBook.Worksheets7setobjSpreadsheet=objExcelBook.Sheets(1)89DimobjField,iCol,i 阅读全文
摘要：
interiorfontHTMLbgcolor=Red<GreenBlueColorBlack[Color 1]#000000#000000000[Black]White[Color 2]#FFFFFF#FFFFFF255255255[White]Red[Color 3]#FF0000#FF000025500[Red]Green[Color 4]#00FF00#00FF0002550[Green]Blue[Color 5]#0000FF#0000FF00255[Blue]Yellow[Color 6]#FFFF00#FFFF002552550[Yellow]Magenta[Color 7 阅读全文
摘要：
1、Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为 12、On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息3、On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置4、On Error GoTo 0 '恢复正常的错误提示5、App 阅读全文