Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
ATIO
Страниц: 1 [2] 3 4 5 ... 11
  Печать  
Автор Тема: Есть знатоки VBA, готовые протянуть руку помощи? Copy Data From Excel To Excel  (Прочитано 52879 раз)
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #15 : 20 Август 2008, 11:46:28 »
Слева будет дерево
VBA project Book1.xls
MSEXcel objects-ThisWorkBook
Click twice at ThisWorkBook
On the right Windows will be opened
This Work book
In the object - Workbook
In the event - Open

Type there


Private Sub Workbook_Open()
    MsgBox "Зхорх"
End Sub

Save the file
Close it
Run the file

If windows appeared To run or not to run - answeris To Run

Enjoy bm
Записан

Скажи - НЕТ АБОРТАМ
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #16 : 20 Август 2008, 12:00:37 »
Когда сработает
Создай еще один файл - book2.xls

А в процедуру вставь текст

Dim oExcel As Excel.Application
Dim oWB As Workbook
Set oExcel = New Excel.Application
Set oWB = oExcel.Workbooks.Open("C:\Documents and Settings\Administrator\Desktop/book2.xls")
MsgBox "ogo"


Вот твой вызов и читает из второго файла bm
Записан

Скажи - НЕТ АБОРТАМ
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #17 : 20 Август 2008, 12:02:03 »
Ау
Записан

Скажи - НЕТ АБОРТАМ
Профессор Помидоркин
Пользователь


Адекватность: 5
Offline Offline

Сообщений: 5426


Просмотр профиля Email
« Ответ #18 : 20 Август 2008, 12:05:09 »
10 PRINT "WINDOWS-FULLSUXX/ OS-2 RULEZZ FOREVER!"
20 PRINT "DUKE NYKEM - MAZDIE"
30 GOTO 10
Записан
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #19 : 20 Август 2008, 12:16:50 »
В ообщем Зхорх ушел на дно

Короче последняя редакция

Итак у тебя два файла на десктопе
book1.xls
book2.xls

В book2.xls в первом Sheet -  в первой клетке цифра 1 (Один)
Файлы сохранены

В book1.xls у тебя процедура

Private Sub Workbook_Open()
Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("C:\Documents and Settings\Administrator\Desktop/book2.xls")
MsgBox oWB.Sheets(1).Cells(1, 1).Value
End Sub

При открывании файла book1.xls
Он покажет msgbox "1"

Удаычи bm
Записан

Скажи - НЕТ АБОРТАМ
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #20 : 20 Август 2008, 12:17:49 »
10 PRINT "WINDOWS-FULLSUXX/ OS-2 RULEZZ FOREVER!"
20 PRINT "DUKE NYKEM - MAZDIE"
30 GOTO 10
bm
Записан

Скажи - НЕТ АБОРТАМ
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #21 : 20 Август 2008, 12:45:11 »
Значит, слушай сюда. У меня эта кирня на американском наречии, но ты, полагаю, поймешь.

Тебе надо для исходных ячеек определить Имена (в меню Insert --> Name --> Define), а в результирующей простыне в соответствующей ячейке указать ссылку на имя. То же самое можно сделать программно. То есть, открываешь в Макро редактор Васика, создаешь модуль, а в нем изощряешься, как хошь.

Намек понял или надо подробностей письменно?
У тебя - это как презерватив надевать - через УХО bm
Записан

Скажи - НЕТ АБОРТАМ
zh0rzh
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 6789


здесь могла бы быть Ваша реклама


Просмотр профиля
« Ответ #22 : 20 Август 2008, 13:30:00 »
Цитата: ugriumiy
В ообщем Зхорх ушел на дно
Я воще в ауте.
 be

Буду разбираться.
Записан
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #23 : 20 Август 2008, 13:30:55 »
Ты файлы создал?
Записан

Скажи - НЕТ АБОРТАМ
zh0rzh
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 6789


здесь могла бы быть Ваша реклама


Просмотр профиля
« Ответ #24 : 20 Август 2008, 14:15:11 »
Цитата: ugriumiy
Ты файлы создал?
Угрюмыч, мне пока не до файлов.
Я как попробую, так сразу моргну в топик. ОК?
Записан
ugriumiy
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 929


Просмотр профиля
« Ответ #25 : 20 Август 2008, 14:24:49 »
Вся процедура занимает минут пять
Спать пошел
Записан

Скажи - НЕТ АБОРТАМ
zh0rzh
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 6789


здесь могла бы быть Ваша реклама


Просмотр профиля
« Ответ #26 : 20 Август 2008, 15:16:52 »
Угрюмыч, у мну есть время.
Я действую! Жди!
Записан
zh0rzh
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 6789


здесь могла бы быть Ваша реклама


Просмотр профиля
« Ответ #27 : 20 Август 2008, 15:29:04 »
Цитата: ugriumiy
Type there


Private Sub Workbook_Open()
    MsgBox "Зхорх"
End Sub

Save the file
Close it
Run the file

If windows appeared To run or not to run - answeris To Run

Это сделал. Окошко "Зхорх" появляется, с кнопкой "ОК".
Записан
zh0rzh
Пользователь


Адекватность: 0
Offline Offline

Сообщений: 6789


здесь могла бы быть Ваша реклама


Просмотр профиля
« Ответ #28 : 20 Август 2008, 15:37:50 »
Дочитал до конца....

Цитата: ugriumiy
Итак у тебя два файла на десктопе
book1.xls
book2.xls

В book2.xls в первом Sheet -  в первой клетке цифра 1 (Один)
Файлы сохранены

В book1.xls у тебя процедура

Private Sub Workbook_Open()
Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("C:\Documents and Settings\Administrator\Desktop/book2.xls")
MsgBox oWB.Sheets(1).Cells(1, 1).Value
End Sub

При открывании файла book1.xls
Он покажет msgbox "1"



Мне не надо показывать значение в msgbox!!!! Мне надо чтобы эта цифра "1" появилась в файле book1.xls и файл book2.xls вообще не открывался.
Понятно нэ?
Записан
passingby
Пользователь


Адекватность: -1
Offline Offline

Сообщений: 1374


Просмотр профиля
« Ответ #29 : 20 Август 2008, 17:44:17 »
Цитировать
У тебя - это как презерватив надевать - через УХО

А у тебя - как ногой в жопу вместо стремени. Условия задачи хоть понял, грумотей?
Записан
Страниц: 1 [2] 3 4 5 ... 11
  Печать  
 
Перейти в: