专家坐堂-VBA转孤表代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  VBA转孤表代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153121)

--  作者：zhuxinhui
--  发布时间：2020/7/31 15:52:00
--  VBA转孤表代码
For I = 3 To Sheets("日报").[B65536].End(xlUp).Row
Range("A" & I) = IIf(Range("A" & I) = "销售开单", Range("A" & I - 1), (IIf(Range("A" & I) = "销售退货", Range("A" & I - 1), (IIf(Range("A" & I) = "小计", "小计", (IIf(Range("A" & I) = "发出结算", Range("A" & I - 1), (IIf(Range("A" & I) = " ", " ", Range("A" & I))))))))))
Next
如何把这句VBA代码转化成在孤表也能操作EXCEL表的代码呢？

--  作者：有点蓝
--  发布时间：2020/7/31 16:03:00
--

参考：http://www.foxtable.com/webhelp/topics/2121.htm

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim r = ws.cells(65535,2).End(MsExcel.XlDirection.xlUp).Row
For I as integer = 3 To r
Ws.Range("A" & I) = IIf(Ws.Range("A" & I) = "销售开单", Ws.Range("A" & I - 1), (IIf(Ws.Range("A" & I) = "销售退货", Ws.Range("A" & I - 1), (IIf(Ws.Range("A" & I) = "小计", "小计", (IIf(Ws.Range("A" & I) = "发出结算", Ws.Range("A" & I - 1), (IIf(Ws.Range("A" & I) = " ", " ", Ws.Range("A" & I))))))))))
Next

App.quit

--  作者：zhuxinhui
--  发布时间：2020/7/31 17:00:00
--
弹出了这个窗口
此主题相关图片如下：qq截图20200731165903.png

--  作者：zhuxinhui
--  发布时间：2020/7/31 17:01:00
--
测试了很久，用其他的公式处理了，但是这句代码还是不知是什么原因出弹出这个提示的

--  作者：有点蓝
--  发布时间：2020/7/31 17:11:00
--
Ws.Range("A" & I).Value = ...........

--  作者：zhuxinhui
--  发布时间：2020/7/31 18:04:00
--
这个也是弹出刚才的提示

--  作者：有点蓝
--  发布时间：2020/8/2 9:30:00
--
请上传实例测试