请教word导入ACCESS出错问题

aee99

请老师帮查看代码是哪里出错？谢谢

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、实际只需判断是否存在一个表，这个表的行列数是不是相符即可。

zpy2

columns.count=2

aee99

zpy2 发表于 2015-5-6 04:35
columns.count=2

谢谢您老师，已修改为columns.count=2  但一样遇到错误

aee99

todaynew 发表于 2015-5-6 17:36
将以下代码：
'根据表格判断是否所需的文件
    If objDoc.Tables.Count > 0 Then

首先感谢老师您的解答，我尝试了替换以上代码，它提示了不同的错误

zpy2

一会儿 做个实例给楼主

zpy2

word导入ACCESS源码

aee99

谢谢楼上两位老师，让我更了解的代码的含义

390012370

牛皮