Сохранить лист Excel 2003 в таблицу Access 2003

Question

Я пытаюсь написать макрос для экспорта одной строки из одного листа из книги Excel 2003 в новую строку в таблице Access 2003.Я новичок в VBA, и все, что я нашел в Интернете, относится к другому пути - от доступа к Excel.Я хочу, чтобы это был экспорт, а не ссылка, и мне не важно сохранять их синхронизированными после экспорта.

Answer 1

В этом примере кода предполагается несколько вещей:

1. Вы вставляете два значения, которые находятся в A2 и B2.
2. Оба значения представляют собой строки

3. У вас есть таблица с именем TestTable, содержащая два столбца

   Public Sub ExportRecord()
   
   
   <pre><code>On Error GoTo ErrRoutine
   
   
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset
   
   
   conn.Open "Your_DSN_Goes_Here", "userId", "pwd"
   
   
   Set rs = New ADODB.Recordset
   rs.Open "TestTable", conn, adOpenDynamic, adLockOptimistic, adCmdTable
   
   
   rs.AddNew
   
   
   rs.Fields("Col1") = CStr(Sheet1.Cells(2, 1))
   rs.Fields("Col2") = CStr(Sheet1.Cells(2, 2))
   
   
   rs.Update
   
   
   Set rs = Nothing
   Set conn = Nothing
   
   
   Exit Sub
   

   ErrRoutine:

   MsgBox Err.Description
   

   End Sub