主题：导入数据出错

DataTables("汽运公司发货明细").Find("车号 = '" & ch & "' and 品种 = '" & pz & "' and 日期 = '" & rq & "' and 规格 = '" & gg & "' And 件数 = '" & js & "'And 吨位 = '" & dw & "'" )

改成

DataTables("汽运公司发货明细").Find("车号 = '" & ch & "' and 品种 = '" & pz & "' and 日期 = #" & rq & "# and 规格 = '" & gg & "' And 件数 = '" & js & "'And 吨位 = '" & dw & "'" )

你应该判断一下，rq、gg、js、dw等值是不是为空的，为空的时候合成的条件不一样，如

Dim rq As String = sheet(n,0).Text
Dim pz As String = sheet(n,3).Text
Dim gg As String = sheet(n,4).Text
Dim js As String = sheet(n,5).Text
Dim dw As String = sheet(n,6).Text
Dim ch As String = sheet(n,7).Text
Dim filter As String = "1=1"
If ch = Nothing Then
    filter &= " and 车号 is null"
Else
    filter &= " and 车号 = '" & ch & "'"
End If
If pz = Nothing Then
    filter &= " and 品种 is null"
Else
    filter &= " and 品种 = '" & pz & "'"
End If
msgbox(filter)
If DataTables("汽运公司发货明细").Find(filter) Is Nothing Then '如果不存在同编号的订单