Запись данных с формы на другой лист в документе или документ

Пользователь

Сообщений: 129 Регистрация: 17.08.2018

07.09.2018 12:15:53

Помогите разобраться с записью данных с форм на различные листы документа или сторонний документ лежащий в какой то из директории. Если можно, два варианта.
На данный момент, все пишется на текущий лист, где вызывается форма.

Код

Private Sub btnClose_Click()
Dim iPR As Integer

iPR = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iPR, 1) = txtFamiliya
Cells(iPR, 2) = txtImya
Cells(iPR, 3) = txtOtchestvo
Cells(iPR, 4) = IIf(chbVO, "Есть ВО", "Нет ВО")


Unload Me
MsgBox "Всего хорошего, " & Application.UserName & "!", vbInformation

End Sub

vsolovev Пользователь Сообщений: 129 Регистрация: 17.08.2018	#2 07.09.2018 12:22:55 сам документ Прикрепленные файлы Тестовая форма.xlsm (38.02 КБ)

ivanok_v2

Пользователь

Сообщений: 712 Регистрация: 19.08.2018

07.09.2018 12:24:28

Код

Private Sub btnClose_Click()
   iIn Worksheets("Лист1")
   iIn Worksheets("Лист2")
   Unload Me
   MsgBox "Всего хорошего, " & Application.UserName & "!", vbInformation
End Sub

private sub iIn (byval sh as worksheet)
Dim iPR As Integer    
   With sh
       iPR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(iPR, 1) = txtFamiliya
      .Cells(iPR, 2) = txtImya
      .Cells(iPR, 3) = txtOtchestvo
      .Cells(iPR, 4) = IIf(chbVO, "Есть ВО", "Нет ВО")
   end with
end sub

Sanja

Модератор

Сообщений: 16560 Регистрация: 10.01.2013

07.09.2018 12:25:22

Код

'пишем на лист 'Другой_лист' активной книги
With Worksheets("Другой_лист")
    iPR = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(iPR, 1) = txtFamiliya
    .Cells(iPR, 2) = txtImya
    .Cells(iPR, 3) = txtOtchestvo
    .Cells(iPR, 4) = IIf(chbVO, "Есть ВО", "Нет ВО")
End With

'пишем на лист 'Лист1' книги 'Другая_книга.xlsx'. Книга должна быть открыта
With Workbooks("Другая_книга.xlsx").Worksheets("Лист1")
    iPR = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(iPR, 1) = txtFamiliya
    .Cells(iPR, 2) = txtImya
    .Cells(iPR, 3) = txtOtchestvo
    .Cells(iPR, 4) = IIf(chbVO, "Есть ВО", "Нет ВО")
End With

Согласие есть продукт при полном непротивлении сторон

vsolovev

Пользователь

Сообщений: 129 Регистрация: 17.08.2018

07.09.2018 12:25:38

Цитата
ivanok_v2 написал: ivanok_v2

спасибо, буду пробовать

vsolovev

Пользователь

Сообщений: 129 Регистрация: 17.08.2018

07.09.2018 12:30:47

Цитата
Sanja написал: Sanja

Вашим вариантом пользуюсь, спасибо.

ivanok_v2 Пользователь Сообщений: 712 Регистрация: 19.08.2018	#7 07.09.2018 12:32:25 vsolovev, вариант Sanja, и мой одинаковый. попробуйте найти различия

vsolovev

Пользователь

Сообщений: 129 Регистрация: 17.08.2018

07.09.2018 12:37:41

Цитата
Sanja написал: 'пишем на лист 'Лист1' книги 'Другая_книга.xlsx'. Книга должна быть открыта

подскажите, есть ли возможность писать в неактивный документ? или только sql

Sanja Модератор Сообщений: 16560 Регистрация: 10.01.2013	#9 07.09.2018 12:43:09 Совсем без открытия никак. Можно, незаметно для пользователя, открывать файл, писать туда данные и так же незаметно его закрывать Согласие есть продукт при полном непротивлении сторон

vsolovev

Пользователь

Сообщений: 129 Регистрация: 17.08.2018

#10

07.09.2018 12:56:29

Цитата

Цитата
Sanja написал: Можно, незаметно для пользователя, открывать файл

это тоже вариант, покажете код?

Sanja Модератор Сообщений: 16560 Регистрация: 10.01.2013	#11 07.09.2018 12:57:29 Наберите в любом поисковике: Записать данные в закрытую книгу VBA Согласие есть продукт при полном непротивлении сторон

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#12 07.09.2018 14:21:19 vsolovev, а Вы без цитирования не умеете отвечать? Если хотите обратиться по имени, то для этого существует специальная кнопка. Она так и называется - "Имя".