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

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

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

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

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

Два Аппликэйшэна открыто...
Откройте обе книги в одном.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2007, 10:21:35
    #34851604
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
Уважаемый Deggasad Member ЗАЧЭМ МУЧИЕШ ЧЭЛОВЕКА - Помоги а!
авторdiabloskrk Наверное Вы хотите сказать если книгf авторD:\1.xls закрыта, то из авторD:\2.xls книги переслать данные в книгу авторD:\1.xls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2007, 10:02:08
    #34853092
diabloskrk
diabloskrk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
ага, вот что то в этом роде я и хочу ..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2007, 14:28:15
    #34854110
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
авторага, вот что то в этом роде я и хочу ..
Вот Пример кода где данные из "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:30:16
    #34854119
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
В итоге если на листе Лист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:32:00
    #34854127
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
Выражение автор.Worksheets("A" & n). может быть так
автор.Worksheets("Книга" & n).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2007, 14:36:20
    #34854145
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
Можно убрать действия, при котором данные перекачивают в нужный лист при это убрать из кода
автор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
| Ответить | Цитировать | Написать  
09.10.2007, 01:00:54
    #34855421
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
по Excel
Ser ArturУважаемый Deggasad Member ЗАЧЭМ МУЧИЕШ ЧЭЛОВЕКА - Помоги а!

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


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