Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » lenok
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Удаление "*" в тексте
 
#
21.06.2013 06:52:46
Код
Cells(строка, 2).Value = .Replace(Cells(строка, 1).Value, vbNullString)


он здесь почему-то ошибку выдает :o
 
Перейти    
Удаление "*" в тексте
 
#
21.06.2013 03:00:06
Столкнулась с проблемой, перерыла уже кучу информации, но так и не могу найти решение...

помогите!!! пожалуйста...

Как удалить звездочку "*" из текста макросом.

Например, есть текст "***Пример", нужно, чтобы осталось "Пример"...
Звездочку он распознает как любые значения, и удаляет ВСЕ.
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
04.06.2013 10:26:36
anvg, огромное Вам спасибо!!!!!!!!!!!! все получилось наконец-то)))))))) :D  ;)  ;)  ;)
 
Перейти    
Объединение всех файлов эксель в одной папке, структура файлов одинакова
 
#
04.06.2013 09:34:18
:) это меня, конечно радует))) а как??? :o
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
04.06.2013 09:23:43
неа...  тоже не открывает....  :| а надо, чтобы открывал... там мне уже без разницы, есть цикл или нет... надо, чтобы он поддиректории просматривал :?:
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
04.06.2013 08:50:37
он не открывает тогда файл в поддиректории :(
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
04.06.2013 08:07:46
все, поняла..... все работает...спасибо большое....  :D  и еще один вопрос, если можно....:
как это все сделать так, чтобы он был без этих кнопочек, а в таком виде, чтобы автоматически включался???

до этого было прописано так, но он только с одной папки так открывает....
Заранее огромное спасибо вам!!!!!!!!  :oops:  

Код
Sub ARM()
    Dim f As String, folder As String, file_name As String
    'Папка для поиска
    folder = "C:\Documents and Settings\maks\Рабочий стол\Документы\"
    'Ячейка с именем файла
    file_name = LCase(Range("D1")) & ".xls"
    f = Dir(folder)
    While Not Len(f) = 0
        If LCase(f) = file_name Then

            Workbooks.Open folder & f
           
 Application.Run "ARM.XLS!ARM6"
            Exit Sub
        End If
        f = Dir()
    Wend

    Application.Run "ARM.XLS!ARM4"
End Sub
Изменено: lenok - 04.06.2013 23:58:03
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
04.06.2013 07:29:04
Код
    Const baseFolder = "d:\project"
я так понимаю, здесь надо прописать адрес самой папки, это понятно...
а имя файла он где будет брать???
 
Перейти    
Объединение всех файлов эксель в одной папке, структура файлов одинакова
 
#
04.06.2013 06:37:40
А если открывать этот отчет, неужели невозможно, чтобы он обновлял данные, но не по конкретной формуле сумм ячеек, а из всех файлов в директории???
 
Перейти    
Объединение всех файлов эксель в одной папке, структура файлов одинакова
 
#
04.06.2013 06:12:40
Всем привет!!!

Имеются определенные дирректории с эксель отчетами.
Все они имеют одинаковую структуру (Листы, формулы, графики, таблички).

Есть общий файл отчета, в этой же папке.
Возможно ли прописать макросом, чтобы при добавлении в эту папку еще одного файла, данные суммировались, не открывая даже этот итоговый отчет.

Чтобы постоянно не прописывать формулу в нем, добавляя новые отчеты.

Заранее благодарю за помощь....  ;)   :oops:   :oops:   :oops:
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
04.06.2013 04:45:14
что-то я не могу разобраться совсем :cry:
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
03.06.2013 10:52:47
Есть огромный отчет. после обработки макросом, надо, чтобы он брал имя файла из определенной ячейки и открывал фаил с таким именем. информации много, и такой отчет обрабатывается каждый месяц. примерное кол-во файлов на один отчет больше 1000, поэтому, сами понимаете, что открывать каждый, это рутина. таких отчетов за один месяц 30 штук. соответственно, около 30000 существующих файлов...вот как-то так все глобально......

просто открыть, с этим мы разобрались..... но некоторые файлы находятся в поддиректориях, и постоянно происходят какие-то перемещения в этой директории...
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
03.06.2013 09:48:05
Просто документов очень много. и постоянно открывать файлы под определенными названиями..... смысл тогда составления макроса... Пишу для автоматизации процессов обработки информации, и остановилась на этом моменте.

:oops:
 
Перейти    
условия по действиям
 
#
31.05.2013 07:31:22
все! Работает!!! где-то, что-то я напутала :D

Огромное Вам спасибо!!!!!!!! :D  :D  :D  :D  :D  :D  :D  :D  :D  :D
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
31.05.2013 05:44:46
а можно ли сделать, чтобы он искал документ в поддиректориях??? :oops:
 
Перейти    
условия по действиям
 
#
31.05.2013 02:58:07
Код
Sub ARM5()
    Dim f As String, folder As String, file_name As String
    'Папка для поиска
    folder = "C:\Documents and Settings\maks\Рабочий стол\Документы\"
    'Ячейка с именем файла
    file_name = LCase(Range("D1")) & ".xls"
    f = Dir(folder)
    While Not Len(f) = 0
        If LCase(f) = file_name Then

            Workbooks.Open folder & f
            Application.Run "ARM.XLS!ARM6"
            Exit Sub
        End If
        f = Dir()
    Wend

    Application.Run "ARM.XLS!ARM4"
End Sub



но он все равно выполняет следующий макрос ARM4, несмотря на то, что условие выполняется и выполняется ARM6.
 
Перейти    
условия по действиям
 
#
30.05.2013 09:08:30
ну, задумка и была в том, чтобы он именно открывал книги с такими именами, так как это отчет, и с него необходимо данные разнести по разным книгам , либо дополняя их (ARM6) , либо создавая новую (ARM4).

в (ARM4) он присваивает имя из этой ячейки, а в (ARM6) открывает и дополняет данными уже существующую.

вы не знаете, каким образом можно этот вопрос решить тогда?
 
Перейти    
условия по действиям
 
#
30.05.2013 08:55:51
Код
25 ДВ Давыд.18 (9025603)
 
Перейти    
условия по действиям
 
#
30.05.2013 08:52:48
Но он почему-то не выполняет первое условие и не выполняет ARM6, а делает ARM4 сразу :cry:
 
Перейти    
условия по действиям
 
#
30.05.2013 08:36:58
Нет, необходимо, чтобы если он нашел фаил, сделал ARM6, а если не нашел его, то ARM4 ..



Код
Sub ARM5()
    Dim f As String, folder As String, file_name As String
    'Папка для поиска
    folder = "C:\Documents and Settings\maks\Рабочий стол\Документы\"
    'Ячейка с именем файла
    file_name = Range("D1")

    f = Dir(folder)
    While Not Len(f) = 0
        If f = file_name Then
            Workbooks.Open folder & f
            Application.Run "ARM.XLS!ARM6"
            Exit Sub
        End If
        f = Dir()
    Wend

    Application.Run "ARM.XLS!ARM4"
End Sub
 
Перейти    
условия по действиям
 
#
30.05.2013 08:08:32
только он не выполняет тогда условие первое, то есть не делает  Application.Run "ARM.XLS!ARM6"

   Dim f As String, folder As String, file_name As String
   'Папка для поиска
   folder = "C:\Documents and Settings\maks\Рабочий стол\Документы\"
   'Ячейка с именем файла
   file_name = Range("D1")

   f = Dir(folder)
   While Not Len(f) = 0
       If f = file_name Then
           Workbooks.Open folder & f
           Application.Run "ARM.XLS!ARM6"
           Exit Sub
       End If
       f = Dir()
   Wend



а выполняет только


   Application.Run "ARM.XLS!ARM4"
 
Перейти    
условия по действиям
 
#
30.05.2013 07:21:43
Блииииин!!!!!!!!! Огромное, приогромное спасибо!!!!!!!!!!!!
Вы мне очень помогли))))))) :D  :D  :D  :D  :D  :D  :D  :D  :D
 
Перейти    
активировать книгу
 
#
30.05.2013 06:16:04
Большое, прибольшое спасибо :D  :D  :D
 
Перейти    
условия по действиям
 
#
30.05.2013 05:00:16
Помогите, пожалуйста...
Как сделать так, чтобы при выполнении этого условия существования книги, запускался  "ARM.XLS!ARM6", но тогда не выполнялся "ARM.XLS!ARM4", но при отсутствии книги, выполнялся "ARM.XLS!ARM4".

Не могу никак разобраться с этими условиями в действиях.....



Sub ARM5()
 
 
   Dim f As String, folder As String, file_name As String
   'Папка для поиска
   folder = "C:\Documents and Settings\maks\Рабочий стол\Документы\"
   'Ячейка с именем файла
   file_name = Range("D1")
   
   f = Dir(folder)
   While Not Len(f) = 0
   If f = file_name Then
   Workbooks.Open folder & f
   End If
   f = Dir()
   Wend
 
   Application.Run "ARM.XLS!ARM6"
   Application.Run "ARM.XLS!ARM4"

   
   End Sub
 
Перейти    
активировать книгу
 
#
30.05.2013 02:36:55
Только книгу "Отчет" закрывать не нужно, просто потом прописаны действия с ними обоими. :oops:
 
Перейти    
активировать книгу
 
#
30.05.2013 02:33:21
ой, как до меня не дошло то..... а Вы не могли бы подсказать, как это написать? Уже голова кругом...
Буду очень благодарна!!!!!!!!!!
 
Перейти    
активировать книгу
 
#
30.05.2013 02:00:09
Спасибо, ребят, улыбнули, правда))))) :D  :D  :D

Ну, в двух словах, открыто две книги. Одна с названием "Отчет", и вторая книга открыта с названием "......." (Они постоянно разные открываются). И, если я могу написать

Windows("Отчет.xlt").Activate

то для второй книги прописывать название просто нереально... Их прям огромное колличество...
Вот и возникает вопрос, как активировать вторую открытую книгу...

Заранее, спасибо))))))))
 
Перейти    
активировать книгу
 
#
29.05.2013 10:38:26
Как в макросе активировать книгу эксель из нескольких открытых книг, не указывая конкретного ее имени?
 
Перейти    
Действия при ошибках
 
#
24.05.2013 08:41:11
а как сделать, чтобы выбор варианта ответа при появлении диалогового окна был автоматический, или чтобы оно вообще не вылазило???
 
Перейти    
поиск и открытие файла эксель по названию из ячейки
 
#
24.05.2013 08:40:39
а как сделать, чтобы выбор варианта ответа при появлении диалогового окна был автоматический, или чтобы оно вообще не вылазило???
 
Перейти    
Страницы: 1 2 След.
Наверх