Подскажите, можно ли и, если да, то как именно, прописать команду меню excel: "Данные, импорт внешних данных, импортирование данных" на обычную кнопку на форме (чтобы открывалось меню выбора файла который требуется импортировать)
Подскажите, можно ли и, если да, то как именно, прописать команду меню excel: "Данные, импорт внешних данных, импортирование данных" на обычную кнопку на форме (чтобы открывалось меню выбора файла который требуется импортировать)Skorpika
достаточно чтобы при нажатии кнопки просто открылось окно с выбором файла, дальше найти, выбрать файл и нажать 3 раза "ок"они справятся, а вот объяснить им дорогу "данные-импортирование внешних данных-импортировать данные" это к сожалению за гранью фантастики. даже если сделать форму картинку где человечек будет махать флагом с необходимыми инструкциями... нереально. а вот думаю что инструкции: "выберите свой файл с данными и нажмите 3 раз "ОК", идиоты!! - это им по силам... P.S. и да, файлы абсолютно одинаковые, данные в таблице разные. спс
достаточно чтобы при нажатии кнопки просто открылось окно с выбором файла, дальше найти, выбрать файл и нажать 3 раза "ок"они справятся, а вот объяснить им дорогу "данные-импортирование внешних данных-импортировать данные" это к сожалению за гранью фантастики. даже если сделать форму картинку где человечек будет махать флагом с необходимыми инструкциями... нереально. а вот думаю что инструкции: "выберите свой файл с данными и нажмите 3 раз "ОК", идиоты!! - это им по силам... P.S. и да, файлы абсолютно одинаковые, данные в таблице разные. спсSkorpika
Сообщение отредактировал Skorpika - Воскресенье, 07.12.2014, 15:24
Sub import() [a1].Select Application.Wait (Now() + TimeValue("00:00:01")) SendKeys "%+ы+юп+т" End Sub
[/vba] Сделал через SendKeys последняя буква = текст Через этот способ можно запускать много команд: Чтобы знать что написать: жмите Alt - а далее смотрите на буквы, которые появились
В общем можно так(для текста) : [vba]
Код
Sub import() [a1].Select Application.Wait (Now() + TimeValue("00:00:01")) SendKeys "%+ы+юп+т" End Sub
[/vba] Сделал через SendKeys последняя буква = текст Через этот способ можно запускать много команд: Чтобы знать что написать: жмите Alt - а далее смотрите на буквы, которые появились SLAVICK
SLAVICK, что то не колдуется у меня. идею понял, полистал справочную инфу, но всё одно не клеится что-то выскакивает "70" (в смысле ошибка 70 В доступе отказано... в каком??? куда??? всё открыто ничего не защищено). Вручную, удерживая "альт", последовательно нажимаем Д Ш И и выскакивает требуемое окошко, а прописать не получается... 70 и всё тут.
Файл "1455261.xls" это файл куда на 2-ой (чистый) лист начиная с А1 и далее надо перенести единственные данные файла "0326021.xls" с 1-го листа (значений вполне достаточно, без формул вычисления, хотя можно и с ними), Данные листа 1 файла 0326021.xls в границах таблицы переносим на 2-лист файла 1455261.xls. можешь просто помочь прописать строчку с сендом и "ALT+д ш и"?
И кстати, зачем пауза экселю, что он не успевает?
SLAVICK, что то не колдуется у меня. идею понял, полистал справочную инфу, но всё одно не клеится что-то выскакивает "70" (в смысле ошибка 70 В доступе отказано... в каком??? куда??? всё открыто ничего не защищено). Вручную, удерживая "альт", последовательно нажимаем Д Ш И и выскакивает требуемое окошко, а прописать не получается... 70 и всё тут.
Файл "1455261.xls" это файл куда на 2-ой (чистый) лист начиная с А1 и далее надо перенести единственные данные файла "0326021.xls" с 1-го листа (значений вполне достаточно, без формул вычисления, хотя можно и с ними), Данные листа 1 файла 0326021.xls в границах таблицы переносим на 2-лист файла 1455261.xls. можешь просто помочь прописать строчку с сендом и "ALT+д ш и"?
И кстати, зачем пауза экселю, что он не успевает?Skorpika
Пауза - для того, чтобы посыл был от имени Excelя, а не ВБА. У меня работает так: [vba]
Код
Sub import() [a1].Select Application.Wait (Now() + TimeValue("00:00:01")) SendKeys "%дши" End Sub
[/vba] А прошлый мой вариант работает(окно всплывает?) Если нет, возможно антивирус, или еще что. Метод SendKeys - довольно нестабилен.
Если нужно выбрать файл Excel для дальнейшей обработки можно так Тогда точно все будет работать. Просто Вы не уточняли, что Вы хотите и с какими данными делать
Пауза - для того, чтобы посыл был от имени Excelя, а не ВБА. У меня работает так: [vba]
Код
Sub import() [a1].Select Application.Wait (Now() + TimeValue("00:00:01")) SendKeys "%дши" End Sub
[/vba] А прошлый мой вариант работает(окно всплывает?) Если нет, возможно антивирус, или еще что. Метод SendKeys - довольно нестабилен.
Если нужно выбрать файл Excel для дальнейшей обработки можно так Тогда точно все будет работать. Просто Вы не уточняли, что Вы хотите и с какими данными делать SLAVICK
Открывать (или выбирать для дальнейшей работы) - а дальше макросом копируете из книги в нужную книгу нужные данные. Если честно не пойму зачем импортировать Экселевские файлы, если их удобнее обрабатывать макросом
Открывать (или выбирать для дальнейшей работы) - а дальше макросом копируете из книги в нужную книгу нужные данные. Если честно не пойму зачем импортировать Экселевские файлы, если их удобнее обрабатывать макросом SLAVICK
приветствую всех и прошу помощи. есть большая база данных компаний, данные в формате пдф. структура в каждом файле практически одинаковая - есть различия в количестве полей телефонов и контактных лиц.руководство требует сформировать единую таблицу (базу данных) данных компаний, в которой можно будет найти эти телефонные номера и контактные лица, и при необходимости посмотреть полную информацию по компании (ссылка на исходный файл).
пример файла для обработки лежит здесь (удалено администрацией) помогите или подскажите к кому обратиться - список файлов уже большой (более 1500), открывать и искать в каждом - займет столько времени, что все остальные дела просто завалятся. при необходимости исходные файлы могу переконвертить в эксель или ворд [moder]Читайте правила форума, создавайте свою тему! Пример нужен в формате xls![/moder]
приветствую всех и прошу помощи. есть большая база данных компаний, данные в формате пдф. структура в каждом файле практически одинаковая - есть различия в количестве полей телефонов и контактных лиц.руководство требует сформировать единую таблицу (базу данных) данных компаний, в которой можно будет найти эти телефонные номера и контактные лица, и при необходимости посмотреть полную информацию по компании (ссылка на исходный файл).
пример файла для обработки лежит здесь (удалено администрацией) помогите или подскажите к кому обратиться - список файлов уже большой (более 1500), открывать и искать в каждом - займет столько времени, что все остальные дела просто завалятся. при необходимости исходные файлы могу переконвертить в эксель или ворд [moder]Читайте правила форума, создавайте свою тему! Пример нужен в формате xls![/moder]avdsm82
Сообщение отредактировал Manyasha - Вторник, 19.05.2015, 12:22