[挑战]谁能用VBA把这DOC里面的标题和内容提取出来？

七叶一枝梅

插入代码用下面这个要好点（不容易出错）

sub he(a,b)

Dim conn As New ADODB.Connection ''''''不要忘了引用Access！否则报错！ Dim rs As New ADODB.Recordset Dim sql

sql = "select * from book" conn.Provider = "microsoft.jet.oledb.4.0" conn.Open "c:\aaa.mdb" rs.Open sql, conn, adOpenKeyset, adLockOptimistic, adCmdText rs.AddNew'''新建空记录 rs("A_title") = CStr(a) rs("A_range") = CStr(b) rs.Update'''插入记录

'''写入完毕，打扫阵地。 rs.Close Set rs = Nothing conn.Close

end sub

youngdreamer

七哥，好牛！！！而且很热情，真不错！