ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открытие Вордовского файла
19 сообщений из 19, страница 1 из 1
открытие Вордовского файла
    #33691247
xxxPaVelxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xxxPaVelxxx
Гость
Многоуважаемые знатоки не подскажете как сделать так, чтоб при нажатии кнопки на форме появлялось бы окошко выбора открываемого файла(текстового или доковского), а затем непосредственно запуск выбранного файла ???
Более понятный пример : как InternetExplorer Файл- Открыть, только все это хочется сделать в VB, назначив это действие на кнопку в форме.
...
Рейтинг: 0 / 0
26.04.2006, 12:24
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33691336
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Добавляешь на форму элемент управления "CommonDialog".

На кнопку вешаешь.

Код: plaintext
1.
2.
3.
    CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
    CommonDialog1.ShowOpen
    ' Открывать либо через Shell или ShellExecute.
    Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"
...
Рейтинг: 0 / 0
26.04.2006, 12:45
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33695491
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
- Бросаешь на форму обеъкт OLE (у меня имя объекта OLEWord)
- А на кнопку обработчик в котором

Dim oDoc As Object

On Error GoTo Err_handler
OLEWord.CreateEmbed "Документ.doc", "Word.Document"
On Error GoTo 0
Set oDoc = OLEWord.object

oDoc.PrintPreview

Exit Sub

Err_handler:
MsgBox "Ошибка при открытии документа! (" & Err.Description & ")", vbCritical
...
Рейтинг: 0 / 0
27.04.2006, 17:42
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33698668
xxxPaVelxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xxxPaVelxxx
Гость
CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
CommonDialog1.ShowOpen
' Открывать либо через Shell или ShellExecute.
Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"

Ashton что значит открывать через Shell или ShellExecute??? Не мог бы ты написать какой-нибудь пример?
...
Рейтинг: 0 / 0
28.04.2006, 22:23
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33698929
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
xxxPaVelxxxCommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
CommonDialog1.ShowOpen
' Открывать либо через Shell или ShellExecute.
Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"

Ashton что значит открывать через Shell или ShellExecute??? Не мог бы ты написать какой-нибудь пример?

Это и есть пример! Вставляешь этот код в обработчик кнопки и все!
Это вызов word как в командной строке.
...
Рейтинг: 0 / 0
29.04.2006, 12:22
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33698989
xxxPaVelxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xxxPaVelxxx
Гость
Я зделал все как вы сказали, но после нажатия на кнопку я успешно выбираю вордовский документ который я хочу открыт и нажимаю ОК(открыть), а в результате чего выбивается окно с ошибкой "ФАЙЛ НЕ НАЙДЕН!!!"
...
Рейтинг: 0 / 0
29.04.2006, 13:25
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33699304
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Ну если файл не найден, то его и нет.
У суть в том, что если не указывать путь то файл открывается из каталога ... . Правильно "Мои документы".

Или у Вас не открывается Word?
...
Рейтинг: 0 / 0
29.04.2006, 20:38
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33699315
xxxPaVelxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xxxPaVelxxx
Гость
Суть в том что при нажатии на кнопку успешно появляется окошко, в котором а выбираю нужный мне вордовский файл (например Мои документы -> Text.doc) нажимаю в этом окошке на кнопочку "ОК" и выбивается сообщение об ошибке "Файл не найден"(хотя этот файл существует на этом месте),а также выделяется нижняя строка в программе:

Shell "WINWORD.EXE """ & CommonDialog1.FileName & """"
...
Рейтинг: 0 / 0
29.04.2006, 21:01
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33699651
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Укажи полный путь к файлу "WINWORD.EXE".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Dim strWordPath As String
    Dim strFileName As String
    Dim dblRetVal As Double

    strWordPath = "C:\Program Files\" & _
      "Microsoft Office\OFFICE11\WINWORD.EXE"
    
    CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
    CommonDialog1.ShowOpen

    strFileName = CommonDialog1.FileName
    
    dblRetVal = Shell(strWordPath & " """ & strFileName & """", _
      vbNormalFocus)
    
    If dblRetVal =  0  Then
        MsgBox "Не удалось открыть файл."
    End If
...
Рейтинг: 0 / 0
30.04.2006, 14:13
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33699735
xxxPaVelxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xxxPaVelxxx
Гость
ОГРОМНОЕ ВАМ СПАСИБО !!!!
...
Рейтинг: 0 / 0
30.04.2006, 16:12
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33699748
xxxPaVelxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xxxPaVelxxx
Гость
Еще один вопросик "А можно таким же образом сделать Экспорт ил Импорт файла ???".
Я в том смысле чтобы сделать копирование или вырезания файла из одной папки в другую, например переместить Файл с именем Icon.doc из папки "Доки" в папку "Проги".
P.S : надеюсь что мне удалось смысл вопроса Вам передать! :)
...
Рейтинг: 0 / 0
30.04.2006, 16:28
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33998259
assstarot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assstarot
Гость
AshtonУкажи полный путь к файлу "WINWORD.EXE".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Dim strWordPath As String
    Dim strFileName As String
    Dim dblRetVal As Double

    strWordPath = "C:\Program Files\" & _
      "Microsoft Office\OFFICE11\WINWORD.EXE"
    
    CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
    CommonDialog1.ShowOpen

    strFileName = CommonDialog1.FileName
    
    dblRetVal = Shell(strWordPath & " """ & strFileName & """", _
      vbNormalFocus)
    
    If dblRetVal =  0  Then
        MsgBox "Не удалось открыть файл."
    End If

А у меня вообще пишет
Run-time error '424':
Object required
...
Рейтинг: 0 / 0
19.09.2006, 23:28
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33998261
assstarot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assstarot
Гость
Ругался на
CommonDialog1.Filter = "Документы Word (*.DOC)|*.DOC"
...
Рейтинг: 0 / 0
19.09.2006, 23:29
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33998577
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Ну так добавьте на форму Common Dialog Control.
...
Рейтинг: 0 / 0
20.09.2006, 09:31
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33999092
assstarot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assstarot
Гость
MelkiadesНу так добавьте на форму Common Dialog Control.
А что добавить-то? :(
...
Рейтинг: 0 / 0
20.09.2006, 11:42
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #33999932
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
assstarot MelkiadesНу так добавьте на форму Common Dialog Control.
А что добавить-то? :(
Common Dialog control (смотри в Project-reference)

похоже все разжевали.
...
Рейтинг: 0 / 0
20.09.2006, 14:35
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #34000653
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
авторassstarot
Melkiades
Ну так добавьте на форму Common Dialog Control.


А что добавить-то? :(


Common Dialog control (смотри в Project-reference)

похоже все разжевали.
А его добавь сначала из списка компонент (правой кнопкой мышки по панельке компонент кликни и выбери Components, поставь галочку где надо - Microsoft Common Dialog Control ... и OK).
...
Рейтинг: 0 / 0
20.09.2006, 16:58
| Ответить | Цитировать | Написать  
открытие Вордовского файла
    #34008687
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
xxxPaVelxxxЕще один вопросик "А можно таким же образом сделать Экспорт ил Импорт файла ???".
Я в том смысле чтобы сделать копирование или вырезания файла из одной папки в другую, например переместить Файл с именем Icon.doc из папки "Доки" в папку "Проги".
P.S : надеюсь что мне удалось смысл вопроса Вам передать! :)

можно через объект FileSystemObject, подключаешь ссылку на объект Microsoft Scripting Runtime и объявляешь объект Scripting.FileSystemObject в своей проге, вот конкретный пример
Код: plaintext
1.
2.
3.
4.
Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject
objFSO.MoveFile strSource,strDest 'перемещение
objFSO.CopyFile strSource,strDest 'копирование
objFSO.DeleteFile strFile удаление
...
Рейтинг: 0 / 0
25.09.2006, 07:28
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
открытие Вордовского файла
    #35979362
Ира812
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ира812
Гость
Не открывается вордовский файл!!!!! Файл сохранен, но открыть его не получается! Пишет ошибка при открытии! Что делать! Помогите плиз!! неужеле он умер навсегда???
...
Рейтинг: 0 / 0
11.05.2009, 22:52
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открытие Вордовского файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34008687&tid=2161042]:
 0ms
get settings:
 8ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 202ms
total:  303ms
созд. / загр.: 303ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]