Здравствуйте...  
Написал макрос (Office 2007). На большинстве компьютеров работает, а на некоторых компьютерах отказывается работать.  
Выдержка кода VBA:    
Sub qwe()  
Workbooks.Add  
ТекКнига = ActiveWorkbook.Name  
FileASN = "d:\"  
ИмяФайла = "тест"  
ИтИмяФ = FileASN + ИмяФайла  
       Workbooks(ТекКнига).SaveAs Filename:=ИтИмяФ, FileFormat:=xlExcel8  
       Workbooks(ИмяФайла).Close  
End Sub  
 
Характер ошибки:  
После создания и сохранения созданного файла выдает сообщение об ошибке: Run-time error "9". Subscript out of range.  
Прошу оказать помощь и сообщить решение проблемы  
Спасибо.

Доброе утро.  
Тестируя разработку наткнулся на след. проблему.  
нижеуказанный код успешно копирует данные из листа в массив, если лист с исходными данными является активным. Если в данной книге является активными другой лист, тогда возникает ошибка: Run-time error 1004. Aplicatin - defined or object - defined error.  
Dim rrr As Range  
Sub List()  
ИмяТекКниги = ActiveWorkbook.Name  
       lLastRow = Workbooks(ИмяТекКниги).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row  
       Set rrr = Workbooks(ИмяТекКниги).Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, 13))  
End Sub  
Помогите решить проблему.

Добрый день.  
Прошу оказать помощь в реализации на VBA описанной ниже обработки:  
1. Имеем список повторяющихся номеров заказов.  
2. Необходимо сформировать список уникальных номеров заказов и его отсортировать по возрастанию.  
В итоге должен получиться массив с уникальными, отсортированными номерами заказов.  
Прикрепил файл в котором из данных листа EXCEL формируется исходный массив.  
Спасибо.

Помогите написать код VBA, с пом. которого можно вставить значение в первую пустую ячейку столбца.  
Нижеуказанный код работает не так как нужно.  
Sub ssd()  
Cells(Rows.Count, 1).End(xlUp).Offset(1) = "11"  
End Sub  
 
Пример прикреплен

Прошу помощи....  
1. Вопрос  
Ищу номер записи в массиве, значение которого равно переменной "pozz"  
Столкнулся с проблемой, когда pozz = значению, которого нет в массиве, возникает ошибка  
Пример прикрепил. Как можно доработать код?  
Dim d(1 To 4) As String  
Dim r As String  
Sub SOGL_CEN()  
d(1) = "11"  
d(2) = "33"  
d(3) = "44"  
d(4) = "55"  
pozz = "asd44"  
r = Application.Match(pozz, d, 0)  
MsgBox r  
End Sub  
2 Вопрос.  
Есть ли в VBA формулы, которые позволят работать с двухмерным массивом по аналогии с функцией ВПР?  
Т.е. если значение переменной равно значению строки 1го столбца массива, тогда "выдается" значение той же строки но другого столбца.

С помощью "ADODB - .GetRows()" копирую таблицу в массив "А".  
таблица содержит пустые записи, текст, и числа.  
Далее мне необходимо транспонировать значения массива и перевести их в текстовый формат.  
код VBA взятый из контекста..  
....  
Dim a  
....  
a = rs.GetRows()  
ReDim c(UBound(a, 2) + 1, UBound(a, 1)) As String  
For k = 0 To UBound(a, 1)  
For j = 0 To UBound(a, 2)  
c(j + 1, k) = a(k, j)  
Next j  
Next k  
Из-за того что массив "а" содержит пустые строки, возникает ошибка: "Invalid use of NULL"  
Подскажите, как решить данную проблему.  
Спасибо.

Подскажите пожалуйста, есть ли в VBA EXCEL формулы, позволяющие найти в массиве адрес, значение которого удовлетворяет определенным критериям. (Перебирать циклом несколько тысяч десятков записей массива долго)  
Для более точного понимания приведу пример.  
Массив  
д(1)=11  
д(2)=22  
д(3)=33  
и т.д.  
 
Нужно найти адрес (номер записи в массиве) значение которого = 22.  
В приведенном примере адрес = 2.

Прошу помочь решить следующую проблему.  
Массив, который содержит следующие значения  
скл10110  
заказ448900  
уник334567  
Необходимо "откинуть" текстовую составляющую, что бы в итоге получилось:  
10110  
448900  
334567  
Подскажите как это реализовать.

Подскажите, как определить имя листа Excel не открывая книгу Excel?  
 
попутьдофайла = "c:\111\123.xls"  
iCodeName = WorkBooks(попутьдофайла).Worksheets(1).CodeName - не работает  
 
книга "123.xls" содержит один лист.

Прошу оказать помощь в следующем вопросе:  
 
Не могу понять, как "вытащить" данные из листа "XXRSV_Отчет__Экспорт_прейскура" данные    
а) по адресу ячейки листа  
б) по записи удовлетворяющей определенным условиям. (Например, 4й столбец "XXRSV_Отчет__Экспорт_прейскура" = 10100)  
P.S XXRSV_Отчет__Экспорт_прейскура - таблица, содержащая около 20 000 строк и 16 столбцов.  
первые 4 строки объединены и содержат название таблицы, 5я строка - шапка таблицы.  
 
 
Sub wert()  
   Dim Cnn As ADODB.Connection  
   Set Cnn = New ADODB.Connection  
   Set rS = New ADODB.Recordset  
With Cnn  
   .Provider = "Microsoft.Jet.OLEDB.4.0"  
   .ConnectionString = "Data Source=D:\ИЗМЕНЕНИЯ В ПРАЙСЕ\СОГЛ\Прайс.xls;" & _  
"Extended Properties=Excel 8.0;"  
   .Open  
End With  
rS.Open "SELECT * FROM `XXRSV_Отчет__Экспорт_прейскура_$` `XXRSV_Отчет__Экспорт_прейскура_$`", Cnn  
 
 
   rS.Close  
   Cnn.Close  
 
End Sub

Прошу помощи в следующем вопросе:  
Нужно скопировать данные из таблицы Excel в массив.  
В настоящее время проблема решена следующим образом:  
ПутьДоФайлаСтран = "****.xls"  
   Workbooks.Open (ПутьДоФайлаСтран)  
   ИмяТекКниги = ActiveWorkbook.Name  
   Row = Workbooks(ИмяТекКниги).Worksheets(1).Application.CountA(Range("A:A"))  
  ' MsgBox Row  
For qq = 2 To Row  
price(1, qq) = Workbooks(ИмяТекКниги).Worksheets(1).Range(Cells(qq, 4), Cells(qq, 4)) price(2, qq) = Workbooks(ИмяТекКниги).Worksheets(1).Range(Cells(qq, 7), Cells(qq, 7))  
Next qq  
ActiveWorkbook.Close  
 
Возможно оптимизировать копирование данных? Как?

Прошу оказать помощь в решении следующей проблемы:  
В макросе переменной (массиву) D(1,yy) присваиваются значения, например: Курск, RUB, или Москва, EUR. Необходимо удалить  5 правых символов. Как это сделать? В дальнейшем обрезанное значение будет выводиться в ячейку листа EXCEL c помощью "Range(..)".

подскажите, как определить координаты выделенных ячеек в EXCEL, а именно координата верхней левой ячейки и координата нижней правой ячейки?.

Суть проблемы:  
Есть отчет, который содержит данные за несколько месяцев по каждому продукту (см. пример. лист "БД"). Необходимо сложить данные, для каждого продукта, представленные в столбцах "реализация_шт" и "реализация_деньги" за 2009 и 2010 г. (результат лист "отчет")  
Формула    
{=СУММ(ЕСЛИ((БД!A:A=Отчет!A4)*(БД!3:3=Отчет!B3)*(БД!2:2<40178)*(БД!2:2>39814);БД!B2:Y10))}  
не работает.  
Помогите написать формулу, которая позволит осуществить сложение.  
Спасибо

Помогите написать макрос, позволяющий реализовать следующую возможность:  
Имеется прайс лист со столбцами: Артикул, наименование, цена, кратность....  
Прайс содержит до 30 тыс строк.    
Периодически поставщик присылает изменения к прайс листу, которое содержит следующие столбцы: артикул, наименование, новая цена.  
Необходим макрос, который будет менять цены в основном прайс листе.

Суть проблемы.  
Есть макрос, написанный в EXCEL 2003. Конечным результатом работы макроса является сохранение на жестком диске файла в формате DBF4.  
Пример:  
ActiveWorkbook.SaveAs Filename:=UserForm1.TextBox1, FileFormat:=xlDBF4  
или  
ActiveWorkbook.SaveAs Filename:="c:\11111\2222\zak", FileFormat:=xlDBF4  
В Excel 2007  файл в данном формате не сохранятся. Помогите решить данную проблему.....

Суть проблемы:  
Есть таблица, которая содержит несколько столбцов и большое кол-во строк.  
Ячейки нескольких строк объеденены.  
При использовании команды, напрмер для выделения столбца D "Columns("D:D").Select" выделяется вся таблица.    
Подскажите, какой командой можно выделить нужный мне столбец, при условии наличия объедененных ячеек в таблице.

Подскажите, как добавить на ленту вкладку, которая будет содержать ссылки на макросы....