Excel, нужен макрос натравливаемый на папку с файлами экселя.

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Вот вариант с автозапуском и автозакрытием:

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Вот вариант с автозапуском и автозакрытием:
macro.zip

Попробовал. Папка без формул создалась, файл passwords.txt тоже. Однако файлов в папке "Без формул" нет(несколько файлов экселя в папке где macro.xls лежит есть).

Соответственно passwords.txt пустой(файлов-то в Без формул нет).

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Странно. А что в passwords.txt?

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Странно. А что в passwords.txt?

Ничего.

Провел эксперимент в другой папке с другими файлами - тоже самое. Пробовал файлы обозвать латиницей - тоже самое.

 

[splxgf]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Цикл несколько неудачен

    Do While sFile <> ""
    If sFile = "macro.xls" Then GoTo 1
----
1:     sFile = FileSystem.Dir()

Так работает лучше

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Так работает лучше

Как залезть в файл, который открывается и закрывается сразу, чтобы поменять строчки кода?

 

[splxgf]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Как залезть в файл, который открывается и закрывается сразу, чтобы поменять строчки кода?

Файл-открыть и при нажатии на кнопку открытия удерживать Shift.
Впрочем во вложении поправленный.

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Вот так получше будет. Я там еще проверок контрольных наставил.
А как загруженные файлы удалять а то я уже путась в версиях?

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Файл из поста 48 - таже самая беда - пустой пэсвордс и папка без формул
Файл из поста 49 47 - ругается, что нет папки "Без формул", после её создания вручную - работает дубликация, но формулы остаются в дубликатах.

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Формулы пока мы не трогаем - отлаживаем автозапуск. Опиши подряд сообщения выдаваемые макросом из #48

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Опиши подряд сообщения выдаваемые макросом из #48

Там одна ошибка. Если руками создать папку Без формул - то макрос работает. То есть макрос папку Без формул сам не создаёт, если её нет.

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Тьфу блин. напутал - 47-й пост, это то что я говорил про 49й пост. Где эта ошибка, что скрин приложил.

А 48-й ошибок нет - он просто:

таже самая беда - пустой пэсвордс и папка без формул

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Может правда старый прикрепился?
Лови еще раз.
Как удалять загруженные аттачи?

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

В моем должно быть куча отладочных мессаджей

В твоём нет ошибок. Он просто создаёт пустую папку Без формул и пустой passwords.txt

Что если debug нажать?

Выделяет жёлтым вот этот кусок кода(тот что из 47 поста и на который скрин ошибки прикладывал):
ActiveWorkbook.SaveAs Filename:=DstPath & sFile, _
FileFormat:=xlNormal, Password:=pass$, _
ReadOnlyRecommended:=True, CreateBackup:=False

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Новый должен начинаться с такого кода:

Function GetPassword(ByVal Name As String) As String
 a = 0
 For i = 1 To Len(Name)
  a = a + Asc(Mid(Name, i, 1))
 Next i
 GetPassword = a
End Function
Sub Auto_open()
   SrcPath = Application.ActiveWorkbook.Path
   If SrcPath = "" Then Exit Sub
   
   If Right(SrcPath, 1) <> "\" Then SrcPath = SrcPath & "\"
   
   DstPath = SrcPath & "Áåç ôîðìóë\"
   MsgBox SrcPath & " " & DstPath
   On Error GoTo MkDirErr
   ChDir SrcPath
   MkDir ("Áåç ôîðìóë")

 

[andrejK]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.


Не по теме:
Ну вы, млин, даёте ©

Асек/скайпов нету у обоих?
Отладка через форум???

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

К посту 55 - поменял начало с 47-го на твоё начало из 55-го. Примерно тоже самое происходит(не может найти папку).

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Все понял!
Поменяй местами строки:
On Error GoTo MkDirErr
и
ChDir SrcPath
должно получиться

   ChDir SrcPath
   On Error GoTo MkDirErr
   MkDir ("Без формул")
MkDirErr:

Странно что у меня и так работает

 

[George]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Я уже запутался где и что менять. Скинь свой вариант исправленного 47 поста, пожалуйста.
P.S. У меня на компе 2010 эксель, на др. рядом 2003-й - и твой вариант из 48-го делает пустую папку и там и там.

 

[_MBK_]

Ответ: Excel, нужен макрос натравливаемый на папку с файлами экселя.

Посмотреть вложение macro2.zip
Этот точно должен сработать.
Так как все таки убирать загруженные аттачи?