ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / по Excel
20 сообщений из 20, страница 1 из 1
по Excel
    #34849385
diabloskrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
diabloskrk
Гость
Может поможет кто? Как сделать и возможно ли такое ??
У меня есть документ на винте D:\1.xls и второй документ D:\2.xls . Вот, как мне присвоить значение ячейки R1C1 из 1.xls ну, допустим какой нить любой ячейке из 2.xls ?
Спасибо.
...
Рейтинг: 0 / 0
05.10.2007, 12:40:52
| Ответить | Цитировать | Написать  
по Excel
    #34849515
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если не открывая ни один из документов, то ищи на форуме по слову "ADO"
...
Рейтинг: 0 / 0
05.10.2007, 13:01:44
| Ответить | Цитировать | Написать  
по Excel
    #34849536
diabloskrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
diabloskrk
Гость
объясните , что значит не открывая ... а если они открыты ?
...
Рейтинг: 0 / 0
05.10.2007, 13:04:51
| Ответить | Цитировать | Написать  
по Excel
    #34849606
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
diabloskrkобъясните , что значит не открывая ... а если они открыты ?

Ну если обе книги открыты, то

Кодом
Код: plaintext
Workbook("Книга1.xls").Sheets("Лист1").Range("A1") = Workbook("Книга2.xls").Sheets("Лист1").Range("A1")

Ну или в ячейке написать = и выбрать ячейку в другой книге после чего нажать Enter. Вы извините что я такое предлагаю, но вы в вопросе мало информации указываете.
...
Рейтинг: 0 / 0
05.10.2007, 13:14:04
| Ответить | Цитировать | Написать  
по Excel
    #34849716
diabloskrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
diabloskrk
Гость
Если написать = и перейти на др книгу, то не выбирает ту ячейку ((
и куда такой код писать ?
извиняюсь.
...
Рейтинг: 0 / 0
05.10.2007, 13:30:00
| Ответить | Цитировать | Написать  
по Excel
    #34850142
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
diabloskrkЕсли написать = и перейти на др книгу, то не выбирает ту ячейку ((
и куда такой код писать ?
извиняюсь.

С этим вы не по адресу:
-Либо вы решили постебаться
-Либо вам нужно купить книгу из серии "для чайников" и начать с неё.
...
Рейтинг: 0 / 0
05.10.2007, 14:56:50
| Ответить | Цитировать | Написать  
по Excel
    #34850203
diabloskrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
diabloskrk
Гость
никакого стеба, сорри.. согласен, что нужно книга для чайника.. просто проблемку это необходимо решить быстро, поэтому и обратился сюда.. а когда открыто два экселевских документа, то действительно по = ничего не происходит ..
...
Рейтинг: 0 / 0
05.10.2007, 15:08:54
| Ответить | Цитировать | Написать  
по Excel
    #34850296
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
diabloskrkникакого стеба, сорри.. согласен, что нужно книга для чайника.. просто проблемку это необходимо решить быстро, поэтому и обратился сюда.. а когда открыто два экселевских документа, то действительно по = ничего не происходит ..
- выбираем ячейку
- нашимаем "="
- выбираем на панели задач Windows или комбинацией Alt + tab другой файл
- выбираем ячейку и жмём Enter
...
Рейтинг: 0 / 0
05.10.2007, 15:29:30
| Ответить | Цитировать | Написать  
по Excel
    #34850340
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
...может быть два Экселя открыто? - поэтому и не происходит.
...
Рейтинг: 0 / 0
05.10.2007, 15:39:04
| Ответить | Цитировать | Написать  
по Excel
    #34850527
diabloskrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
diabloskrk
Гость
ну, да, конечно два экселя открыто.. я ж написал, у меня два файла 1.xls и 2.xls ...
...
Рейтинг: 0 / 0
05.10.2007, 16:24:04
| Ответить | Цитировать | Написать  
по Excel
    #34850935
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
diabloskrkну, да, конечно два экселя открыто.. я ж написал, у меня два файла 1.xls и 2.xls ...

Два Аппликэйшэна открыто...
Откройте обе книги в одном.
...
Рейтинг: 0 / 0
05.10.2007, 17:50:39
| Ответить | Цитировать | Написать  
по Excel
    #34851604
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Уважаемый Deggasad Member ЗАЧЭМ МУЧИЕШ ЧЭЛОВЕКА - Помоги а!
авторdiabloskrk Наверное Вы хотите сказать если книгf авторD:\1.xls закрыта, то из авторD:\2.xls книги переслать данные в книгу авторD:\1.xls
...
Рейтинг: 0 / 0
06.10.2007, 10:21:35
| Ответить | Цитировать | Написать  
по Excel
    #34853092
diabloskrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
diabloskrk
Гость
ага, вот что то в этом роде я и хочу ..
...
Рейтинг: 0 / 0
08.10.2007, 10:02:08
| Ответить | Цитировать | Написать  
по Excel
    #34854110
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
авторага, вот что то в этом роде я и хочу ..
Вот Пример кода где данные из "D:\2.xls" книги перекачивают в книгу "D:\1.xls"
Пояснения
В книге "D:\2.xls" - на листе Лист1 в яйчейке Е4 стоит какая то цифра от 1 до 12
В книге "D:\1.xls" - листы именованы от А1 до А12
В итоге если на листе Лист1 в яйчейке Е4 стоит 1, то в книге "D:\1.xls" - на листе А1 вписываются данные Workbooks("2.xls").Worksheets("Лист1").Range("A1:A700").Value перекачивают в книгу "D:\1.xls" Worksheets("A" & n).Range("A1:A700").Value

авторPrivate Sub CommandButton1_Click()
Dim n As Variant
n = Worksheets("Лист1").Range("E4").Value
iFileName$ = "D:\1.xls"

If Dir(iFileName$) <> "" Then
With Application
.ScreenUpdating = False
With .Workbooks.Open(Filename:=iFileName$)
.Worksheets("A" & n).Range("A1:A700").Value = Workbooks("2.xls").Worksheets("Лист1").Range("A1:A700").Value ' открыть и перекачать данные диапазона A1:A700 в книгу "D:\1.xls"
.Close saveChanges:=True ' закрыть книгу "D:\2.xls"
End With
.ScreenUpdating = True
End With
Else
MsgBox "OK !!"
End If
End Sub
...
Рейтинг: 0 / 0
08.10.2007, 14:28:15
| Ответить | Цитировать | Написать  
по Excel
    #34854119
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
В итоге если на листе Лист1 в яйчейке Е4 стоит 2, то в книге "D:\1.xls" - на листе А2 вписываются данные Workbooks("2.xls").Worksheets("Лист1").Range("A1:A700").Value перекачивают в книгу "D:\1.xls" Worksheets("A" & n).Range("A1:A700").Value
...
Рейтинг: 0 / 0
08.10.2007, 14:30:16
| Ответить | Цитировать | Написать  
по Excel
    #34854127
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Выражение автор.Worksheets("A" & n). может быть так
автор.Worksheets("Книга" & n).
...
Рейтинг: 0 / 0
08.10.2007, 14:32:00
| Ответить | Цитировать | Написать  
по Excel
    #34854145
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Можно убрать действия, при котором данные перекачивают в нужный лист при это убрать из кода
авторn = Worksheets("Лист1").Range("E4").Value и код автор.Worksheets("A" & n).Range("A1:A700").Value = Workbooks("2.xls").Worksheets("Лист1").Range("A1:A700").Value ' открыть и перекачать данные диапазона A1:A700 в книгу "D:\1.xls" переименовать на автор.Worksheets("Лист1").Range("A1:A700").Value = Workbooks("2.xls").Worksheets("Лист1").Range("A1:A700").Value ' открыть и перекачать данные диапазона A1:A700 в книгу "D:\1.xls"
...
Рейтинг: 0 / 0
08.10.2007, 14:36:20
| Ответить | Цитировать | Написать  
по Excel
    #34855421
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Ser ArturУважаемый Deggasad Member ЗАЧЭМ МУЧИЕШ ЧЭЛОВЕКА - Помоги а!

Большой вопрос к тебе - чем и кого я мучаю! Если человек действительно не умеет ссылку сделать, то Ваши примеры и есть мучение - человек может навсегда Экселя Испугаться.
...
Рейтинг: 0 / 0
09.10.2007, 01:00:54
| Ответить | Цитировать | Написать  
по Excel
    #34855432
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
Братья, закройте тему...
...
Рейтинг: 0 / 0
09.10.2007, 01:19:34
| Ответить | Цитировать | Написать  
по Excel
    #34855813
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Дорогой друг авторDeggasad прости Ты как ни как прав, но объяснить можно хотя бы малость.
...
Рейтинг: 0 / 0
09.10.2007, 10:03:39
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / по Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34850296&tid=2182133]:
 0ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 187ms
total:  310ms
созд. / загр.: 310ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]