代码如下
Option Explicit
Dim objXLApp
Dim objXLBook
Set objXLApp = WScript.CreateObject("Excel.Application")
'注意以下的“e/data_test.xls”的位置需要修改为包含宏的那个excel的实际位置
'位置需要设置为绝对路径
Set objXLBook = objXLApp.Workbooks.Open("f:/abc.xlsm" )
'doChangeExcel即为excel中的宏方法的名称
objXLApp.Run "abc"
'objXLBook.Saved = True
objXLBook.Save
objXLBook.Close
Set objXLBook = Nothing
objXLApp.Quit
Set objXLApp = Nothing
WScript.Quit
但是出现了以下错误,请各位大大看看,帮忙解决一下,谢谢
我是把这些语句放到了.vbs文件中的,而且名为abc的excel中确实有名为abc的宏,为什么我就不好使呢???出现了问题图片的错误
追答我是在VBA里测试可以运行的,你可以试试WScript.CreateObject改为CreateObject
关于vbs调有excel宏的问题
objXLApp.Run "abc",这条语句是调用“f:\/abc.xlsm”文件里的一个宏过程,所以abc.xlsm文件里必须要有一个名为abc的宏,而不是该文件名为“abc”。我创建这样一个工作簿文件,并修改了代码,可以运行。Sub test()Dim objXLApp Dim objXLBook Set objXLApp = CreateObject("Excel.Application")...
EXCEL运行VBS脚本出错?
这个宏是有个漏洞:因为你没加with……End with 限制作用sheet对象,导致这个宏可以在任何表上执行,举个例子:当你的表2处于激活状态时(窗口显示表2的内容),执行宏后, Cells(i + 1, 1) = Sheets(i).Name 将直接在表2的A2、A3、A4……写入表名,其他没被激活的表的A2、A3、A4……不受...
vbs操作excel的问题,请大家帮忙啊
If msword.Tasks.Exists("Microsoft Excel") = True Then msword.Tasks("Microsoft Excel").WindowState=wdWindowStateMaximize End If msword.Quit Set msexcel=GetObject(,"Excel.Application")msexcel.WorkSheets(1).cells(1,1).Activate msexcel.Activesheet.cells(1,1).value=data '===说明===...
vb创建带宏的excel的问题
大哥,Excel里面本身就有宏的。打开Excel后,按Alt+F8就行了,或者“工具”——(下拉)宏,然后你就可以自己用vb语言编程了,录制也行。个人认为录制比较方便,然后用“For Each 。。。”语句改改最快了
如何用vbs实现excel添加新工作表?
1、首先,在Excel中按快捷键“Alt + F11”,如下图所示。2、其次,在VBA编辑器中依次单击“插入”-->“模块”,如下图所示。3、然后,在“模块”中输入如下代码:Option Explicit Sub addwork()Sheets.Add after:=Sheets(Sheets.Count)End Sub 4、接着,在VBA编辑器的左侧输入模块的名称,如下...
VBS 环境下如何调用EXCEL内置函数
前面加WorksheetFunction即可,例如 WorksheetFunction.VLOOKUP 不过有些是用不了的,你这三个我看了一下都是可以用的。
现在想用VBS创建一个Excel,并将数据库中的值写入Excel中,但是出现...
你就把在Excel对应的日期那个文本框的格式改为跟你写的日期一样的格式。比如:2010\/08\/06。那么你就在Excel对应的文本框右击选择文本框设定,表示形式-日期-XXXX\/XX\/XX然后出来的就一样是日期了。。。但是貌似连时、分、秒都显示出来。你就可以在VB后面加上:Private Sub UserForm_Initialize()Me.xx...
vbs或者vb操作excel
确保若打开某一文件,数据就能看见——即不用点其他sheet。建一新Excel,也存到该文件夹。仅打开该新Excel,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub Find()Application.ScreenUpdating = False Dim MyDir As String MyDir = ThisWorkbook.Path & "\\"ChDrive Left(MyDir, 1...
[VBS]请问在excel单元格中插入字符串的问题。
在Excel中,处理单元格问题时,有时会遇到将一个特定公式应用于多个单元格的情况。例如,你可能有一个公式需要应用到当前单元格以及它的上下左右邻近单元格。在VBA宏语言中,有几种方法可以实现这个目标,其中一种是使用相对引用与绝对引用的组合。假设你有一个公式需要在当前单元格之外的特定位置应用,...
怎样用VBA宏输入EXCEL用户编辑区域密码?
"if wsh.appactivate("VBAProject 密码") then wscript.sleep 500: wsh.sendkeys "123@abc~"写在记事本里保存为123.vbs,放个快捷方式在桌面,快捷方式设置下:快捷键设置个F7之类不常用不容易冲突的,确定,重启电脑,打开有保护的excel文件,到输入密码的界面,按F7,自动输入密码,搞定。