标题：[求助]打开excel异常

Dim s1 As String = DataTables("汇总表").GetComboListString("事业部")

s1 = s1.Replace("|", ",")

Dim s2 As String = DataTables("汇总表").GetComboListString("区经")

s2 = s2.Replace("|", ",")

Dim s3 As String = DataTables("汇总表").GetComboListString("核算方式")

s3 = s3.Replace("|", ",")

 

Dim App As New MSExcel.Application

App.Visible = True

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(fl)

For i As Integer = 1 To Book.Sheets.Count

    Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets(i)

    With Ws1.Range("C1").Validation

        .Delete

        .Add(Type:=MSExcel.XlDVType.xlValidateList, AlertStyle:=MSExcel.XlDVAlertStyle.xlValidAlertStop, Operator:=MSExcel.XlFormatConditionOperator.xlBetween, Formula1:=s1)

    End With

    With Ws1.Range("E1").Validation

        .Delete

        .Add(Type:=MSExcel.XlDVType.xlValidateList, AlertStyle:=MSExcel.XlDVAlertStyle.xlValidAlertStop, Operator:=MSExcel.XlFormatConditionOperator.xlBetween, Formula1:=s2)

    End With

Next

上述提示以下错误，不知哪里问题

此主题相关图片如下：微信图片_20250325150748.png

试试

还是不行，不过奇怪的是，我原先弄的项目是没问题的，这个代码也是从原先项目中复制过来的，在新项目中就是有问题

那就不知道什么问题了，上传实例测试一下

晕，原来是下面档案数据没加载进来造成的

我也不知道哦

点击按钮打开excel文件时，很长时间后跳出以下问题，如何解决

提示读写数据库的问题。是不是放到了异步函数里使用的？

我是生成数据和打开excel分开两个按钮执行的，只是打开excel的时候有问题，打开excel的代码就下面这么简单