主题：[求助]我在导入excel2010格式数据时出错，如何解决？

Dim Book As New XLS.Book("D:\工作台\350幅臂.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("汽车吊性能参数").StopRedraw()

Dim num As Integer=0

For c As Integer = 2 To sheet.Cols.Count-1

    For r As Integer = 6 To 40

        If sheet(r,c).Value<>"" Then

            Dim rw As Row = Tables("汽车吊性能参数").AddNew()

            rw("车型") = "SANY350-70"

            rw("工况类型")="副臂"

            rw("支腿")="全伸"

            rw("副臂长")=sheet(2,c).Value

            rw("配重")=sheet(3,c).Value

            rw("副臂角度")=sheet(4,c).Value

            rw("主臂长")=sheet(5,c).Value

            rw("幅度")=sheet(r,1).Value

            rw("起重量")=sheet(r,c).Value

            rw("主臂组合")=sheet(46,c).Value

            num=num+1

        Else

            Continue For

        End If

    Next

Next

Tables("汽车吊性能参数").ResumeRedraw()

MessageBox.Show("共成功导入" & num & "条数据!")

此主题相关图片如下：qq截图20150524145308.png