Question

如何通过VBS编写脚本程序，读取EXCEL当前选择的单元格的地址，放入txt里（注意不是VBA）

想通过记事本编写vbs脚本程序，读取打开的excel当前选定的单元格地址，并且把地址写入txt。vba可以读取Activecell，但在vbs里无法执行Activecell，望高手指点

Answer 1

Set xls = GetObject(, "Excel.application")
Set ActiveCell = xls.ActiveCell
MsgBox ActiveCell.Address

注意要保证获取到的xls对象的当前工作簿就是你要获取的那个，当有多个excel进程时这一点尤其重要，vba的多年老毛病了，到2017了也没见改正，真无语

追问

谢谢，程序可以得到地址，麻烦还想问一下，如何能分别获得当前选定单元格的行和列信息呢？

追答

MsgBox ActiveCell.Row & "," & ActiveCell.Column' 行,列

追问

谢谢大神，达到了我预想的效果。还想问一下，为什么直接使用ActiveCell.Row可以获得行的值，但是通过txt编写vbs时，写 Set ActiveCellRow =ActiveCell.Row 就会报错，显示缺少对象：‘ActiveCell.Row’呢？

追答

ActiveCell.Row '是属性，并不是对象，set用于初始化对象，所以会报缺对象,你应该用：
ActiveCellRow =ActiveCell.Row

Answer 2

奉和圣制从蓬莱向兴庆阁道中(王维)积雨辋川庄作(王维)