请教word导入ACCESS出错问题

todaynew

aee99 发表于 2015-5-6 15:05
谢谢您老师，已修改为columns.count=2  但一样遇到错误

将以下代码：
'根据表格判断是否所需的文件
    If objDoc.Tables.Count > 0 Then
        Set objTable = objDoc.Tables(1)
        If objTable.Rows.Count = 9 And objTable.Columns.Count = 2 Then
            If objTable.Cell(4, 2).Tables.Count > 0 Then blnCheck = True
        End If
        
    End If
   
    If Not blnCheck Then Err.Raise 10001, , "不是正确的“立案呈批表”文件，无法导入。"

用以下代码替换：
blnCheck = objDoc.Tables.Count > 0
blnCheck = blnCheck and objTable.Rows.Count = 9 And objTable.Columns.Count = 2
IF blnCheck=false then
    msgbox "不是正确的“立案呈批表”文件，无法导入。"
    bjApp.Quit
    exit sub
end if

说明：
1、objTable.Cell(4, 2).Tables.Count 是指在第4行第二列嵌入的表格数，这实际不存在，所以这个代码没球意义。
2、实际只需判断是否存在一个表，这个表的行列数是不是相符即可。