请教红尘的Excel固定格式的订单数据导出-复制格式怎么设置

 对话框弹出就弹出了，怎么让他自己完成对话？ 

想到用SendKeys ，但是要放在代码里呢，试了多个位置都不行。。

DoEvents
SendKeys "%S"
SendKeys "%Y"
DoEvents

 '模板文件路径
    strTemplate = CurrentProject.Path & "\订单修改通知模板.xlt"

    '默认保存的文件名
    strPathName = CurrentProject.Path & "\订单修改通知.xls"
   

    '通过文件对话框取得另存为文件名
    With FileDialog(2)    'msoFileDialogSaveAs
        .InitialFileName = strPathName
        If .Show Then
            strPathName = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
   
    '如果文件名后没有.xls扩展名则加上
    If Not strPathName Like "*.xls" Then strPathName = strPathName & ".xls"
    '删除已有文件
    If Dir(strPathName) <> "" Then Kill strPathName