Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Есть папка надо открыть ВСЕ файлы в этой папке.
 
#1
17.11.2008 09:51:03
Сорри ув. спецы просмотрел все посты по этой теме , но видимо в силу врожденной тупости не понял ... Как мне отрыть все файлы находяшиеся в определенной папке при открытии одного (главного),Поставщики.xls например, находящегося в той же папке. Если можно простенький код киньте.
 
 
 
#2
17.11.2008 10:41:48
Workbooks.Open "1.xls"  
Workbooks.Open "2.xls"  
Workbooks.Open "3.xls"  
Workbooks.Open "....xls"  
и т.д.
 
 
 
#3
17.11.2008 10:47:05
А по подробнее можно Есть файл Главный открываю его и запускается макрос открывающий все файлы в этой папке ... там же еще какие-то другие слова надо писать для автозапуска...
 
 
 
#4
17.11.2008 10:59:48
В модуль "ЭтаКнига" вставляете:  
 
Private Sub Workbook_Open()  
ChDir ThisWorkbook.Path 'открывает из той же папки где нах. файл с макросом  
Workbooks.Open "1.xls"  
Workbooks.Open "2.xls"  
Workbooks.Open "3.xls"  
Workbooks.Open "....xls"  
и т.д.  
 
End Sub  
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ
 
 
 
#5
17.11.2008 11:05:29
{quote}{login=}{date=17.11.2008 10:59}{thema=}{post}В модуль "ЭтаКнига" вставляете:  
 
Private Sub Workbook_Open()  
ChDir ThisWorkbook.Path 'открывает из той же папки где нах. файл с макросом  
Workbooks.Open "1.xls"  
Workbooks.Open "2.xls"  
Workbooks.Open "3.xls"  
Workbooks.Open "....xls"  
и т.д.  
 
End Sub  
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ{/post}{/quote}  
Спасибо попробую...    
правда не понял это зачем?    
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ
 
 
 
#6
17.11.2008 11:05:32
path=workboks("поставщики").fullname  
path=mid(path,1,InStrRev(path,"\"))  
nm=dir(path & "*.xls")  
if nm="" then exit sub  
do  
workbooks.open(nm, ..)  
nm=dir()  
loop while nm<>""  
 
made in notepad
Живи и дай жить..
 
 
 
#7
17.11.2008 17:47:42
{quote}{login=Микки}{date=17.11.2008 11:05}{thema=Re: }{post}{quote}{login=}{date=17.11.2008 10:59}{thema=}{post}В модуль "ЭтаКнига" вставляете:  
 
Private Sub Workbook_Open()  
ChDir ThisWorkbook.Path 'открывает из той же папки где нах. файл с макросом  
Workbooks.Open "1.xls"  
Workbooks.Open "2.xls"  
Workbooks.Open "3.xls"  
Workbooks.Open "....xls"  
и т.д.  
 
End Sub  
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ{/post}{/quote}  
Спасибо попробую...    
правда не понял это зачем?    
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ{/post}{/quote}  
по умолчанию ChDir ThisWorkbook.Path открывает из папки указанной в Сервис-Параметры-общие-рабочий каталог:.
 
 
 
#8
17.11.2008 18:31:07
Спасибо понял даже в 2007 нашел где это...
 
 
 
#9
18.11.2008 09:40:23
{quote}{login=}{date=17.11.2008 05:47}{thema=Re: Re: }{post}{quote}{login=Микки}{date=17.11.2008 11:05}{thema=Re: }{post}{quote}{login=}{date=17.11.2008 10:59}{thema=}{post}В модуль "ЭтаКнига" вставляете:  
 
Private Sub Workbook_Open()  
ChDir ThisWorkbook.Path 'открывает из той же папки где нах. файл с макросом  
Workbooks.Open "1.xls"  
Workbooks.Open "2.xls"  
Workbooks.Open "3.xls"  
Workbooks.Open "....xls"  
и т.д.  
 
End Sub  
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ{/post}{/quote}  
Спасибо попробую...    
правда не понял это зачем?    
Сервис-Параметры-общие-рабочий каталог: УДАЛИТЬ{/post}{/quote}  
по умолчанию ChDir ThisWorkbook.Path открывает из папки указанной в Сервис-Параметры-общие-рабочий каталог:.{/post}{/quote}Вы это откуда взяли? Включите макрорекордер и узнайте, что "Сервис-Параметры-общие-рабочий каталог" есть Application.DefaultFilePath.  
А ThisWorkbook.Path это всегда(!) путь к ЭТОЙ книге.  
И я бы не пользовался ChDir  
myDir = ThisWorkbook.Path & "\"  
Workbooks.Open myDir & "1.xls"  
Workbooks.Open myDir & "2.xls"  
Указывать полный путь к файлу, надежнее.  
А еще лучше, как слэн советует. Будете избавлены от ошибок, если 2.xls отсутствует.
Bite my shiny metal ass!      
 
 
 
#10
18.11.2008 09:44:57
2 слэн  
А почему:  
path=workboks("поставщики").fullname  
path=mid(path,1,InStrRev(path,"\"))  
А не    
path=workboks("поставщики").path & "\"  
?
Bite my shiny metal ass!      
 
 
 
#11
18.11.2008 17:16:44
Всем спасибо за участие..  
Объясните лиз два момента...  
workbooks.open(nm, ..) что вместо .. ставить?  
 
И вот эта строка о чем?  
made in notepad
 
 
 
#12
18.11.2008 17:33:52
{quote}{login=Микки}{date=18.11.2008 05:16}{thema=}{post}Всем спасибо за участие..  
Объясните лиз два момента...  
workbooks.open(nm, ..) что вместо .. ставить?  
{/post}{/quote}  
 
выделяешь "open", жмешь F1  
 
{quote}{login=Микки}{date=18.11.2008 05:16}{thema=}{post}  
И вот эта строка о чем?  
made in notepad  
{/post}{/quote}  
 
это уж пости, только для посвященных 3-тьей степени!
 
 
 
#13
18.11.2008 17:36:27
{quote}{login=Микки}{date=18.11.2008 05:16}{thema=}{post}Всем спасибо за участие..  
Объясните лиз два момента...  
workbooks.open(nm, ..) что вместо .. ставить?  
{/post}{/quote}  
 
выделяешь "open", жмешь F1  
 
{quote}{login=Микки}{date=18.11.2008 05:16}{thema=}{post}  
И вот эта строка о чем?  
made in notepad  
{/post}{/quote}  
 
это уж прости, только для посвященных 3-тьей степени!
 
 
 
#14
24.08.2009 15:56:24
А так не проще: Ctrl+A, потом в контекстном меню "Открыть" ?
 
 
 
#15
24.08.2009 16:27:33
А не проще создать рабочую область?  
Открыть все файлы в данной папке, ФАЙЛ-СОХРАНИТЬ РАБОЧУЮ ОБЛАСТЬ, обозвать ярлычок и указать его местонахождение
 
 
 
Страницы: 1
Читают тему
Наверх