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

Поиск:

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


Новичок



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

Репутация: нет
Всего: нет
Всем Привет!!

    Понимаю что эта тема рассмотренна уже со всех сторон, но везде говорится про фаил который имеет контретный путь!! 
У меня следующая проблема как открыть фаил который находится в тойже папки что и ЕХЕ программа (или в подпапке), без указания конкретного диска и без указания сколько папок было до этого ???

 smile 
PM MAIL ICQ   Вверх
boevik
Дата 14.12.2006, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 35
App.Path - возвращает папку в которой находится exe.

Код

OpenFile (App.Path &"\myfile.dat")



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
ruslan_rx
Дата 14.12.2006, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
boevik,  Спасибо! 
PM MAIL ICQ   Вверх
ruslan_rx
Дата 14.12.2006, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
При написании OpenFile (App.Path &"\РК-1.xls") пишет ошибк: Sub or Function not defined!

Пишу тогда по другому Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE App.path РК-1.xls" ссылка выполняется но так же всплывают ошипки:

Цитата
Не удалость найти 'App.path'.Проверте задание имени и местоположения файла. 


и

Цитата
Не удалость найти '&.xls'.Проверте задание имени и местоположения файла. 


В чем дело???  smile 
PM MAIL ICQ   Вверх
Voldemar2004
Дата 14.12.2006, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
ruslan_rx, 
Цитата(ruslan_rx @  14.12.2006,  11:10 Найти цитируемый пост)
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE App.path РК-1.xls"
А ты так попробуй:
Код
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" & App.path & "\РК-1.xls"


Добавлено @ 10:24 
А лучше так:
Код
Option Explicit

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " & CommonDialog1.FileName

End Sub



--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
ruslan_rx
Дата 14.12.2006, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" & App.path & "\РК-1.xls" 

Вообще не открывает, ОШИБКА!

а при 
Цитата

Option Explicit
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " & CommonDialog1.FileName
End Sub

Ругается на CommonDialog1

 smile

Добавлено @ 11:03 
Все я ее все таки добил!!!

Цитата
Private Sub РК1_Click()

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " + App.Path & "\РК-1.xls"

End Sub
PM MAIL ICQ   Вверх
Voldemar2004
Дата 14.12.2006, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
В Project->Components->Controls - поставь галочку напротив Microsoft Common Dialog Control и нажми Ok.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
antiQuark
Дата 30.12.2006, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
извините за офтоп , но у меня Visual Studio 2005 и я не могу найти Microsoft Common Dialog Control - очень нужно, и кстати как сделать exe'шник в VS 2005, в отличии от Бэйсик  6.0 там нет Маке .exe , или я не нашел! smile Помогите плз!

Это сообщение отредактировал(а) antiQuark - 30.12.2006, 21:22
PM MAIL   Вверх
ruslan_rx
Дата 10.1.2007, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
У меня еще вопрос! если в пути к файлу имеются пробелы то фаил не запускается!!! т.е. он разбивает путь как на два пути  smile !!!! Как сделать что бы фаил запустился т.к. в пути есть пробелы??

 smile 
PM MAIL ICQ   Вверх
boevik
Дата 10.1.2007, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 35
взять имя файла в кавычки


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
ruslan_rx
Дата 10.1.2007, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Неа, этот вариант не годится, у меня путь не конкретный!!!

Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " + App.Path & "\T_File\name.xls"


так вот в пути до файла есть пробелы, допустим "Program Files" но не обезательно!

и по данной команде (приведенной выше) он не находит файл!
PM MAIL ICQ   Вверх
Akina
Дата 10.1.2007, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Тутанхамец
Дата 10.1.2007, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6
Есть еще один момент насчет App.Path. На нем редко когда, но все-таки можно лохануться. 
Обычно путь App.Path НЕ оканчивается на "\". Но если прога лежит прямо в корневухе (C:\), то путь оканчивается на слэш. 

Поэтому я в начале проги делаю так:

Код

progpath=app.path 'progpath - глобальная переменная
if right$(progpath,1)<>"\" then progpath=progpath+"\"

 


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Akina
Дата 10.1.2007, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
а вообще почему бы не плясать от текущего каталога?

Код

chdir app.path
shell "EXCEL .\T_File\name.xls"



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ruslan_rx
Дата 11.1.2007, 06:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Akina,  Спасибо!!
 вариант с
Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""

Работает!!!

А вот последний нехочет!!!
PM MAIL ICQ   Вверх
Тутанхамец
Дата 11.1.2007, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6
А текущий каталог может быть не тем, из которого запустилась прога?



--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
ruslan_rx
Дата 16.1.2007, 07:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Возник новый вопрос!
при прописании адреса на объект

Цитата
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""


у меня все нормально открывается!!! у меня стоит Офис 2003!!!!
после того когда я попробывал запустить на другой машине с Офисом 2000, то объект не запустился, и написал Фаил не найден!

может можно как то обойтись без конкретной привязки место нахождения Excel'я??

 smile 
PM MAIL ICQ   Вверх
Akina
Дата 16.1.2007, 08:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(ruslan_rx @  16.1.2007,  08:50 Найти цитируемый пост)
может можно как то обойтись без конкретной привязки место нахождения Excel'я??

Конечно... вместо
C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE 
использовать
start EXCEL.EXE 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ruslan_rx
Дата 16.1.2007, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата
start EXCEL.EXE 
 не идет! 

Ошибка 53! Фаил не найден!
PM MAIL ICQ   Вверх
bom
Дата 16.1.2007, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
API "ShellExecute" заюзать - религия не позволяет?

Код

Call ShellExecute(0, "open", "T_File\name.xls", vbNullString, vbNullString, 0)


Для VB 2005:
Код

System.Diagnostics.Process.Start("T_File\name.xls")
PM MAIL   Вверх
ruslan_rx
Дата 17.1.2007, 07:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
bom,  если ввести так как ты написал, 

Цитата
Call ShellExecute(0, "open", "T_File\name.xls", vbNullString, vbNullString, 0)


то пишет что Sab или Funtion не определена!!!
может подскажешь!!! что еще надо написать??? я в VB пока новичек, и еще почти ничего не знаю!
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 11
Всего: 109
Терзают меня смутные сомнения...


Уважаемый ruslan_rx!!!

Ты пишешь программу на VB или на VBA?

Если это макрос Excel, то из самого макроса можно узнать место размещения файла EXCEL.EXE через Application.Path...

Если же ты из программы на VB6 хочешь это узнать, то кто мешает создать экземпляр Excel и у него спросить тот же самый Path?


Или я опять что-то не так понял...



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


Новичок



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

Репутация: нет
Всего: нет
mihanik, пишу на VB, в окне Form1 есть кнопка корорая ссылается на на фаил Excel'я!! И для того что бы открыть этот фаил я испльзовал команду:

Код
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""


и у меня все работало!!! Но когда я запустил этот фаил на другой машине (где стоит MS Office 2000) то он не запустился, а на других машинах с MS Office 2003 все прекрасно работает!!!

так как мне исправить что все запускалось не зависимо какой стоит ОФИС на машине?
PM MAIL ICQ   Вверх
Naghual
Дата 17.1.2007, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Код

Option Explicit

Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "C:\Temp\Взаиморасчеты.xls", vbNullString, "C:\Temp", SW_SHOWNORMAL
End Sub



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
ruslan_rx
Дата 17.1.2007, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
все отличие между 2000 и 2003 в пути !!!
если стоит 2000 то...
Код
Shell "C:\Program Files\Microsoft Office\OFFICE\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""


а для 2003...
Код
Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE """ + App.Path & "\T_File\name.xls"""



может тогда сначала определить версию офиса, или что выручайте!!!!
PM MAIL ICQ   Вверх
Naghual
Дата 17.1.2007, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
См. выше.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
ruslan_rx
Дата 17.1.2007, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Naghual, Куда именно?? говори конкретно!!
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 11
Всего: 109
ruslan_rx, извини тупого....

Я так понимаю, что необходимо сделать так, чтобы открылся ехель с каким-то открытым документом?



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


Новичок



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

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

на ФОРМЕ есть кнопка....

Код

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



и при ее нажатии соответственно нужно что бы фаил открылся, в данном случае команда рабочая! но только если установлен ОФИС 2003. при другом скажем при 2000 путь к ЕКСЕЛЮ меняется! и фаил не открывается вообще!
PM MAIL ICQ   Вверх
mihanik
Дата 17.1.2007, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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

Option Explicit

Private Sub Command1_Click()
Dim AppExcel As Excel.Application
Dim wBook As Workbook
Dim FileName As String

    ' Задаю имя файла с книгой Excel, где лежит рисунок
    FileName = "C:\Documents and Settings\Mihanik\Desktop\Книга1.xls"
    
    ' Запускаю Excel, открываю файл
    Screen.MousePointer = vbHourglass
    Set AppExcel = CreateObject("Excel.Application")
    Set wBook = AppExcel.Workbooks.Open(FileName)
    Screen.MousePointer = vbDefault

    AppExcel.Visible = True
    
    ' Место расположения Excel узнаём AppExcel.Path
    ' Например так MyPath = AppExcel.Path
    
    ' Закрываю книгу, выгружаю Excel
    ' wBook.Close
    Set wBook = Nothing
    Set AppExcel = Nothing
End Sub


Добавлено @ 13:39 
Я никак не могу понять, где лежит файл, который надо открыть?
Общие правила (не путь, а общий принцип) его расположения известны?

Добавлено @ 13:49 
Мой фрагмент будет работать, если в референсах  проекта подключить Microsoft Excel N Object Library

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


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
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.1768 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


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

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