Блог

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

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

 Private Sub Create_Plan_Click()

Dim UserFilename As String
Dim FullName As String

UserFilename = Combo_Title amp; Txt_FirstName amp; Txt_MiddleInit amp; Txt_LastName amp; Combo_Suffix
FullName = Combo_Title amp; " " amp; Txt_FirstName amp; " " amp; Txt_MiddleInit amp; ". " amp; Txt_LastName amp; " " amp; Combo_Suffix


Unload Choose_User

Meal_Cat_Form.Show

End Sub
  

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

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

Шаг 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 amp; Txt_FirstName amp; Txt_MiddleInit amp; Txt_LastName amp; Combo_Suffix
FullName = Combo_Title amp; " " amp; Txt_FirstName amp; " " amp; Txt_MiddleInit amp; ". " amp; Txt_LastName amp; " " amp; 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
  

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