以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问这个EXCEL的VBA语句，在FOXTABLE中如何写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130036)
--  作者：wcs
--  发布时间：2019/1/11 14:56:00
--  请问这个EXCEL的VBA语句，在FOXTABLE中如何写？
VBA代码：
Selection.Cells(i, j).Address(ReferenceStyle:=xlR1C1)

我在FOXTABLE写为这样：
_app.Selection.Cells(i, j).Address(msexcel.ReferenceStyle:=xlR1C1)
这个代码的意思是取EXCEL中被选定单元格的地址，需要返回R1C1的样式。（如果不用括号内的定义，则会返回$A$1这样的样式，我不想要）

提示找不到这个  ReferenceStyle  对象。

我在全局代码中已定义：
Public _app As MSWord.Application \'定义一个WORD对象
Public _app1 As MSExcel.Application \'定义一个EXCEL对象

已用OPEN方法打开EXCEL文件，其他相关代码运行无问题。

经测试，这个的核心问题是   无法找到  ReferenceStyle。我的定义不对。


请教了！
--  作者：有点甜
--  发布时间：2019/1/11 14:59:00
--  

方法：

 

在excel的vba那里测试，msgbox(xlR1C1)看弹出什么；

 

在foxtable里面改成 _app.Selection.Cells(i, j).Address(ReferenceStyle:=具体的数值)
--  作者：wcs
--  发布时间：2019/1/11 15:43:00
--  
弹出的是：R1C1
我想要这样的样式，不想要A1这样的样式

下述是VBA帮助中的内容：

ReferenceStyle      XlReferenceStyle 类型，可选。
--  作者：有点色
--  发布时间：2019/1/11 16:22:00
--  

 

_app.Selection.Cells(i, j).Address(ReferenceStyle:=-4152)

 

 
--  作者：wcs
--  发布时间：2019/1/11 16:29:00
--  
搞定了！
这是为什么呢？

不得其解！
--  作者：有点甜
--  发布时间：2019/1/11 17:00:00
--  
以下是引用wcs在2019/1/11 16:29:00的发言：
搞定了！
这是为什么呢？

不得其解！

 

你在excel里面执行msgbox(xlR1C1)弹出什么？

 

弹出的时候-4152啊