Вопрос № 146267: Добрый вечер, эксперты. Как скопировать sheet в какой нить другой WB, которая находится в другой папке, вообщем имеет путь. Я знаю, есть метод copy, но он действует только в пределах WorkBook где находится Sheet. Подскажите. <...Вопрос № 146294: Здравствуйте !!! В двумерном массиве вещественных чисел подсчитайте количество всех элементов , равных второму элементу массива !!! А(1.2)...
Вопрос № 146.267
Добрый вечер, эксперты.
Как скопировать sheet в какой нить другой WB, которая находится в другой папке, вообщем имеет путь.
Я знаю, есть метод copy, но он действует только в пределах WorkBook где находится Sheet.
Отвечает: Савчук Иван Иванович
Здравствуйте, Соколов В.В.!
ExApp=Excel.Application Создаем новую книгу (можно открыть существующую) и присвиваем ее переменной WB Set WB = ExApp.Workbooks.Add Из ранее открытой книги("Ranger.xls") копируем лист("data") в книгу WB (имя у нее будет типа "Книга1.xls") перед первым листом ExApp.Workbooks("Ranger.xls").Sheets("data").Copy Before:=WB.Sheets(1)
Ответ отправил: Савчук Иван Иванович (статус: 3-ий класс)
Ответ отправлен: 07.10.2008, 05:01 Оценка за ответ: 5
Отвечает: Шичко Игорь
Здравствуйте, Соколов В.В.! Для копирования в другую книгу необходимо использовать метод Copy, только предварительно её нужно открыть. Пример привел в приложении. Для разработки кода в VBA можно пользоваться кодами, формируемыми макросами, т.е. записываем макрос, а потом через редактор VBA читаем и используем его код.
Приложение:
Ответ отправил: Шичко Игорь (статус: 8-ой класс)
Ответ отправлен: 07.10.2008, 08:26 Оценка за ответ: 5 Комментарий оценки: Этот из вдух представленных наиболее полон. Хоть я уже и успел разобраться, но спасибо грамотный и структурный ответ
Вопрос № 146.294
Здравствуйте !!! В двумерном массиве вещественных чисел подсчитайте количество всех элементов , равных второму элементу массива !!! А(1.2)
Отвечает: Савчук Иван Иванович
Здравствуйте, Андреев Павел Александрович!
dim b,c,i,j,k as integer input "введите число строк", b input "введите число столбцов", c dim a(b,c) as single for i=1 to b for j=1 to c input a(i,j) next j next i for i=1 to b for j=1 to c if a(i,j)=a(1,2) then k=k+1 next j next i k=k-1 ' исключаем элемент a(1,2) print "Количество элементов , равных А(1,2) = "; k
Ответ отправил: Савчук Иван Иванович (статус: 3-ий класс)
Ответ отправлен: 07.10.2008, 09:34 Оценка за ответ: 5
Отвечает: Шичко Игорь
Здравствуйте, Андреев Павел Александрович! Вам необходимо немного дополнить свой код, примерно так: ... dim summ summ = 0 for i=1 to n for j=1 to n If a(i,j) = a(1,2) then summ = summ + 1 next j next i ... Примечание: если нужно найти не количество элементов, а сумму, то используйте summ = summ +a(i,j)
Ответ отправил: Шичко Игорь (статус: 8-ой класс)
Ответ отправлен: 07.10.2008, 09:54 Оценка за ответ: 3
