随笔分类 -  VBA/VBS

VBS - 打开Excel和一些addin
摘要：@Echo ONSet Launcher="C:\xxx\xx.exe"set Config="C:\xxx\CLIP.cfg"set TargetPath=C:\temp\set LaunchFile=Calculator.xlsECHO hostnameHostname | find "Loc" >NULIf not errorlevel 1 GOTO Loc:Locset LaunchPath=\\xxx\GOTO CALLAPP:CALLAPPECHO F| xcopy "%LaunchPath%%Launch 阅读全文
posted @ 2013-11-26 17:58 LevyFan 阅读(339) 评论(0) 推荐(0)
VBA - 抓取别的Excel 表格中的内容
摘要：Set wbCur = ActiveWorkbookSet objExcel = CreateObject("Excel.application")For i = 1 To nbDay today = Range("contribStart").Offset((i - 1) * nbCFPerDay + 1, 0) year = Application.WorksheetFunction.Text(today, "yyyy") monthAndDay = Application.WorksheetFunction.Text(today 阅读全文
posted @ 2013-11-26 17:05 LevyFan 阅读(711) 评论(0) 推荐(0)