| 以文本方式查看主题 - 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=196449) |
| -- 作者：HANZHIGANG -- 发布时间：2025/4/28 14:02:00 -- EXCEL合并时出现错误提示 DataTables("明细汇总").DataRows.Clear() Dim dlg As New OpenFileDialog dlg.Filter = "Excel文件|*.xls;*.xlsx" If dlg.ShowDialog = DialogResult.OK Then Dim Book As New XLS.Book(dlg.FileName) For Each Ws As MSExcel.WorkSheet In Book.Sheets If Ws.Name.Contains ("理想") Then Dim Sheet1 As XLS.Sheet = Book.Sheets("理想") If Sheet1.Rows.Count > 4 Then For n1 As Integer = 2 To Sheet1.Rows.Count - 1 Dim a0 As String = sheet1(n1, 0).Text Dim a1 As String = sheet1(n1, 1).Text Dim a2 As String = sheet1(n1, 2).Text Dim a3 As String = sheet1(n1, 3).Text Dim a4 As String = sheet1(n1, 4).Text Dim a5 As String = sheet1(n1, 5).Text Dim a7 As String = sheet1(n1, 7).Text Dim a8 As String = sheet1(n1, 8).Text Dim a9 As String = sheet1(n1, 9).Text Dim a10 As String = sheet1(n1, 10).Text Dim a11 As String = sheet1(n1, 11).Text Dim a12 As String = sheet1(n1, 12).Text Dim a13 As String = sheet1(n1, 13).Text Dim a14 As String = sheet1(n1, 14).Text Dim r1 As Row = Tables("明细汇总").AddNew r1 ("序号") = a0 r1 ("客户") = a1 r1 ("车型") = a2 r1 ("VIN码") = a3 r1 ("数量") = a9 r1 ("里程") = a10 r1 ("运输商") = "新联达" r1 ("主车车牌号") = a4 r1 ("始发地") = a5 r1 ("目的地") = a7 r1 ("起运日期") = a8 r1 ("乙方每台单价（未税)") = a11 r1 ("乙方每台单价（含税)") = a12 r1 ("丙方运价（未税）") = a13 r1 ("丙方运价（含税）") = a14 Next End If End If Next End If 用以上代码合并时，出现错误提示 无法将类型为“Foxtable.XLS.Sheet”的对象强制转换为类型“Microsoft.Office.Interop.Excel.Worksheet”。 请指导，感谢
|
| -- 作者：有点蓝 -- 发布时间：2025/4/28 14:07:00 -- XLS.Sheet和MSExcel是两种完全不同的功能，不能混用。乱折腾还不如多看看帮助：http://www.foxtable.com/webhelp/topics/1465.htm 这个代码也没有必要使用MSExcel If dlg.ShowDialog = DialogResult.OK Then Dim Book As New XLS.Book(dlg.FileName) For Each Sheet1 As XLS.Sheet In Book.Sheets If Sheet1.Name.Contains ("理想") Then If Sheet1.Rows.Count > 4 Then For n1 As Integer = 2 To Sheet1.Rows.Count - 1 |