Excel создает лишние файлы

09.09.2011, 09:43. **Показов** 1053. **Ответов** 2

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

Здравствуйте!
Еще раз спасибо всем ответившим по моей предыдущей теме!

Возник следующий вопрос.
Файл создается и сохраняется, но откуда-то слева появляются непрошенные файлы с названиями типа PPPR_mes1.xlt, PPPR_mes2.xlt и т.д.
Excel спрашивает сохранить/несохранить и т. д. Что не совсем укладывается в рутинную работу пользователя.
Фрагменты кода:
FileName = "C:\Users\apetrov\AppData\Roaming\Micros oft\User\PPPR_mes.xlt"
FileCore = "C:\User\Maden.xls"
Set appWD = CreateObject("Excel.Application")
Set objDoc = appWD.Workbooks.Add(FileName)
Set objList = objDoc.Worksheets("Лист1")
.................
objDoc.SaveCopyAs FileName:=FileCore
objDoc.Close True 'False
Set objList = Nothing
Set objDoc = Nothing
appWD.Quit
Set appWD = Nothing
End Sub

Как от этого избавиться?

@Михайло · 11.09.2011, 11:57

Наставьте точек останова и поглядывайте на содержимое каталога "C:\Users\apetrov\AppData\Roaming\Micros oft\User" - так Вы сможете найти причину появления лишних файлов.

12.09.2011, 16:47

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Александр X

	Excel создает лишние файлы 09.09.2011, 09:43. Показов 1053. Ответов 2 Метки нет (Все метки) Здравствуйте! Еще раз спасибо всем ответившим по моей предыдущей теме! Возник следующий вопрос. Файл создается и сохраняется, но откуда-то слева появляются непрошенные файлы с названиями типа PPPR_mes1.xlt, PPPR_mes2.xlt и т.д. Excel спрашивает сохранить/несохранить и т. д. Что не совсем укладывается в рутинную работу пользователя. Фрагменты кода: FileName = "C:\Users\apetrov\AppData\Roaming\Micros oft\User\PPPR_mes.xlt" FileCore = "C:\User\Maden.xls" Set appWD = CreateObject("Excel.Application") Set objDoc = appWD.Workbooks.Add(FileName) Set objList = objDoc.Worksheets("Лист1") ................. objDoc.SaveCopyAs FileName:=FileCore objDoc.Close True 'False Set objList = Nothing Set objDoc = Nothing appWD.Quit Set appWD = Nothing End Sub Как от этого избавиться?

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	11.09.2011, 11:57
	Наставьте точек останова и поглядывайте на содержимое каталога "C:\Users\apetrov\AppData\Roaming\Micros oft\User" - так Вы сможете найти причину появления лишних файлов. 0

Александр X
	12.09.2011, 16:47
	Спасибо!