Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

Macros

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование
Предыдущая тема :: Следующая тема  
Автор Сообщение
CAHEK
Гость
СообщениеДобавлено: Ср Дек 22 2004 11:22    Заголовок сообщения: Macros Ответить с цитатой
Доброе время суток!
Сталкнулся с проблемой такого плана: надо пересохранить кучу файлов типа excel в формат dbf. Для конкретного файла макрос выглядит так


Код:

 With ActiveWindow
        .Top = 7.75
        .Left = 15.25
    End With
    ChDir "E:\Новая папка\azs1"
    Workbooks.Open Filename:="E:\Новая папка\azs1\ 888             АЗС №1.XLS"
    With ActiveWindow
        .Width = 576.75
        .Height = 334.5
    End With
    Range("A1:O422").Select
    ChDir "E:\Новая папка\azs1bdf"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\Новая папка\azs1bdf\888             АЗС №1.dbf", FileFormat:=xlDBF4, _
        CreateBackup:=False


А как передовать в макрос пути открытия и сохранения как параметры?
Заранее благодарен!
Вернуться к началу
grayrat



Зарегистрирован: 30.06.2003
Сообщения: 189
СообщениеДобавлено: Пт Дек 24 2004 03:42    Заголовок сообщения: Ответить с цитатой
пусть например в ячейке 2,2 написано "Брать файлы из:", а в ячейке 2,3 прописана папка : "E:\Новая папка\azs1". Тогда можно вместо
ChDir "E:\Новая папка\azs1"
Workbooks.Open Filename:="E:\Новая папка\azs1\ 888 АЗС №1.XLS"
писать так
ChDir Cells(2,3).Value
Workbooks.Open Filename:=Cells(2,3).Value + "888 АЗС №1.XLS"

А еще поместить на этот лист кнопку "Выполнить" а к ней приципить макрос.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597 		Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов 		This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...