- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]EXCEL公式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175004)
-- 发布时间：2022/2/15 17:37:00
-- [求助]EXCEL公式
单元格公式可以象下面这样统计吗
此主题相关图片如下：微信图片_20220215173634.png
-- 发布时间：2022/2/15 19:09:00
--
变通解决了
-- 发布时间：2022/2/21 22:02:00
--
EXCEL中的数据验证设置，在模板中设置的时候是可以的，下拉框是可以打开的，但设置完成在项目中打开报表的时候下拉框就没有了，为什么不行呢
此主题相关图片如下：微信图片_20220221220147.png
[此贴子已经被作者于2022/2/21 22:04:40编辑过]
-- 发布时间：2022/2/21 22:06:00
--
模板不支持execl内置的各种设置的
-- 发布时间：2022/2/22 10:34:00
--
哦，那象这种下拉框有什么变通办法解决吗
-- 发布时间：2022/2/22 10:47:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=142184&skin=0
-- 发布时间：2022/2/24 18:13:00
--
已解决
[此贴子已经被作者于2022/2/24 18:36:07编辑过]
-- 发布时间：2022/2/25 14:07:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\ABC.xlsx")
Dim fl As String = ProjectPath & "Reports\\ABC.xlsx"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
Dim s1 As String = DataTables("店铺档案").SQLGetComboListString("事业部")
s1 = s1.Replace("|",",")
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\\ABC.xlsx")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets(3)
With Ws1.Range("O1").Validation
.Delete
.Add(Type:=MSExcel.XlDVType.xlValidateList, AlertStyle:=MSExcel.XlDVAlertStyle.xlValidAlertStop, Operator:=MSExcel.XlFormatConditionOperator.xlBetween, Formula1:=s1)
End With
以上会同时打开两个文件，要怎么调整呢
[此贴子已经被作者于2022/2/25 14:07:00编辑过]
-- 发布时间：2022/2/25 14:47:00
--
去掉
Dim Proc As New Process
Proc.File = fl
Proc.Start()
-- 发布时间：2022/2/25 14:59:00
--
试过，去掉之后，表中的其他设置都无效了
不管去不去掉，App.WorkBooks.Open这里打开的表，除了下拉框其他都是失效的，都是模板设置下的状态，没有生成细节区
如何在下面代码中生成细节区呢
Dim s1 As String = DataTables("店铺档案").SQLGetComboListString("事业部")
s1 = s1.Replace("|",",")
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\\ABC.xlsx")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets(3)
With Ws1.Range("O1").Validation
.Delete
.Add(Type:=MSExcel.XlDVType.xlValidateList, AlertStyle:=MSExcel.XlDVAlertStyle.xlValidAlertStop, Operator:=MSExcel.XlFormatConditionOperator.xlBetween, Formula1:=s1)
End With
[此贴子已经被作者于2022/2/25 15:33:14编辑过]