Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.06.2008, 12:59   #1
Bu$ter
Пользователь
 
Аватар для Bu$ter
 
Регистрация: 16.05.2008
Сообщений: 73
По умолчанию Создание своей сводной таблицы...

Доброго времени суток.
Вот такая задача мучает уж довольно давно.
Условие: есть оперативные файлы, куда заносится инфа ежедневно. В конце недели файл переименовывают по дате (типа Цены_06.06.08, Цены_13.06.08, Цены_20.06.08 и д.т.) и помещают в папку. Шаблон у всех одинаков (поля "цена", "количество" и т.п.), меняется только содержимое полей данных. Также имеется сводная таблица, имеющая тот же шаблон, что и оперативные файлы, но в поля данных нужно ввести поочереди данные из полей оперативных файлов...

Макрос я напишу. Скажите как можно создать форму, которая предлагала бы добавить новый файл, из которого возьмёт очередные данные. Т.е. жмем кнопку - появляется форма - через нее добавляем к списку новый файл-источник. А то каждый раз дописывать вручную строки в маркосе неохота...
Вложения
Тип файла: rar пример.rar (18.8 Кб, 23 просмотров)
Bu$ter вне форума
Старый 17.06.2008, 13:27   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Насколько я правильно понял, Вы хотите воспользоваться стандартным вариантом получения имени файла с помощью встроенного диалогового окна Windows? Примерно так:
Код:
Sub UseFileDialogOpen()

    Dim SelectedFile As String
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        SelectedFile = .SelectedItems(1)
    End With

End Sub
После выполнения этого кода, строковая переменная SelectedFile будет содержать полный путь и имя выбранного Вами файла.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 17.06.2008, 14:01   #3
Bu$ter
Пользователь
 
Аватар для Bu$ter
 
Регистрация: 16.05.2008
Сообщений: 73
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Насколько я правильно понял, Вы хотите воспользоваться стандартным вариантом получения имени файла с помощью встроенного диалогового окна Windows? Примерно так:
Код:
Sub UseFileDialogOpen()

    Dim SelectedFile As String
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        SelectedFile = .SelectedItems(1)
    End With

End Sub
После выполнения этого кода, строковая переменная SelectedFile будет содержать полный путь и имя выбранного Вами файла.
Почти...
Попробуй пояснить... Смысл в том, чтобы через этот макрос (форму) - выбранный файл добавлялся в список тех файлов, из которых берут данные
Думаю в примере все ясно... Если нужны более детальные объяснения - пишите...
Bu$ter вне форума
Старый 17.06.2008, 14:25   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Для обьекта файл диалог ставим
.AllowMultiSelect = True
теперь можно отметить столько файлов, столько душе угодно, после закрытия окна все отмеченные окажутся в коллекции .SelectedItems
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 17.06.2008, 14:30   #5
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Так это и есть форма, только стандартная. Зачем создавать свою?
Я, наверное, чего-то не понимаю. Выполняем этот код, полученное значение добавляем к какому-то Вашему списку. А что еще нужно? Можно добавить MultiSelect, Filter и т.д.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск