Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
vba: экспорт данных из userform в word
 
#1
09.11.2011 19:24:05
Добрый вечер! Помогите, пожалуйста, решить следующую задачу: есть userform со множеством label, размещенных в табличном порядке. Надо по нажатию на кнопку на форме программно создать документ word и перенести туда данные из всех контролов в том же табличном порядке (можно даже таблицу для наглядности нарисовать - на форме-то ее не нарисуешь).  
Во вложении фрагмент данных userform - покажите, пожалуйста, каким образом осуществлять такой экспорт, а я сделаю по аналогии в своей полновесной версии.
 
 
 
#2
09.11.2011 19:36:42
Black__Hole, при всем уважении, зачем такой изврат? Есть инстумент в Ворд - Слияние. Можно еще табличку скопировать и вставить связь. Можно накидать кучу полей в Ворд и макросом вставлять туда значенич(таких примеров тьма, но это неэффективно). ИМХО лучший для Вас способ - Слияние.
Я сам - дурнее всякого примера! ...
 
 
 
#3
09.11.2011 19:53:52
{quote}{login=KukLP}{date=09.11.2011 07:36}{thema=}{post}Black__Hole, при всем уважении, зачем такой изврат? Есть инстумент в Ворд - Слияние. Можно еще табличку скопировать и вставить связь. Можно накидать кучу полей в Ворд и макросом вставлять туда значенич(таких примеров тьма, но это неэффективно). ИМХО лучший для Вас способ - Слияние.{/post}{/quote}  
Дело в том, что в моем случае речь идет о калькуляторе на userform: пользователи совершают различные манипуляции -> в результате получают расчетные данные. Расчетные данные выводятся на вспомогательное окно формы (как в примере). Хочется дать возможность пользователям перебросить расчетные данные в word.  
В принципе, на userform значения попадают с листа excel. Может, проще переносить данные с листа?
 
 
 
#4
09.11.2011 19:56:38
>>Может, проще переносить данные с листа?  
 
Не то слово!
 
 
 
#5
09.11.2011 20:02:24
{quote}{login=RAN}{date=09.11.2011 07:56}{thema=}{post}>>Может, проще переносить данные с листа?  
 
Не то слово!{/post}{/quote}  
 
Расскажите, пожалуйста, как создать файл word, в нем - таблицу, и начать вставлять в определенные ячейки таблицы данные из ячеек листа excel
 
 
 
#6
09.11.2011 20:16:12
Давайте, я лучше покажу Вам пример(тоже для какой-то женщины делал:-)) В эксе ставим курсор в любую ячейку, топчем кнопу и данные из этой строки переносятся в Ворд документ. Оба файла д.б. в одной папке. Попробуйте разобраться, переключая в Ворде режимы отображения кодов\значений полей.  
П.С. делалось для версий 2007-2010.
Я сам - дурнее всякого примера! ...
 
 
 
#7
09.11.2011 21:37:11
\приблизительно то, о чем говорил RAN
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#8
09.11.2011 21:40:01
чуть перемудрил, вечер : )  
 
Sub io()  
Me.Range("A1:C6").Copy  
With CreateObject("Word.Application"): .Visible = True  
   .Documents.Add.Range.PasteExcelTable False, False, False  
End With  
End Sub
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#9
10.11.2011 07:33:53
а с формы никак ? может малюсенький примерчик, господа профессионалы выручайте ))))
 
 
 
#10
10.11.2011 09:14:55
сразу в ворд тяжко - надо будет с растояниями между слов мучаться чтоб как в форме было. проще выгрузить данные с формы в xls/txt/csv а уж потом если очень надо открыть в ворде.  
Private Sub CommandButton5_Click()  
x = Me.lb_konstr_SSt  
y = Me.lb_konstr_SS  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set f = fso.GetFile("C:\my.txt")  
Set ts = f.OpenAsTextStream(8, -2)  
ts.WriteLine "Конструктив;" & x & ";" & y & ";"  
ts.Close  
Set oWrdDoc = oWrdApp.Documents.Open("C:\my.txt")  
oWrdApp.Visible = True  
oWrdDoc.Activate  
End Sub
 
 
 
#11
10.11.2011 09:18:17
поправка  
x = Me.lb_konstr_SSt.caption  
y = Me.lb_konstr_SS.caption
 
 
 
#12
10.11.2011 11:41:24
Спасибо Всем огромное за помощь! Воспользовалась вариантом от пользовтеля nerv.
 
 
 
#13
10.11.2011 12:51:00
{quote}{login=nerv}{date=09.11.2011 09:40}{thema=}{post}чуть перемудрил, вечер : )  
 
Sub io()  
Me.Range("A1:C6").Copy  
With CreateObject("Word.Application"): .Visible = True  
   .Documents.Add.Range.PasteExcelTable False, False, False  
End With  
End Sub{/post}{/quote}  
Уважаемый nerv, а можно ли при копировании в word задать условия "разместить не более, чем на одну страницу" или просто альбомную ориентацию?
 
 
 
#14
10.11.2011 13:25:36
>или просто альбомную ориентацию?  
 
Sub io()  
Me.Range("A1:C6").Copy  
With CreateObject("Word.Application")  
   With .Documents.Add  
       .PageSetup.Orientation = 1  
       .Range.PasteExcelTable False, False, False  
   End With  
   .Visible = True  
End With  
End Sub
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#15
10.11.2011 13:27:04
На будущее: пользуйтесь макрорекодером и будет Вам счастье ; )
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#16
10.11.2011 14:25:59
{quote}{login=nerv}{date=10.11.2011 01:25}{thema=}{post}>или просто альбомную ориентацию?  
 
Sub io()  
Me.Range("A1:C6").Copy  
With CreateObject("Word.Application")  
   With .Documents.Add  
       .PageSetup.Orientation = 1  
       .Range.PasteExcelTable False, False, False  
   End With  
   .Visible = True  
End With  
End Sub{/post}{/quote}  
 
Спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх