摘要：'定义变量 Dim arr1 '数组赋值 arr1 = array(3, 6, 8, 7, 1, 2, 9,10) For m = 0 To UBound(arr1) For i = m+1 To UBound(arr1) k=arr1(m) If arr1(m) < arr1(i) Then arr1(m) = arr1... 阅读全文

摘要：Dim fso,f,a set oExcel = CreateObject( "Excel.Application" ) oExcel.Visible = false '4) 打开已存在的工作簿： oExcel.WorkBooks.Open( "F:\1.xlsx" ) On Error Resume Next '判断是否存在Sheet2工作表,不存在新建 If oExcel.Wor... 阅读全文

摘要：Vbs查找Excel中Sheet2工作表是否存在,不存在创建个新工作表 阅读全文

摘要：VBS控制Excel的一些常见方法：(一)使用动态创建的方法 首先创建Excel对象，使用ComObj: oExcel=CreateObject("Excel.Application")1)显示当前窗口： oExcel.Visible=True2)更改Excel标题栏： oExcel.Caption="应用程序调用MicrosoftExcel"3)添加新工作簿： oExcel.WorkBooks... 阅读全文

摘要：set oExcel = CreateObject( "Excel.Application" ) '创建oExcel对象 oExcel.Visible = false '4) 打开已存在的工作簿： oExcel.WorkBooks.Open( "C:\Users\Desktop\123.xlsx" ) '5) 设置第1个工作表为活动工作表： oExcel.WorkSheets(1).Activ... 阅读全文

摘要：vbs代码: test.txt内容 阅读全文