小小亮FLY

摘要： '列从1开始 1(A) 2(B) 27(AA) 28(AB) 在2003下excel最大列是IV,所以最多两位数就可以了Function GetColumnName(columnNum) Dim num num = columnNum - 1 If num < 26 Then GetColumnName = Chr(Asc("A") + num) Else GetColumnName = Chr(Asc("A")+(num\26)- 1)&Chr(Asc("A")+(num Mod 26)) End If End 阅读全文

摘要： option ExplicitDim objExcelSet objExcel = CreateObject("Excel.Application")'Set objWorkbook = objExcel.Workbooks.Open("E:\1.xls")'objExcel.Visible = True'objExcel.Cells(1, 1).Value = "Test value"Dim strVersionstrVersion = GetExcelVersion()MsgBox strVersionob 阅读全文

摘要： VBScript 变量可以不声明直接使用，如果这么做会有很大的弊端，所以还是建议强制声明为显示定义变量 ，可在文件开始处添加option Explicitoption Explicit'1 绝对值Dim MyNumber1MyNumber1 = Abs(50.3) ' Returns 50.3.MyNumber1 = Abs(-50.3) ' Returns 50.3.'2 数组使用方法1Dim A2Dim B2A2 = Array(10,20,30)B2 = A2(2) ' B is now 30.'3 数组使用方法2 注意此处比C++，jav 阅读全文