|
|
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
1. Допустим у меня открыто несколько рабочих книг. Как макросно закрыть книгу имя которой лежит напрример в ячкейке А1? 2. ThisWorkbook.path даёт путь с директориями, а мне нужен просто диск? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 15:36:26 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
Здравствуйте, эт надобно ознакомиться с коллекциями в Excel (WorkBooks,WorkSheets). Можно попробовать так: Application.WorkBooks(ActiveWorkBooks.WorkSheets("Лист1").Range("A1")).Close SaveChanges:=True. Application.WorkBooks - эт мы обратились к открытым книгам Excel. ActiveWorkBooks.WorkSheets("Лист1").Range("A1") - эт мы указываем имя книги, с которой будем работать. И вызываем метод Close - чтобы закрыть. SaveChanges - эт хотим ли мы сохранить ее перед закрытием али нет. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 15:49:26 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
Не срабатывает в том то и дело пишу конкретно вот как : Workbooks(Range("A1")).Close savechanges:=False по длинному тоже не хочет еррор дебаг и тд Workbooks(Workbooks("пересчёт.xlsm").Worksheets("Лист1").Range("A1")).Close savechanges:=False ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 16:09:15 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
а приведите пример имен, которые хранятся в ячейках, в частности A1. В WorkBooks() мы подаем просто имя книги, без никакого расширения. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 16:20:17 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
1. Что с расширениями что без результат тот же - строка не работает : Workbooks(Workbooks("пересчёт.xlsm").Worksheets("Лист1").Range("A1")).Close savechanges:=False 2. без расширения в файле (пересчёт.xlsm) в пути, тоже не работает : Workbooks(Workbooks("пересчёт").Worksheets("Лист1").Range("A1")).Close savechanges:=False error 13 - type mistmatch ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 16:49:16 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
Пример имени? Workbooks(CStr(Workbooks("пересчёт").Worksheets("Лист1").Range("A1").Value)).Close savechanges:=False Может так попробуйте. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 17:19:35 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
Ещё как вариант в книге имя которой вы якобы указываете в A1 сделайте маленький макрос sub q msgbox thisworkbook.Name end sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 17:20:39 |
|
||
|
Пара простых вопросов
|
|||
|---|---|---|---|
|
#18+
пример имени - Ск_Новос (склад Новосельковская означает :) ) А вот последнее предложение рабочее nporaMepПример имени? Workbooks(CStr(Workbooks("пересчёт").Worksheets("Лист1").Range("A1").Value)).Close savechanges:=False Может так попробуйте. Причём работает в обоих случаях если в яч A1 лежит имя и с расширением - "Ск_Новос.xlsx" и без - "Ск_Новос" А так же всё работает если убрать CStr() => .Value - имеет ключевое значение Первый вопрос закрыт, благодарствую участников ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2009, 17:34:10 |
|
||
|
|
start [/forum/topic.php?fid=61&gotonew=1&tid=2179911]: |
0ms |
get settings: |
6ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
184ms |
get topic data: |
9ms |
get first new msg: |
4ms |
get forum data: |
2ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 199ms |
| total: | 469ms |
| 0 / 0 |
