Нужно небольшое руководство по кодированию кнопки в книге базы данных

Question

Я создал базу данных в Excel и рабочие листы, которые необходимо скопировать и заполнить информацией из определенной записи из базы данных. Мне нужно открыть новый файл рабочей книги с именем человека в имени файла и рабочей книгой, заполненной скопированными листами и информацией из одной записи, также переданной.

Я новичок в использовании Excel с VBA и мне нужна помощь.

Private Sub Create_Plan_Click()

Dim UserFilename As String
Dim FullName As String

UserFilename = Combo_Title & Txt_FirstName & Txt_MiddleInit & Txt_LastName & Combo_Suffix
FullName = Combo_Title & " " & Txt_FirstName & " " & Txt_MiddleInit & ". " & Txt_LastName & " " & Combo_Suffix


Unload Choose_User

Meal_Cat_Form.Show

End Sub

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

Answer 1

Это скорее подсказка, направленная на то, чтобы помочь, а не на ответ

Шаг 1 - Информация о надстройке, где можно найти данные

Private Sub Create_Plan_Click()

Dim UserFilename As String
Dim FullName As String
Dim dbSrcRow as long, dbSrcSht as Worksheet  ' These 2 Added

UserFilename = Combo_Title & Txt_FirstName & Txt_MiddleInit & Txt_LastName & Combo_Suffix
FullName = Combo_Title & " " & Txt_FirstName & " " & Txt_MiddleInit & ". " & Txt_LastName & " " & Combo_Suffix

' You also need to provide info as to where the data base record is
  Set dbSrcSht = "dbSheet"  ' You need to edit this
  Set dbSrcRow = 123        ' and this too
' Done

' I've swapped these next 2 lines around
' seems you need to carryout the copying before you loose/unload the data
  Meal_Cat_Form.Show  ' This will become the copy routine not a form
  Unload Choose_User
' Done

End Sub

Шаг 2 - Информация о надстройкео том, какие листы нужно копировать

' You also need to provide info as to which sheets need to be copied
  Set Shts2Copy = "Sht1,Sht2,Sht3"  ' You need to edit this
' Done

Наконец - вам нужно создать новую рабочую книгу и заполнить информацию, а затем сохранить ее