А если App.Path не работает

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Artur KakTus
Обычный пользователь
Обычный пользователь
 
Сообщения: 51
Зарегистрирован: 19.02.2004 (Чт) 12:00
Откуда: Ukraine

А если App.Path не работает

Сообщение Artur KakTus » 23.03.2004 (Вт) 13:13

Прошу прощение за навязчивость, НО ОПЯТЬ проблема у ЧАЙНИКА, т.е. у меня.
Не могу сохранить файл в нужной папке. Т.е. если задать полный путь, то нет проблем, НО мне надо использовать функцию App.Path, т.к. я не знаю точного пути для сохраняемого файла, кроме одного условия - файл должен сохранится во вложенной папке текущей папки. (Например я открываю проект С:\мояПрога\суперфайл.xls. После мне надо сохранить файл результатов обработки в С:\мояПрога\вложеная\неПойму.xls Суперфайл.xls может быть и в другой папке и на другом диске, поэтому указание полного пути не подходит. )
Все казалось бы просто но VBA не понимает App.Path.
Как быть, я уверен, что это элементарно, но я не совсем Понимаю. Уже перепробывал много способов и \\арар\ и ...\\...\ и т.д.)
ПРОШУ ПОМОЧЬ :lol:
Artur KakTus

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 23.03.2004 (Вт) 13:24

Application.Path не поможет отцу русской демократии?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 23.03.2004 (Вт) 13:50

Сомневаюсь, это путь к Excel.
Из чего ты сохраняешь? Из макроса xls-файла? Тогда это будет ThisWorkbook.Path. А почему бы не использовать CurDir$()?
Lasciate ogni speranza, voi ch'entrate.

Artur KakTus
Обычный пользователь
Обычный пользователь
 
Сообщения: 51
Зарегистрирован: 19.02.2004 (Чт) 12:00
Откуда: Ukraine

Работает

Сообщение Artur KakTus » 23.03.2004 (Вт) 14:14

Спасибо Alibek, ты прав я даже забыл про ThisWorkbook.
Попробывал все ОК. Позже попробую с CurDir$()

Пока работает :lol: :lol: :lol: :
Dim dir As String
dir = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=dir & "\kvartal\1ìåñÿö.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Artur KakTus


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: Google-бот, PetalBot и гости: 19

    TopList  
cron