|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.02.2010, 16:02 | #1 |
Форумчанин
Регистрация: 25.11.2009
Сообщений: 113
|
Как вывести данные активной строки excel?
Тут у вас на форуме нашла код, который мне очень подошел.
Sub Макрос1() Dim sFIO As String, objWord As Word.Application, sDolg As String, A As Integer Dim objDoc As Word.Document, sFile As String, sOtd As String, iOklad As Integer 'For a = 1 To 3 Range("C2").Select sOtd = ActiveCell.Value Range("A2").Select sFIO = ActiveCell.Value Range("B2").Select sDolg = ActiveCell.Value Range("D2").Select iOklad = ActiveCell.Value 'Next A sFile = "C:\Documents and Settings\Администратор\Рабочий стол\Тарифы\Test1.dot" Set objWord = New Word.Application Set objDoc = objWord.Documents.Open(sFile) With objWord .Visible = True .Selection.InsertAfter Format(Now, "Long date") End With objDoc.Bookmarks("FIO").Select objWord.Selection.InsertAfter sFIO objDoc.Bookmarks("Dolg").Select objWord.Selection.InsertAfter sDolg objDoc.Bookmarks("Otd").Select objWord.Selection.InsertAfter sOtd objDoc.Bookmarks("Oklad").Select objWord.Selection.InsertAfter iOklad objWord.ActiveDocument.SaveAs "C:\Documents and Settings\Администратор\Рабочий стол\Тарифы\TestDoc", doc Set objDoc = Nothing Set objWord = Nothing End Sub Но когда запускается макрос, всегда выводится первая строка. Даже если делаешь активной другую строку, после запуска макроса активной становится 1-я строка. Как можно сделать, чтобы выводилась активная строка? |
25.02.2010, 17:06 | #2 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
а попробуйте вместо этого:
Цитата:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
25.02.2010, 17:07 | #3 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
макрос бестолковый. не видя файла нельзя
|
25.02.2010, 17:16 | #4 |
Форумчанин
Регистрация: 25.11.2009
Сообщений: 113
|
Большое спасибо! А код хоть и бестолковый, но работает как надо. Просто по другому не знаю как.
|
25.02.2010, 17:18 | #5 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
Все Select в макросах абсолютно не нужны (за очень редким исключением).
А вообще да. Если это глупо, но работает - значит это не глупо ) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как передать адрес активной строки в другую таблицу | parsn | Microsoft Office Excel | 2 | 04.01.2010 23:32 |
Данные в ячейке из активной ячейки. | ru3000 | Microsoft Office Excel | 1 | 28.07.2009 05:29 |
Строки. Как вывести часть строки? | Anfall | Общие вопросы Delphi | 7 | 26.02.2009 09:10 |
Как с помощью формул можно сравнить и вывести данные | kutt | Microsoft Office Excel | 2 | 24.09.2008 17:05 |
Как вытащить данные из Excel в бд dephi, а потом (после работы с данными) сформировать новый файл excel. | Геля | БД в Delphi | 1 | 10.04.2007 15:11 |