Как создать таблицу в Access из Excel

PRO-99
Дата: 07.09.2005 16:16:23
Как создать таблицу в базе Access из модуля Excel на основе данных процедуры SQL Server, используя соединение ADO.
AlexeiK
Дата: 07.09.2005 16:45:21
Sub transferRecordset()

   'Create a Recordset from all the records in the Orders table.
   Dim sNWind As String
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset

   sNWind = "C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb"
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind & ";"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("Orders", , adCmdTable)
      
   'Create a new workbook in Excel.
   Dim xlApp As Object
   Dim xlBook As Object
   Dim xlSheet As Object
   
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets(1)
      
   'Transfer the data to Excel.
   xlSheet.Range("A1").CopyFromRecordset rs
      
   'Save the workbook and quit Excel.
   xlBook.SaveAs "c:\My Documents\ADOExample.xls"
   xlApp.Quit
      
   'Close the connection.
   rs.Close
   conn.Close
   
End Sub
вот этот код не дает 100% решения.
но тут есть часть которая отвечает за коннект к базе из ms excel
тебе просто потом надо будет в excel подрубить adox и объекут adox.catalog установить этот коннект...и сможешь , все через тот же adox создать любую таблицу в mdb.
ну потом можешь подключиться и заполнить ......вообще вопрос, слишком плоский, после слова excel до запятой, не понятно.
AlexeiK
Дата: 07.09.2005 16:47:12
тут я привел как из рекордсета адо переслать данные в лист excel.
сорри.но строчки подключения к базе mdb можно использовать.
PRO-99
Дата: 07.09.2005 16:51:57
Поясняю вопрос.
Необходимо вызвать процедуру на серваке, которая вернет данные (таблицу).
Затем эти данные надо загнать в mdb'шку Accesa, в виде тойже таблицы.
PRO-99
Дата: 07.09.2005 16:54:22
Могу сделать это на Delphi, а потом из Excel вызывать exe'шник. Но зачем так гимороится, если наверняка можно все сделать через VBA.
Sinner
Дата: 07.09.2005 16:54:39
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_RestBuffer", ИмяФайла, False, "A:Z"
PRO-99
Дата: 07.09.2005 16:57:33
Извените должен бежать, работа...
Буду завтра.
PRO-99
Дата: 08.09.2005 09:53:14
Какую ссылку надо подключить, а то ADODB.Connection не определяется?
PRO-99
Дата: 08.09.2005 09:58:01
Какую ссылку надо подключить, а то ADODB.Connection не определяется?
Battledwarf
Дата: 08.09.2005 09:58:53
Например, "Microsoft ActiveX Data Objects 2.1 library"

Кому нужен программист? Всем нужен программист!
Аркадий и Борис Стругацкие, "Понедельник начинается в субботу"