Ошибкa в строке Dim Wb As ActiveDocument

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Ошибкa в строке Dim Wb As ActiveDocument (Сохранить файл в тойже директории откуда открыт, но добавить)

Otter

Дата: Пятница, 24.08.2018, 09:57 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Добрый день,
Подправьте пожалуйста код для Word 2010.
Есть ошибка в строке Dim Wb As ActiveDocument. Как исправить чтобы заработал.

[vba]

Код

Sub Сохранить_с_датой()
Dim Wb As ActiveDocument
Dim WbName As String
Dim iPath As String
Dim iFileName As String
   Set Wb = ActiveDocument
   WbName = Wb.Name
   iPath = ActiveDocument.Path & "\"
   iFileName = Left(WbName, Len(WbName) - 4) + "_" + Format(Date, "yyyy/mm/dd") + ".docx"
   'для проверки существования такого же файла
   If Dir(iPath + iFileName) <> "" Then
       MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation
       Exit Sub
   End If

   Wb.SaveCopyAs (iPath + iFileName)
End Sub

[/vba]

Сообщение отредактировал Otter - Пятница, 24.08.2018, 12:48

Ответить

_Boroda_

Дата: Пятница, 24.08.2018, 10:23 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума
- п.4 Правил форума: один вопрос - одна тема

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Otter

Дата: Пятница, 24.08.2018, 13:00 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Надеюсь учел все замечания модератора и исправил правильно.

Сообщение отредактировал Otter - Пятница, 24.08.2018, 13:01

Ответить

_Boroda_

Дата: Пятница, 24.08.2018, 13:05 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

В Dim после as мы определяемм ТИП того, что после Dim. Нет такого типа - "Активный документ". Есть просто "Документ"
[vba]

Код

Dim Wb As Document

[/vba]

А исправили неправильно. Вопрос про Dim, а название темы "Сохранить ..."
Поправил Вам

Ответить

Otter

Дата: Пятница, 24.08.2018, 20:17 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

_Boroda_, Спасибо за правку и теперь другая ошибка в строке
[vba]

Код

Wb.SaveCopyAs (iPath + iFileName)

[/vba] Извиняюсь, что в этой теме другой вопрос, но уж хочется добить этот макрос. Как чувствовал, что могут быть и другие ошибки <_<

Надеюсь после исправления этой ошибки заработает как надо. Заранее благодарен.

Ответить

krosav4ig

Дата: Суббота, 25.08.2018, 00:53 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Otter, Имя файла. Запрещенные символы - Википедия

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Otter

Дата: Суббота, 25.08.2018, 03:11 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

krosav4ig, Спасибо за наводку, но где ошибка то.
Пробовал так [vba]

Код

iFileName = WbName + "_" + Format(Date, "yy-mm-dd") + ".docx"

[/vba] Это не помогло. Подозреваю, что путь формируется неверно, но как исправить?
Пробовал так:[vba]

Код

iPath = Application.ActiveDocument.Path & "\"

[/vba] тоже не работает.
Добавил кусок кода:[vba]

Код

'Проверка, что активный файл сохранён на жёстком диске.
' Иначе не известно, по какому пути сохранять.
    If ActiveDocument.Path = "" Then
        MsgBox "Активный файл не сохранён на жёстком диске, поэтому не известно, " & _
            "по какому пути сохранять копию.", vbExclamation
            End If

[/vba]Теперь ошибки по пути не должно быть если файл не сохранен.
И опять не работает <_<

Я уже и в корень на диск С сохранял и имя файла одной цифрой делал, ничего не помогает. Ну где же ошибка?

Сообщение отредактировал Otter - Суббота, 25.08.2018, 05:51

Ответить

InExSu

Дата: Суббота, 25.08.2018, 08:05 | Сообщение № 8

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет!

[vba]

Код

Option Explicit

Sub сДатой()

    ActiveDocument.SaveAs2 _
            Путь(Файл_Имя)
End Sub

Private Function Путь(ByVal Имя As String) As String
    Путь = "c:\" & Имя
End Function

Private Function Файл_Имя() As String

    Файл_Имя = "Ворд " & Format(Date, "yyyy-mm-dd")
End Function

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Pelena

Дата: Суббота, 25.08.2018, 08:10 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 19179

Репутация: 4419 ±

Замечаний: ±

Excel 365 & Mac Excel

Otter, а почему SaveCopyAs? Попробуйте SaveAs

И исходный файл в каком формате? Если .xlsx, то лучше не 4 символа от длины отнимать, а 5 в этой строке
[vba]

Код

Left(WbName, Len(WbName) - 4)

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Otter

Дата: Суббота, 25.08.2018, 08:21 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Pelena, Спасибо Вы правы так все работает.
InExSu, у Вас тоже все работает, только имя файла постоянно, а идея сохранять файл с исходным именем и добавление даты, чтобы видеть сохраненки свежие и старые.

Работает то работает, да не совсем корректно.
Подправил так:[vba]

Код

iFileName = Left(WbName, Len(WbName) - 5) + "_" + Format(Date, "yy-mm-dd") + " " + Format(Time, "HH-mm") + ".docx"

[/vba]Теперь в имени файла часы и минуты и по идее можно сохранять каждую минуту новый файл. Однако каждый новый файл при последующем сохранении в имени добавляет еще раз дату и тем самым увеличивает имя файла многократно добавляет дату.

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

Сообщение отредактировал Otter - Суббота, 25.08.2018, 16:05

Ответить

Otter

Дата: Вторник, 28.08.2018, 20:47 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Так как тема по текущему вопросу закрыта дальнейшая доработка макроса здесь. Кому интересно приходите.

Ответить

Страница 1 из 1
1