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

[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

[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');