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编辑过]
加好友 
发短信
Post By：2022/2/15 17:37:00 [显示全部帖子]
此主题相关图片如下：微信图片_20220215173634.png
