49.从Word中导入到Access

▲ 打开Word文件

    Dim objApp As Object    'Word.Application

    Dim objDoc As Object    'Word.Document

    Dim objTable As Object    'Word.Table

    Dim strFileName As String    '要导入数据的Word文件

    Dim rst As Object 'DAO.Recordset

    strFileName="D:\个人简历.doc"

    Set objApp = CreateObject("Word.Application")

    Set objDoc = objApp.Documents.Open(strFileName, , True)'打开Word文件

    Set objTable = objDoc.Tables(1)'第1个表格

    Set rst = CurrentDb.OpenRecordset("tbl人事资料", , adLockOptimistic)

    rst.AddNew

    With objTable

        rst!姓名 = ConvertText(.Cell(2, 2).Range)

        ……

    End With

    rst.Update

    rst.Close