VBS遍历Excel工作表

最新推荐文章于 2023-05-13 23:25:15 发布

一株禾

最新推荐文章于 2023-05-13 23:25:15 发布

阅读量4.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBS

本文链接：https://blog.youkuaiyun.com/chuhe163/article/details/79072492

VBS 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码通过拖拽文件的方式获取文件路径，并使用VBA批量打开Excel文件，对每个文件中的所有工作表进行简单的编辑操作，如将A1单元格设置为“成功”。此方法适用于需要对多个Excel文件进行统一处理的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'******************************************
'拖拽文件，获取文件路径
'******************************************
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
'******************************************
'遍历工作簿的所有工作表
'******************************************
for j= 1 to oWb.sheets.count
	set oSheet=oWb.Sheets(j)
	'选中并激活工作表
	oSheet.Activate
	oSheet.Range("A1")="成功"

next