FileOpen

Программирование на Visual Basic for Applications
FLAGER
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 67
Зарегистрирован: 12.09.2005 (Пн) 13:49

FileOpen

Сообщение FLAGER » 21.09.2005 (Ср) 13:36

Здраствуйте. В програме я открываю файл (любой), и хочу присвоить какой-то переменной значение = путь к откритому файлу. Выглядит это так:
Dialogs(wdDialogFileOpen).Show
s = CStr(File.Path)
Но получаеться ошыбка. Кто знает, как сделать правильно?
Пожалуйста, подскажыте.

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Re: FileOpen

Сообщение lord0n » 21.09.2005 (Ср) 14:03

FLAGER писал(а):Здраствуйте. В програме я открываю файл (любой), и хочу присвоить какой-то переменной значение = путь к откритому файлу. Выглядит это так:
Dialogs(wdDialogFileOpen).Show
s = CStr(File.Path)
Но получаеться ошыбка. Кто знает, как сделать правильно?
Пожалуйста, подскажыте.


Код: Выделить всё

ActiveWorkbook.PublishObjects(1).FileName = "\\Server2\Q1\StockReport.htm" :?:
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 21.09.2005 (Ср) 14:05

пардон, не от туда взял :)

Код: Выделить всё

s = ActiveWorkbook.FullName
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

FLAGER
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 67
Зарегистрирован: 12.09.2005 (Пн) 13:49

Сообщение FLAGER » 21.09.2005 (Ср) 14:10

Все равно дает ошыбку "Отсутствует системный файл mstyles.css".
Что делать?

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 21.09.2005 (Ср) 14:18

FLAGER писал(а):Все равно дает ошыбку "Отсутствует системный файл mstyles.css".
Что делать?


ты в чем excel или word
у меня сразу показал путь к файлу
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

FLAGER
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 67
Зарегистрирован: 12.09.2005 (Пн) 13:49

Сообщение FLAGER » 21.09.2005 (Ср) 17:04

Я в Ворде.

FLAGER
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 67
Зарегистрирован: 12.09.2005 (Пн) 13:49

Сообщение FLAGER » 21.09.2005 (Ср) 17:08

И дебуггер показывает ту строку, где написано
s = ActiveWorkbook.FullName.
Никак не разберусь.

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 22.09.2005 (Чт) 7:43

FLAGER писал(а):И дебуггер показывает ту строку, где написано
s = ActiveWorkbook.FullName.
Никак не разберусь.


Код: Выделить всё

s = ActiveDocument.FullName


проверено
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

FLAGER
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 67
Зарегистрирован: 12.09.2005 (Пн) 13:49

Сообщение FLAGER » 22.09.2005 (Чт) 8:31

Спасибо.

FLAGER
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 67
Зарегистрирован: 12.09.2005 (Пн) 13:49

Сообщение FLAGER » 23.09.2005 (Пт) 12:43

Та же проблема. Мне надо, чтобы отрывался любой файл (а умолчанию открываеться окно только для документов Ворда), записать путь к нему, и что бы потом этот файл не открывался.
Помогите, пожалуйста!!


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Mail.ru [бот] и гости: 19

    TopList  
cron