主题：导入Excel

导入Excel出现问题，如上

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:data.xls

额，我们加密了，我新建一个怎么也到不进来了

好了，数据表重新建了一遍，现在我想做的是原先是int型的列，一次为1,2,3,4等等，我现在从Excel中导出之后重新导入，我想变成DQ1，DQ2，DQ3等等，我该怎么编写代码

 str = "地区" & CStr('" & Sheet(n,2).Value &"')

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

导入数据行数有限制吗？我导入三千多行数据，导入失败，导入两行就成功，并且导入失败之后foxtable中表为空白
此主题相关图片如下：截图03.png

我的提示信息是导入失败，可以捕获错误吗？错误原因，我的代码如下

Dim dlg As New OpenFileDialog
Dim dr As DataRow
Dim str As String
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName) 'Excel表
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim n As Integer = 0
    Try
        Connections("ERPDatabase").BeginTransaction() '开始事务
        Dim cmd As new SQLCommand
        cmd.C
        DataTables("地区").StopRedraw
        str = "DQ" &  CStr(Sheet(n,0).Value)
        Do While n <= Sheet.Rows.Count -1
         cmd.CommandText = "insert into {地区分类表}(ERP编码,编码,地区,从属于,邮政编码,层次) values('"& str &"','" & Sheet(n,0).Value &"','" & Sheet(n,2).Value &"','"& Sheet(n,1).Value &"','" & Sheet(n,3).Value &"','"& Sheet(n,5).Value &"')"
           cmd.ExecuteNonQuery
        n=n+1
        If  Sheet(n,0).Value = "" Then
            Exit Do
        End If
         Loop
        Connections("ERPDatabase").Commit '提交事务,所有操作生效
        DataTables("地区").ResumeRedraw()
       
        MessageBox.Show("导入成功!")
    Catch ex As Exception '如果出错
        Connections("ERPDatabase").Rollback() '回滚事务,撤销所有操作
        MessageBox.Show("导入失败,请检查Excel表!","警告")
    End Try

这时Excel内容，还能跟单引号有关系吗？但是都有啊，我导入两行可以的
此主题相关图片如下：截图04.png

有什么可以捕捉的提示信息吗？我这里加密了啊，表不好给你

现在是我导入两行可以，多行就不行了