Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как поменять данные в нескольких файлах не открывая файлы?
 
#1
09.02.2009 16:08:34
Всем здравствуйте! Проблема у меня такая. Есть около  1000 однотипных файлов в которых нужно заменить названия строк и колонок над данными (не сами данные!)  
Например "Февраль" на "Месяц февраль" и т.д. в 1000 файлах.  
Помогите пожалуйста автоматизировать этот процесс? Подскажите кто знает, как это легче всего сделать?
 
 
 
#2
09.02.2009 16:21:11
поиск на форуме как открывать файлы из директории.  
 
алгоритм:  
1.открыть файл    
2. заменить диапазон.  
3. закрыть файл.
 
 
 
#3
09.02.2009 16:26:14
Dim FilesToOpen  
   Dim x As Integer  
 
   FilesToOpen = Application.GetOpenFilename _  
                 (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _  
                  MultiSelect:=True, Title:="Выберите файлы")  
   If TypeName(FilesToOpen) = "Boolean" Then  
       MsgBox "Не выбрано ни одного файла!"  
       GoTo ExitHandler  
   End If  
   x = 1  
   While x <= UBound(FilesToOpen)  
       Workbooks.Open Filename:=FilesToOpen(x)  
...  изменения заголовков  
       ActiveWorkbook.Close  
       x = x + 1  
   Wend
 
 
 
#4
10.02.2009 11:56:20
Марчук!  
Огромное вам спасибо! Но..Я извиняюсь, я не понимаю как применить этот файл? Мне нужно заменить определенные ячейки в файлах не трогая другие. Объясните пожалуйста, как это сделать?
 
 
 
#5
10.02.2009 11:57:45
Марчук  
Я имел ввиду как применить ваш скрипт? Какя понял он не из Excel запускается?
 
 
 
#6
10.02.2009 12:08:26
{quote}{login=}{date=10.02.2009 11:57}{thema=}{post}Марчук  
Я имел ввиду как применить ваш скрипт? Какя понял он не из Excel запускается?{/post}{/quote}  
это макрос и он запускается из excеl
 
 
 
#7
10.02.2009 12:11:46
Марчук, ругается на строку GoTo ExitHandler, что делать?
 
 
 
#8
10.02.2009 12:47:42
{quote}{login=}{date=10.02.2009 12:11}{thema=}{post}Марчук, ругается на строку GoTo ExitHandler, что делать?{/post}{/quote}  
добавь в конец перед End Sub  
 
ExitHandler:  
   Application.ScreenUpdating = True  
   Exit Sub  
ErrHandler:  
   MsgBox Err.Description  
   Resume ExitHandler
 
 
 
#9
10.02.2009 12:49:11
выше пост мой :)
 
 
 
#10
10.02.2009 13:29:21
Попробуй функцию... Сам не пробовал, мысль была, а потом по другому оформил.  
 
Function GetValue(path, file, sheet, ref, CellAddress)  
               'Получает значение из закрытой рабочей книги  
               'Функция GetValue имеет четыре аргумента;  
               'p a t h— путь к закрытому файлу (например, "d: \f i l e s " ) ;  
               'f i l e — название рабочей книги (например, "budget .xls");  
               'sheet — название рабочего листа (например, "Лист1");  
               'ref — ссылка на ячейку (например, "С4").Dim arg As String  
               'CellAddress - ссылка на искомую ячейку.  
               ' Проверка существования файла  
               '  
If Right(path, 1) <> "\" Then path = path & " \"  
If Dir(path & file) = "" Then  
  GetValue = "Файл не найден"  
Exit Function  
End If  
 
               ' Создание аргумента  
arg = "'" & path & "[" & file & " ] " & sheet & "'!" & _
Range(ref).Range("Al").Address(, , xlRlCl)  
               ' Выполнение макроса XLM  
GetValue = ExecuteExcel4Macro(arg)  
End Function
 
 
 
#11
10.02.2009 13:34:44
Если первый раз выбрал какой то файл, а второй раз ничего не выбрал, а просто нажимаю ОК, то сообщение не появляется. Выбирается старый файл.
 
 
 
#12
10.02.2009 13:37:08
Марчук, пост который выше для Вас
 
 
 
#13
10.02.2009 13:56:52
{quote}{login=}{date=10.02.2009 01:37}{thema=}{post}Марчук, пост который выше для Вас{/post}{/quote}  
вот те файл  
разберешься?
 
 
 
#14
10.02.2009 14:06:21
Марчук, автор просил "не открывая файлы". Скорее всего подразумевалось "в невидимом для пользователя режиме". Не вижу в коде строки Visible = False.    
Если не сделаешь корректный код - напишу что-нибудь интересное и специально ЗААРХИВИРУЮ :-)
 
 
 
#15
10.02.2009 14:11:00
{quote}{login=Марчук}{date=10.02.2009 01:56}{thema=Re: }{post}{quote}{login=}{date=10.02.2009 01:37}{thema=}{post}Марчук, пост который выше для Вас{/post}{/quote}  
вот те файл  
разберешься?{/post}{/quote}  
А ведь верно - нажимаю на кнопку открыть не выбрав никакого файла - никакого сообщения. :-)
 
 
 
#16
10.02.2009 14:13:11
{quote}{login=Юрий М}{date=10.02.2009 02:06}{thema=}{post}Марчук, автор просил "не открывая файлы". Скорее всего подразумевалось "в невидимом для пользователя режиме". Не вижу в коде строки Visible = False.    
Если не сделаешь корректный код - напишу что-нибудь интересное и специально ЗААРХИВИРУЮ :-){/post}{/quote}  
я тогда дома открою и прочитаю :)
 
 
 
#17
10.02.2009 14:13:43
{quote}{login=Юрий М}{date=10.02.2009 02:11}{thema=Re: Re: }{post}{quote}{login=Марчук}{date=10.02.2009 01:56}{thema=Re: }{post}{quote}{login=}{date=10.02.2009 01:37}{thema=}{post}Марчук, пост который выше для Вас{/post}{/quote}  
вот те файл  
разберешься?{/post}{/quote}  
А ведь верно - нажимаю на кнопку открыть не выбрав никакого файла - никакого сообщения. :-){/post}{/quote}  
счас посмотрю.
 
 
 
#18
10.02.2009 14:14:19
{quote}{login=Юрий М}{date=10.02.2009 02:06}{thema=}{post}Марчук, автор просил "не открывая файлы". Скорее всего подразумевалось "в невидимом для пользователя режиме". {/post}{/quote}Нет. Не открывая файлы - это еще и желательно комп не включать. Пусть силой мысли обновляются.
Bite my shiny metal ass!      
 
 
 
#19
10.02.2009 14:20:10
доработал скрытно.  
у меня сообщение показывает если не выбрано ни одного файла :(
 
 
 
#20
10.02.2009 14:20:35
{quote}{login=Марчук}{date=10.02.2009 02:20}{thema=}{post}доработал скрытно.  
у меня сообщение показывает если не выбрано ни одного файла :({/post}{/quote}  
забыл
 
 
 
#21
11.02.2009 14:31:54
Марчук  
Вы просто волшебник!!! ОГРОМНОЕ СПАСИБО!!!!!!!!!!  
ТО что нужно!!!! Скачал ваш файл, проверил, поменял на что мне нужно и все!  
Вы гений!!! СПАСИБО еще раз!!!
 
 
 
#22
16.02.2009 12:29:07
Марчук,  
еще раз здравствуйте! Помогите пожалуйста разобраться. Макрос ваш прекрасно работает на домашнем компьютере с русской виндой, а вот на работе где винда английская вместо русских букв какие то каракули. Отчего это так? Причем я выставил в Editore и Courer(Cyrilic)и Times New Roman(Cyrilic) в нем показывает нормально, а вот когда скрипт работает в Excel вставляет черти что. Не подскажите почему так?
 
 
 
#23
16.02.2009 13:13:24
как вариант вместо  русских букв писать английскими буквами, или вообще перевести на английский.  
 
вместо  
   MsgBox "Не выбрано ни одного файла!"  
 
написать  
   MsgBox "Don`t select file!"  
 
вместо  
Title:="Выберите файлы")  
 
написать  
Title:="Select files")  
 
 
с английским у меня слабо.
 
 
 
Страницы: 1
Читают тему
Наверх