Не работает Open

@aleks_des · Регистрация: 20.01.2015

Студворк — интернет-сервис помощи студентам

Не могу понять не работает "Open"

Visual Basic
1
2
3
4
5
6
' Кнопка "Письмо"
Private Sub cmd_Документ_Click()
 
    Open "P:\Integral\Документы\Письмо.doc" For Input As #1
 
End Sub

Выдает ошибку:

Run-time error '55':
File already open

в чем причина? Могу предположить, что из Кириллицы в адресе, если это так, то как быть не переписывая адрес в транслит???

Добавлено через 3 минуты
Я кажется понял в чем дело - Файл открыт но его не видно!!!

Добавлено через 15 минут
Но что делать так и не понял

@Волшебник 307 · 29.04.2015, 15:06

aleks_des,
Что ты хочешь?

@aleks_des · 29.04.2015, 15:14 **[ТС]**

Открыть файл "Письмо.doc" с помощью VBA

@Волшебник 307 · 29.04.2015, 15:23

aleks_des,
Сделай модуль и вызывай.

Модуль.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Compare Database
Option Explicit
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal Operation As String, _
    ByVal File As String, _
    ByVal Param As String, _
    ByVal Directory As String, _
    ByVal CmdShow As Long) As Long
 
Public Const ShowNormal = 1
 
Function OpenFile(FileName As String)
Dim Result As Integer
Result = ShellExecute(Application.hWndAccessApp, "open", FileName, 0, 0, ShowNormal)
    If Result = 31 Then
    If (7 = MsgBox("Ошибка!" & vbNewLine & "Тип файла незарегестрирован.", 16, "Заголовок")) Then
    End If
    End If
End Function

Вызов.

Visual Basic
1
2
3
Private Sub cmd_Документ_Click()
    OpenFile ("P:\Integral\Документы\Письмо.doc")
End Sub

@aleks_des · 29.04.2015, 15:34 **[ТС]**

для чего такое нагромождение? мне как то сложно понять как это работает Public Declare Function, для чего If...Then...

Как это работает?

@Волшебник 307 · 29.04.2015, 15:42

aleks_des,
Обычная API-функция,
обычная проверка.

@aleks_des · 29.04.2015, 15:49 **[ТС]**

Мне дилетанту сложно в этом разобраться. По проще как нибудь можно открыть файл?

@Волшебник 307 · 29.04.2015, 15:55

Есть и другой способ, синтаксиса сейчас не вспомню,
Дождись мобиле, он подскажет.
Там вроде через командную строку.

Добавлено через 34 секунды
А разве этот вариант ре работает?

@UBUNTU · 29.04.2015, 15:59

aleks_des, Ваш первый код, открывает файл на построчную запись, это вам не поможет так как вы открываете файл который имеет свою структуру, не как текстовый файл. Вам не поможет это. И ошибка говорит о том, что вы его открыли, но не закрыли и он у Вас открытый остается. Что вы хотите делать далее с открытым файлом Word?

@aleks_des · 29.04.2015, 16:23 **[ТС]**

файл Word имеет слияние с таблицей в Accees. Отрывая файл Word выбираю нужную запись редактирую и закрываю его

Добавлено через 6 минут
Волшебник 307, я не проверял возможно работает меня просто большие записи которые я не понимаю пугают,я как то с осторожностью к ним подхожу

Добавлено через 3 минуты
по своей сфере деятельности приходится самому все делать изучать и тестить, все что сам сделал или позаимствовал я понимаю, а какие то крупные программные коды без их осмысления применять опасаюсь, через год не разберусь чего это такое

Я так понимаю это не только для Вордовских файлов но и вообще для всех у меня такого широкого спектра потребности в открытии сторонних файлов не будет, только Вордовские по нажатию кнопки

@Волшебник 307 · 29.04.2015, 16:41

aleks_des,
Вот можно, ещё так.

Visual Basic
1
2
3
Private Sub cmd_Документ_Click()
Application.FollowHyperlink "P:\Integral\Документы\Письмо.doc"
End Sub

Надеюсь 1 строчку осмыслишь.
---------------------------------------------------------------
Но по-мойму,
тебе уже отвечали на этот вопрос
в другой твоей теме.

@aleks_des · 29.04.2015, 16:47 **[ТС]**

сейчас попробую, спасибо, с одной строкой справлюсь )))

Добавлено через 2 минуты
Работает! То, что нужно. Волшебник 307, спасибо

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@Волшебник 307 1396 / 331 / 45 Регистрация: 16.04.2013 Сообщений: 786 Записей в блоге: 2
	29.04.2015, 15:06
	aleks_des, Что ты хочешь? 0

@aleks_des 194 / 13 / 3 Регистрация: 20.01.2015 Сообщений: 180
	29.04.2015, 15:14 [ТС]
	Открыть файл "Письмо.doc" с помощью VBA 0

@aleks_des 194 / 13 / 3 Регистрация: 20.01.2015 Сообщений: 180
	29.04.2015, 15:34 [ТС]
	для чего такое нагромождение? мне как то сложно понять как это работает Public Declare Function, для чего If...Then... Как это работает? 0

@Волшебник 307 1396 / 331 / 45 Регистрация: 16.04.2013 Сообщений: 786 Записей в блоге: 2
	29.04.2015, 15:42
	aleks_des, Обычная API-функция, обычная проверка. 0

@aleks_des 194 / 13 / 3 Регистрация: 20.01.2015 Сообщений: 180
	29.04.2015, 15:49 [ТС]
	Мне дилетанту сложно в этом разобраться. По проще как нибудь можно открыть файл? 0

@Волшебник 307 1396 / 331 / 45 Регистрация: 16.04.2013 Сообщений: 786 Записей в блоге: 2
	29.04.2015, 15:55
	Есть и другой способ, синтаксиса сейчас не вспомню, Дождись мобиле, он подскажет. Там вроде через командную строку. Добавлено через 34 секунды А разве этот вариант ре работает? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	29.04.2015, 15:59
	aleks_des, Ваш первый код, открывает файл на построчную запись, это вам не поможет так как вы открываете файл который имеет свою структуру, не как текстовый файл. Вам не поможет это. И ошибка говорит о том, что вы его открыли, но не закрыли и он у Вас открытый остается. Что вы хотите делать далее с открытым файлом Word? 0

@aleks_des 194 / 13 / 3 Регистрация: 20.01.2015 Сообщений: 180
	29.04.2015, 16:23 [ТС]
	файл Word имеет слияние с таблицей в Accees. Отрывая файл Word выбираю нужную запись редактирую и закрываю его Добавлено через 6 минут Волшебник 307, я не проверял возможно работает меня просто большие записи которые я не понимаю пугают,я как то с осторожностью к ним подхожу Добавлено через 3 минуты по своей сфере деятельности приходится самому все делать изучать и тестить, все что сам сделал или позаимствовал я понимаю, а какие то крупные программные коды без их осмысления применять опасаюсь, через год не разберусь чего это такое Я так понимаю это не только для Вордовских файлов но и вообще для всех у меня такого широкого спектра потребности в открытии сторонних файлов не будет, только Вордовские по нажатию кнопки 0

@aleks_des 194 / 13 / 3 Регистрация: 20.01.2015 Сообщений: 180
	29.04.2015, 16:47 [ТС]
	сейчас попробую, спасибо, с одной строкой справлюсь ))) Добавлено через 2 минуты Работает! То, что нужно. Волшебник 307, спасибо 0

Не работает Open

Решение