Вставка строк таблицы Word, для оценки таблицы базы данных строк

Question

У меня есть таблица доступа с полями

ID 
Field1 
Field2 
Field3 

У меня также есть таблица слов с заголовками

ID | Field1 | Field2 | Field3 

Как я могу импортировать автоматически все данные из таблицы в базу данных оценки из файла слова?

Answer 1

Импорт автоматически не звучит просто, но вы можете сделать это программно.

Из Access, вы могли бы сделать что-то вроде этого:

dim base as string: base = "INSERT INTO tblname (ID, Field1, Field2, Field3) VALUES (" 
dim sql as string 
dim ii as long 
dim jj as long 
dim wrd as object 
dim wrdDoc as object 
' 
docmd.setwarnings false 
set wrd = createObject("Word.Application") 
wrd.visible = false 
set wrdDoc = wrd.Documents.Add("name of word document containing table") 
with wrdDoc.Tables(1) 'assuming first table in document 
    for ii = ? to .Rows.Count  'if the table has column headings, ? = 2, else 1 
     sql = base 
     for jj = 1 to 4   '4 = count of columns 
      sql = sql & iif(jj = 1, "", ",") & CStr(.Cell(ii, jj)) 
     next jj 
     sql = sql & ")" 
     docmd.runsql sql 
    next ii 
end with 
docmd.setwarnings true 
wrd.Quit 
set wrddoc = nothing 
set wrd = nothing