Dim Book As New XLS.Book("d:\问题\202405041636543400100 (2).xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim r As Row = Tables("表A").AddNew()
r("地市") = sheet(n, 0).Text
r("设备编码") = sheet(n, 3).Text
Dim s As String = ProjectPath & "Attachments\" & r("设备编码") & n & ".jpg"
If Sheet(n, 8).SaveImage(fl) Then '如果照片保存成功
dr("告警图片") = fileSys.GetName(fl)
End If
Next