主题：这是什么异常

已经取得了管理员权限运行 还是一样的

 

 不可能，也不应该啊。

 

 不运行你写的代码直接导入或合并数据看是否正常。

我在网上找了很久 都没有得到解决 重装 取得权限 还有说下标不能为0 超范围的 可是如果是因为导入代码的问题 我这台机应该也用不了才是 导入代码为：

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("计划表")
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value

        Tables("配载订单").ResumeRedraw()
        Tables("配载订单").StopRedraw()
        Dim nms() As  String = {"项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期"}
       
        For n As Integer = 2 To ws.UsedRange.Rows.Count -1
            Dim r As  Row = Tables("配载订单").AddNew()
            For  m As  Integer = 0 To nms.Length - 1
                If Tables("配载订单").Cols(nms(m)).IsDate Then
                    Dim d As Date
                    If Date.TryParse(ary(n,m+1), d)
                        r(nms(m)) = d
                    End If
                Else
                    r(nms(m)) = ary(n,m+1)
                   
                End If
            Next
        Next
        Tables("配载订单").ResumeRedraw()
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If
e.Form.Controls("提示").Text = "正在导入,请稍后..."
Application.DoEvents()
e.Form.Controls("提示").Text = "已经导入完成."
 e.Form.TimerInterval = 5000
  e.Form.TimerEnabled = True

 

foxtable有没有分段执行的功能 想知道在哪句代码上有异常   万能的吧神 版主们 帮忙看看这是因为什么  我要在其他电脑上运行正常 才能购买开发版  心急啊

你代码写得不够严谨吧？同样的数据，执行不会有差异，除非数据不一致。

做一个可以测试的例子发上来测试。

.

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

点击浏览该文件:201511240928.zip

汗，你把出错的excel文件发上来啊

.

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

点击浏览该文件:工作簿1.zip

呃，我直接按导入按钮，导入正常啊，没有报错。

 

你导入出错的excel文件，肯定不是这个。

一直都是这个文件 在其他电脑上点导入就报异常