2012年3月11日
VBScript Excel 行和列的复制
摘要： option ExplicitDim objExcelDim objWorkbookDim tempGPTScriptSub GPTScript Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("E:\1.xls") objExcel.Visible = True Call CopyRowToAnother(1, 2, 30) '把第一个sheet页面中的第2行复制到第30行 Call CopyColumnToAn 阅读全文
posted @ 2012-03-11 23:41 小小亮FLY 阅读(1001) 评论(0) 推荐(0)
VBScript Excle列中相同元素进行合并
摘要： 合并指定列的相邻单元格中相同的元素option ExplicitDim objExcelDim objWorkbookDim tempGPTScriptSub GPTScript Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("E:\1.xls") objExcel.Visible = True Call CombineSameValue(3, 33) '测试第三列，共33行End Sub'可能存在合并的 阅读全文
posted @ 2012-03-11 01:50 小小亮FLY 阅读(271) 评论(0) 推荐(0)