Создавайте книги Excel из строк доступа

Question

Вот что я пытаюсь сделать. Я пытаюсь создать рабочую книгу на основе шаблона с именем и создать рабочую книгу для каждой строки. И макрос зацикливается, пока все строки не будут исчерпаны.

Результаты, которые я хочу получить в конце, представляют собой 3 документа Excel с именами (Alpha.xlsx, Beta.xlsx, Gamma.xlsx) с соответствующими значениями доступа, подключенными к соответствующим ячейкам соответствующей рабочей книги. Последующая математика там, потому что мне нужно иметь возможность манипулировать значениями, как только они в Excel.

Вот некоторые из исследований, которые я обнаружил, что я не смог осмыслить их из-за недостатка опыта кодирования в vba.

Ссылки

(я не могу опубликовать больше 2, поэтому я буду держать количество статей кратким):

Исследование: databasejournal.com/features/msaccess/article.php/3563671/Export-Data-To-Excel.htm

Пример базы данных / таблицы: http://www.sendspace.com/file/iy62c0

Альбом изображений (содержит изображение базы данных и шаблон на случай, если вы не хотите загружать): http://imgur.com/pytPK,PY8FP#0

Любая помощь будет высоко ценится! Я читал и пытался понять, как заставить это работать @. @

Answer 1

Это не завершено, но должно помочь вам начать ...

Option Compare Database
Option Explicit

'Enter Location of your Template Here
Const ExcelTemplate = "C:\MyTemplate.xltx"
'Enter the Folder Directory to save results to
Const SaveResutsFldr = "C:\Results\"
Sub CreateWorkbook()
Dim SaveAsStr As String
Dim ExcelApp, WB As Object

'Create Reference to Run Excel
Set ExcelApp = CreateObject("Excel.Application")

'Create Reference to your Table
Dim T As Recordset
Set T = CurrentDb.OpenRecordset("tblData")

'Loop through all Record on Table
While Not T.BOF And T.EOF
    'Open Your Excel Template
    Set WB = ExcelApp.Workbooks.Open(ExcelTemplate)

    'Enter your data from your table here to the required cells
    WB.Worksheets("NameOfYourWorkSheet").Range("A1") = T("numValue1")
    'Repeat this line for each piece of data you need entered
    'Changing the Sheet name, cell range, a field name as per your requirements
    'WB.Wor...
    'WB.Wor...

    'Save and Close the Workbook
    SaveAsStr = SaveResutsFldr & T("Title") & ".xlsx"
    WB.SaveAs SaveAsStr
    WB.Close
    Set WB = Nothing

    'Move to the Next Record
    T.MoveNext
Wend

'Close down the Excel Application
ExcelApp.Quit
Set ExcelApp = Nothing
End Sub