[решено] Макрос импорта данных

[Gopak]

Добрый день.
Помогите сделать макрос:
Есть два файла excel, к которым нужен макрос из двух частей, реализованных в одном из файлов:

Первая часть:
Спрашивается файл excel, с которого будут браться данные некоторых ячеек (адреса ячеек статичны)
Эти определенные ячейки копируются в другой файл екселя, но в ту строку, где находиться курсор или строка должна выбраться на совпадении данных в определенном столбце с ячейкой из указываемого файла.
Вторая часть
С текущей строчки excel определенные ячейки копируются в определенные ячейки указанного ранее файла.

Для меня задача является не тривиальной. Пока углублюсь в тему макросов - пройдет много времени.
Спасибо.

[aazelinski]

Мой пост тоже по поводу макросов. Только для ворда.

В старых офисах (до 2003) без проблем выставлял на панельки пиктограммы макросов. В 2007 никак не получается! Они сделали это невозможным (типа как использование графики в QBаsicе на висте и 7-й винде) или это всё же можно (безумно сложно) сделать?

Ещё просьба, знакомая попросила написать несколько маленьких забавных зрелищных макросов для демонстрации ученикам. Типа таких:

'Удаляет текст на красном фоне
Sub delred()
With ActiveDocument.Content.Find
.Highlight = True
.Format = True
Do While .Execute = True
If .Parent.HighlightColorIndex = wdRed Then
.Parent.Delete
End If
Loop
End With
End Sub

Sub перевертыш()
Dim strStroka As String
Dim strPer As String
strStroka = Selection.Text
strPer = StrReverse(strStroka)
Selection.Text = Replace(strStroka, strStroka, strPer)
End Sub

Sub delTextBetweenBrackets()
'заменяем текст в скобках на пробел в скобках
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\(*\)"
.Replacement.Text = "( )"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub

Может быть знаете откуда можно скачать подобные маленькие макросы? Был бы благодарен за ссылку на страничку! Или (и) может быть несколько коротких макросов в эту тему запостите?

[Iska]

Или (и) может быть несколько коротких макросов в эту тему запостите? »
aazelinski, каких именно? От макроса должна быть какая-то реальная польза, а не только «зрелищность».

[aazelinski]

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

[Iska]

Мда… После таких заявлений не приходится удивляться, отчего это у нас уровень образования всё ниже и ниже.

aazelinski, в моём понимании вот такое, например: HTA: нанесение (расстановка) OMR-меток в файле MS Word (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Серый форум (http://forum.script-coding.com/viewtopic.php?id=2612) — реальная польза, а от такого задания:
Нужна программа(в VBS) чтоб в Excel рисовался небольшой квадрат, и он двигался строго по квадратной траектории, и вторая программа тоже самое, но по траектории ромба.
Сам ни разу не програмировал, что-то подобное, по этому даже не прдствалю как сделать, не много работал в VB... Прошу срочно помочь.
и решения (http://forum.script-coding.com/viewtopic.php?pid=42757#p42757) — при столь любимой Вами зрелищности — толку ровно ноль.

[Gopak]

Относительно моего поста - я давно углубился и решил все свои вопросы (и не только эти).