VBS控制Excel

最新推荐文章于 2020-12-09 11:41:21 发布

一株禾

最新推荐文章于 2020-12-09 11:41:21 发布

阅读量575

点赞数 1

分类专栏： VBS

本文链接：https://blog.csdn.net/chuhe163/article/details/79072206

版权

VBS 专栏收录该内容

12 篇文章 2 订阅

订阅专栏

'******************************************  
'  
'拖拽文件，获取文件路径  
'  
'******************************************  
If wscript.Arguments.count=0 then   
        msgbox "拖拽文件到本图标",0,"提示"  
End if   
  
    
for a=0 to  wscript.Arguments.count-1  
  
    strPath=wscript.Arguments(a)      
      
next  
'******************************************  
'  
'定义Excle对象、工作薄对象、工作表对象  
'  
'******************************************  
dim oExcel,oWb,oSheet  
  
set ws=WScript.createobject("wscript.shell")  
Set oExcel=CreateObject("Excel.Application")  
'打开指定的工作簿  
Set oWb=oExcel.Workbooks.Open(strPath)  
'显示打开的Excel工作簿  
oExcel.visible=true