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”。
请指导，感谢
加好友 
发短信
Post By：2025/4/28 14:02:00 [显示全部帖子]
