0

Необходимо сохранить открытый экселевский файл в тот же каталог, откуда он был открыт. Имя файлу задать равное текущей дате. Буду рад любой помощи! Заранее спасибо!

Sub vv()
Dim xlON
dim xlNN
dim xlExt
dim dat
Set xlApp = GetObject(, "Excel.Application")
On Error Resume Next
Set xldoc = xlApp.ActiveWorkbook<br>
If Err.Number <> 0 Then
  Wscript.Echo "Ошибка открытия целевого документа"
  Exit Sub
End If
xlPath = xldoc.Path
xlON = xldoc.Name
dat = Format("dd-mm-yy", Now())
xlExt = Right(xlON, InStrRev(xlON, ".") - 1)
xlNN = Left(xlON, InStr(xlON, ".") - 1)
xldoc.SaveAs Filename = xlNN & dat & xlExt
End Sub

Пытаюсь сделать так, но ничего не происходит... В чем может быть ошибка?

3
  • @Lander, Согласно правилам форума, вопросы не должны сводиться к решению либо завершению учебных заданий за учащихся. Пожалуйста, уточните, что вы сделали сами и что не получилось. 12 фев 2015 в 9:25
  • поправил, скинул код, что я пытался сделать
    – Lander
    12 фев 2015 в 9:34
  • @Lander, Если вам дан исчерпывающий ответ, отметьте его как верный (нажмите на галку рядом с выбранным ответом). 15 фев 2015 в 16:45

1 ответ 1

1
Sub WorkbookSave()
Dim sPath As String
Dim sName As String
    sPath = ActiveWorkbook.Path & "/"
    sName = Format(Date, "dd-mm-yy")

    With ActiveWorkbook 
        .SaveAs sPath & sName, xlWorkbookNormal, CreateBackup:=False
    End With
End Sub

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

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.