[[20120530203557]]　『互換モードの上書き保存　VBA』（えま）　ページの最後に飛ぶ

『互換モードの上書き保存　VBA』（えま）

いつもお世話になっています。

フォルダの中に.xls形式のブックが11個と、
下記のコードを実行するための、別のブックが1個あります。
（計12個あります）

各ブックを上書き保存で閉じたいのですが、1個のブックの処理が終わるたびに
ウィンドウが出てきて、保存の実行ボタンを押して保存する手順になります。
互換モードで保存したいので、「Excel 97-2003」を選択し保存しました。

PCのエクセルのバージョンはExcel2007
OSのバージョンはWindowsXPです。

処理が終わるたびにウィンドウが出てきて保存形式を選択するのではなく、
自動で互換モードの上書き保存にするにはどうすればよいのでしょうか。
よろしくお願いします。

Option Explicit

Sub 日付と入力規則()

    Dim Myfile, Filepath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim j As Long
    Dim i As Long

    Filepath = ThisWorkbook.Path & "\"
    Myfile = Dir(Filepath)
    Do While Myfile <> ""
    Workbooks.Open Filename:=Filepath & Myfile
    Workbooks(Myfile).Activate
    Set wb = ActiveWorkbook

    For j = 2 To wb.Worksheets.Count Step 2
        Set ws = wb.Worksheets(j)
        ws.Activate
            Range("C4:C49") = "201206"
            Range("Q4:Q49") = "0601"
    Next
    For i = 1 To wb.Worksheets.Count Step 2
        Set ws = wb.Worksheets(i)
        ws.Activate

        Range("A1") = "Lab ID"
            Range("E4:E7") = 0
            Range("E10:E11") = 0
            Columns("V:V").Delete

   ActiveWorkbook.Close SaveChanges:=True
Myfile = Dir()
Loop

End Sub

処理の前後でDefaultSaveFormatを変更する、とか・・・？

 (ちま)

ちまさん、ありがとうございました。

DefaultSaveFormatについてネットで調べましたが、私には難しくて理解できませんでした。
画面と計算を停止してみると、自動で互換モードの保存になりました。

（えま）

コメント返信：

[ 一覧(最新更新順) ]

[[20120530203557]] 『互換モードの上書き保存 VBA』（えま） ページの最後に飛ぶ

[[20120530203557]]　『互換モードの上書き保存　VBA』（えま）　ページの最後に飛ぶ