0

activewoorkbook.close true私のマクロはsaveFileDialogを開きますが、デフォルトで保存タイプを「Excelワークブック」として選択します。「Excel 97-2003 ワークブック」として変更する必要があります。Excel の保存オプションでデフォルトの形式を変更したとしても。ただし、ファイルを手動で保存する場合にのみ機能します。誰でも私にいくつかの行を提案できますか?

Sub OpenAllWorkbooksnew() set destWB = ActiveWorkbook Dim DestCell As Range

    Dim cwb As Workbook
    For Each cwb In Workbooks

        **Call donemovementReport**
        ActiveWorkbook.Close True
        ActiveWorkbook.Close False
    Next cwb
End Sub
4

2 に答える 2

2

うーん、わかったかどうかはわかりません。最初にファイルダイアログを表示して、ファイル名とそのパスを取得し、次に名前を付けて保存メソッドを呼び出すことができます。

Sub test2()

    Dim targetDirectory As String
    targetDirectory = "c:\temp\VBA\test\"
    ChDir targetDirectory

    Dim excelFileName As Variant
    excelFileName = Application.GetSaveAsFilename(FileFilter:="Excel Files,*.xls,All Files,*.*", Title:="Save As File Name")
    If excelFileName = False Then Exit Sub
    If LCase$(Right$(excelFileName, 4)) <> ".xls" Then
      excelFileName = excelFileName & ".xls"
    End If

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs fileName:=excelFileName, FileFormat:=xlExcel8
    Application.DisplayAlerts = True

    ActiveWorkbook.Close False

End Sub

または、この方法で名前を付けて保存ダイアログを表示できます。

Application.Dialogs(xlDialogSaveAs).Show "c:\temp\VBA\test\test.xls"
于 2013-02-14T11:57:16.743 に答える