| |
|
|
| | Есть база, в которой 4 таблице. Необходимо сбросить все данніе из таблиц в файл Excel, та чтобы 1 талица была на листе 1, вторая на 2 и т.д.
Использовал DoCmd.TransferSpreadsheet acImport, но там нельзя указать в какой лист
Как это реализовать, можно с использованием VBA? | |
| |
| |
| |
|
|
| | Приблизительно вот так выглядит код VBA:
Dim xlApp As Object, xlBook As Object, xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("Имя файла")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate ' работаем с листом Excel
... ' здесь цикл добавления записей из таблицы
xlBook.Sheets.Add ' добавляем новый лист Excel
... ' здесь цикл добавления записей из другой таблицы
... и т. д.
xlBook.Save
xlSheet.Application.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing | |
| |
| |
| |
|
|
| | Использовал DoCmd.TransferSpreadsheet acImport, но там нельзя указать в какой лист
МОжно 
http://hiprog.com/index.php?option=com_content&task=view&id=127 | |
| |
| |
|
|
