Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как открыть фаил? Открыть НЕ из фиксированной папки!!!! 
V
    Опции темы
ruslan_rx
Дата 17.1.2007, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



mihanik, есть ЕХЕ програмка, которая по сути и состоит из одних кнопок к которым прикреплены ЭКСЕЛЕВСКИЕ файлы. файлы которые необходимо запустить лежат в подкаталогах где находится ЕХЕ фаил. 

что то типа такого С:/[...]/[В этой папке програмка]/[...]/[а вот сдесь уже фаилы которые надо запустить].xls

но суть то не в этом!
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Итак....

Подвожу итог.
У тебя есть программа, которая находится в некоем каталоге (папке).
В том же каталоге (папке) есть какая-то папка с именем MyFolder.
Нужно чтобы при нажатии на кнопку в программе происходило следующее:
1. Запускался ехель
2. При запуске ехель открывал бы какой-то файл из папки с именем MyFolder.

Так?

Относительный путь к файлу .xls известен?
Имя файла известно?

Если всё так, как я предполагаю, то всё решается очень просто!!!

Это сообщение отредактировал(а) mihanik - 17.1.2007, 14:10


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ruslan_rx
Дата 17.1.2007, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



mihanik,  ТОЧНО, а как это сделать? я делал так (MS Excel 2003).... (уже достал наверное всех smile )

Код

Private Sub E_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\E_File\Electric_file.xls"""
End Sub

но этот способ не уневерсален, сделешь на 2003, тогда с 2000 не онкроешь (MS Excel 2000 находится в C:\Program Files\Microsoft Office\OFFICE\EXCEL.EXE)


PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Вот тебе мой проект с исходником, скомпилированным проектом и вложенной папкой с документом...

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Proba.rar 9,82 Kb


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ruslan_rx
Дата 17.1.2007, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



mihanik, ПРОБЛЕМА!!!

почему с твоего запускается проекта, а когда я делаю в своем проекте ругается!

Цитата

Ошибка компиляции:
Неописан определяемый пользователем тип.


и выделяет AppExcel As Excel.Application
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Я же говорил, что в референсах надо всё подключить!!!!


Project / References / Microsoft Excel N Object Library

Добавлено @ 14:51 
Не забудь проверить, будет ли это всё работать в других офисах...


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ruslan_rx
Дата 17.1.2007, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



УРААА ВСЕ ЗАРАБОТАЛО!!!!!!



mihanik,  спасибо!!!!

 smile 


Это сообщение отредактировал(а) ruslan_rx - 17.1.2007, 14:54
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Рад!!! smile 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ruslan_rx
Дата 17.1.2007, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



mihanik, а еще сможешь помочь?

У меня на компьтере все идет просто на ура!
А вот на компе где стоит 2000 офис при нажатии на кнопку, получается критическая ошибка, и прога закрывается!!!!
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Надо подумать...


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
ruslan_rx
Дата 18.1.2007, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



mihanik,  я тут все рыскал.... думал что еще придумать.... и вот кое что заметил, может в этом все дело! То что ты мне написал подключить...
Цитата
Project / References / Microsoft Excel N Object Library

но у меня была не совсем такая строчка, а вот такая 
Цитата
Project / References / Microsoft Excel 11 Object Library
, може все таки в этом дело? ведь 2003ий он и идет как 11ый !!!!
PM MAIL ICQ   Вверх
ruslan_rx
  Дата 18.1.2007, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет



Все проблема решена, все работает и на 2003 и на 2000 офисе, я просто повзаимствовал библиотеку из 2000 офиса.

и вместо строки...
Цитата
Project / References / Microsoft Excel 11 Object Library
 теперь ...
Цитата
Project / References / Microsoft Excel 5.0 Object Library
Проверил работает!!

УРААА!!!
PM MAIL ICQ   Вверх
mihanik
Дата 18.1.2007, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



ruslan_rx, молодец!!!

А то я уже копать хотел сегодня в сторону реестра.

Дело в том, что в реестре прописано ГДЕ стоит Word и Excel

Цитата

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\НОМЕР_ОФИСА\Excel\InstallRoot]
"Path"="C:\\Program Files\\Microsoft Office\\OFFICE11\\"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\НОМЕР_ОФИСА\Word\InstallRoot]
"Path"="C:\\Program Files\\Microsoft Office\\OFFICE11\\"


У меня, например значения такие

Цитата

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\InstallRoot]
"Path"="C:\\Program Files\\Microsoft Office\\OFFICE11\\"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Word\InstallRoot]
"Path"="C:\\Program Files\\Microsoft Office\\OFFICE11\\"


Перебираешь пару ключей реестра и находишь место установки excel...  smile 

Молодец, что сам нашёл решение...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 22.1.2007, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Ещё вот так можно...

Код

Option Explicit

Private Sub Command1_Click()
    Dim ws As Object
    Dim s As String
    Dim MyPath As String
    Dim MyDocName As String
    Dim MyApp As Variant
    
    ' Создаём объект для работы с  оболочкой...
    Set ws = CreateObject("WScript.Shell")
    
    ' Создаём строку для запуска...
    MyPath = App.Path + "\Proba\"
    MyDocName = "Лист Microsoft Excel.xls"
    s = "excel.exe " & """" & MyPath & MyDocName & """"

    ' запускаем Ехель
    MyApp = ws.run(s, 1, False)
    
    ' уничтожаем экземпляр объекта...
    Set ws = Nothing
End Sub



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Страницы: (3) Все 1 2 [3] 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0995 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.