Имя файла при сохранении

[fur-lined]

Привет! Никак не соображу: сформирован отчет на базе шаблона Excel и имя файла при сохранении как обычно получается = "имя шаблона" + "1"...
Как в момент нажатия пользователем кнопки "Сохранить" подставлять свое сгенерированное имя файла?

[Gustav]

Цитата:

Сообщение от fur-lined

Как в момент нажатия пользователем кнопки "Сохранить" подставлять свое сгенерированное имя файла?

Никак. У объекта Workbook свойство Name - read-only. И событие "Сохранить" вы так просто из Аксапты не перехватите.
Но можно предложить пользователю сохранить файл под другим именем сразу после его формирования, подставив новое имя в поле диалога. Примерно так:

    ComExcelDocument_RU doc = new ComExcelDocument_RU();
    COM application, workbook;
    COMVariant cv;
    str newFileName;
    ;
    doc.newFile(@'C:\OldName.xls');
    workbook = doc.getComDocument();
    application = workbook.Parent();
    cv = application.GetSaveAsFileName('NewName');
    newFileName = cv.bStr(); // уже содержит путь и точку на конце
    if (newFileName)
        workbook.SaveAs(strFmt('%1xls',newFileName));

[fur-lined]

Цитата:

cv = application.GetSaveAsFileName('NewName');

Еще вопрос.
А если не Excel, если Word, есть ли в нем аналог GetSaveAsFileName()?

[kornix]

Попробуйте написать такой метод в классе ComWordDocument_RU:

void SaveAs(FileName _fileName)
{
    if (m_comDocument)
            m_comDocument.SaveAs(_FileName);
    else
            throw error("....");
}

[fur-lined]

Цитата:

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

Попробуйте написать такой метод в классе ComWordDocument_RU:

однако мне нужно чтобы и в Word аналогично вызывался диалог сохранения как это происходит при GetSaveAsFileName('NewName') в Excel...

ЗЫ
и потом, там уже есть documentSaveAs()

Ax3.0 sp6

[oip]

Аналогичной функции не нашел. Можно, например, макрос. Проверил, работает.

Цитата:

Sub SaveAsDialog()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = "FileName"
If .Show = 0 Then
Else
.Execute
End If
End With
Set fd = Nothing
End Sub

[Gustav]

Цитата:

Сообщение от fur-lined

однако мне нужно чтобы и в Word аналогично вызывался диалог сохранения как это происходит при GetSaveAsFileName('NewName') в Excel...

Раз уж задачка подвинулась в сторону принуждения пользователя сохранить файл под предлагаемым именем, то почему бы это имя вообще не запросить в Аксапте через диалог? A visible = true приложению (Excel, Word) сделать после ответа пользователя (иначе фокус уйдет из Аксапты в приложение и пользователь не увидит вопрос).

[kornix]

Цитата:

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

Аналогичной функции не нашел. Можно, например, макрос. Проверил, работает.

Тоже пошел этим путем, а запустить макрос можно так:

public void runMacro(str _name)
{
    COM comAppl;
    ;


    if (m_comDocument)
    {
        try
        {
            comAppl = m_comDocument.Application();
            comAppl.Run(_name);
        }
        catch (Exception::Error)
        {
            throw error("Произошла ошибка!");
        }
    }
}

[fur-lined]

Цитата:

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

Тоже пошел этим путем, а запустить макрос можно так:

а параметры (имя файла напр.) этому макросу как передать?

[Gustav]

Цитата:

Сообщение от fur-lined

а параметры (имя файла напр.) этому макросу как передать?

Дык через Application.Run(...)

Цитата:

Application.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, varg25, varg26, varg27, varg28, varg29, varg30)

[oip]

Цитата:

Сообщение от fur-lined

а параметры (имя файла напр.) этому макросу как передать?

В Макросе:

Цитата:

Sub SaveAsDialog(FileName As String)

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = FileName
If .Show = 0 Then
Else
.Execute
End If
End With
Set fd = Nothing

End Sub

А вызвать:

application.run('SaveAsDialog', 'FileName');