Макрос не находит путь к файлу

@Yulia_286 · Регистрация: 15.02.2012

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

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

я даже не знаю, в связи с чем это(
такая фраза, как "ну это глюк Microsofta" меня перестала устраивать
может, знает кто, в чем проблема?

заранее спасибо

21.02.2012, 15:38

Код в студию

@Yulia_286 · 21.02.2012, 15:53 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub MyOpenFile()
 Dim fs As New FileSystemObject
 MyFolder = "C: est"
 For Each XLS In fs.GetFolder(MyFolder).Files
 MyFile = XLS.Name
 
 Set Mybook = Application.Workbooks.Open(MyFile)
'обработка
 Mybook.Save
 Mybook.Close
Next XLS
End Sub

21.02.2012, 16:42

а вот если я нужный файл сама открою-закрою, то все находит

Включите запись макро и посмотрите получившийся код

@Yulia_286 · 21.02.2012, 17:30 **[ТС]**

Сообщение от Silver

а вот если я нужный файл сама открою-закрою, то все находит

Включите запись макро и посмотрите получившийся код

безусловно, это достоинство - говорить кратко и емко, но я не понимаю, на какую мою ошибку Вы хотите мне указать
не могли бы Вы поподробнее...
заранее спасибо

@P_u_n_i_s_h_e_r · 21.02.2012, 19:07

Он не находит путь к файлу. Когда ты открываешь файл, то данная папка становится текущей и в следующий раз все работает.
Поробуй изменить свой код вот так:

Visual Basic
1
Set Mybook = Application.Workbooks.Open(MyFolder + "" + MyFile)

Или используй Application.Path

@Yulia_286 · 22.02.2012, 11:51 **[ТС]**

да, спасибо, это работает
но зато потом в конце

Visual Basic
1
2
3
4
5
 Mybook.Saved = True
 Mybook.Close
fs.DeleteFile MyFile 'убиваем исходный файл 
 Next XLS
End Sub

он его не находит, чтобы удалить(

@P_u_n_i_s_h_e_r · 22.02.2012, 13:04

fs.DeleteFile MyFile 'убиваем исходный файл
ну так тоже самое и в этом случае
fs.DeleteFile MyFolder+""+MyFile

@Yulia_286 · 22.02.2012, 18:37 **[ТС]**

спасибо)

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Yulia_286 0 / 0 / 0 Регистрация: 15.02.2012 Сообщений: 9

	Макрос не находит путь к файлу 21.02.2012, 15:35. Показов 7677. Ответов 8 Метки нет (Все метки) здравствуйте у меня макрос сам должен открывать файлы, что-то с ними делать и закрывать путь у него прописан но вот он сам не находит - говорит, файла не обнаружено, проверьте и т.д. а вот если я нужный файл сама открою-закрою, то все находит я даже не знаю, в связи с чем это( такая фраза, как "ну это глюк Microsofta" меня перестала устраивать может, знает кто, в чем проблема? заранее спасибо 0

@P_u_n_i_s_h_e_r 0 / 0 / 0 Регистрация: 24.04.2010 Сообщений: 29
	22.02.2012, 13:04
	fs.DeleteFile MyFile 'убиваем исходный файл ну так тоже самое и в этом случае fs.DeleteFile MyFolder+""+MyFile 0

@Yulia_286 0 / 0 / 0 Регистрация: 15.02.2012 Сообщений: 9
	22.02.2012, 18:37 [ТС]
	спасибо) 0