Никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)

Допустим, я объявляю динамический массив. Его конечный размер заранее неизвестен.

Dim arr() As String
Redim arr(1)

затем, мне надо в цикле просмотреть все строки одной таблицы («Лист1»), на каждой итерации просмотреть колонку второй таблицы («Лист2») и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек «Лист1» в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.

Моя конструкция

arr(UBound(arr) + 1) = tb.Cells(j, "C").Value

не срабатывает, ругается, что «Subscript out of range»

Если не трудно, подскажите, как решаются такие задачи в VBA!

(читать всё…)

Идея следующая — есть таблица и связанная с ней форма. В форме combobox (данные берет из таблицы). Необходима фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу. В силу того что я только начинаю осваивать данный предмет (ACCESS), для меня эта задача без помощи, неподъемная. Нужен пример, ибо только описание решения не поможет…

(читать всё…)

товарищи подскажите пожалуйста, есть ли какая нибудь софтина, чтобы делала вот такие вещи:

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

Как это работает сейчас у меня?! каждое изображение открывается в фотошопе сохраняется в нужном формате и уменьшается качество чтобы изображение было меньше размера.

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

до 1010 кб нужно потому что долбынный «аэрофлот» требует загрузки сканов в свою программу, где ограничение в 1000 кб

(читать всё…)

Как сделать рисунок через делфи в фотошопе?
Описание алгоритма:
1. Запустить C:\путь_к_фотошопу\фотошоп.exe
2. Открыть файл PSD D:\File.psd
3. Изменить текст на слое №5 на текст из переменной
4. Удалить слой №2 и на его место добавить изображение с рандомной картинки в папке
5. Сохранить картинку под именем из переменной

(читать всё…)

Как создать кнопку на форме, которая выполняла бы те же действие, что и маленькая кнопка «Новая запись (New Record)», расположенной в нижней части окна формы.

(читать всё…)

Суть вопроса такова, имеется .txt файл, его нужно открыть в exel указав путь к нему. Далее его необходимо отредактировать так, чтобы все текстовые и пустые строки были удалены. А данные из столбца в который все вставилось расформировались в отдельные. Так же необходимо чтобы строки с одинаковыми значениями в стоблцах B,C,D были удалены(одна из двух осталась).

(читать всё…)

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

connDB.ConnectionString = «Provider=Microsoft.ace.oledb.12.0; data source=» & Path
connDB.Open
Set rs = connDB.Execute(«Select * from » & Table)
Range(«A1»).CopyFromRecordset rs

Подскажите, можно ли вместо CopyFromRecordset написать условия, по которым будут выбираться данные и вставлять в определенные ячейки в Excel?

(читать всё…)

Вот макрос на удаление столбца «C» по заданному условию «пусто» в ячейки «c2». Необходимо изменить макрос таким образом, чтобы при сохранении условия «пусто» в ячейке «c2» можно было удалять любой другой столбец.

Sub kmd()
For Each c In Range(«c2:c2»)
If c = пусто Then c.EntireColumn.Delete
Next
End Sub

(читать всё…)

Выделяю группу (сгруппированы Shap’ы и надписи) щелчком. По периметру высвечиваются 8 белых кружочков. Все хорошо. Я в VB работаю, как с группой и надо мне сделать Ungroup. И работает.
А вот если сгоряча щелкнуть дважды (в руке дрогнул пистолет), то выделяется не просто группа, а еще и её элемент (он обрамляется своими ручками управления — серыми кружочками).  И вот в этом случае при попытке Ungroup получаю: Run-time error…
Данный компонент недоступен на объекте из группы. Как распознать эту ситуацию в VBA (Word 2003)?

(читать всё…)

Как осуществить слияние таблицы Excel с шаблоном Word, если нужно разместить несколько строк на одном листе шаблона? То есть, в Excel у меня десять строк, а в шаблон нужно вставить данные из двух строк, соответственно если применить «слияние» должно получится 5 листов.

(читать всё…)