Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）

最終更新日：2014-12-03

Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）

Excel2003形式(xls)のファイルを、一括でExcel2007以降形式(xlsx,xlsm)に変換するマクロVBAサンプルコードです。

サンプルコードでは、サブフォルダ「Excelファイル」にあるxlsを、
マクロ無しならxlsx、マクロ有りならxlsmにして保存しています。

また、同名のxlsxやxlsmが存在する場合は、日時付きのファイル名にしています。




Sub sample()

　　Dim i As Long

　　Dim strArray() As String

　　Dim strFile As String

　　Dim strPath As String

　　Dim strBook As String

　　strPath = ThisWorkbook.Path & "\Excelファイル\"

　　strFile = Dir(strPath & "*.xls")

　　i = 0

　　Do While strFile <> ""

　　　　If LCase(Right(strFile, 4)) = ".xls" Then

　　　　　　ReDim Preserve strArray(i)

　　　　　　strArray(i) = strFile

　　　　　　i = i + 1

　　　　End If

　　　　strFile = Dir()

　　Loop

　　For i = 0 To UBound(strArray)

　　　　With Workbooks.Open(strPath & strArray(i))

　　　　　　strBook = Left(strArray(i), InStrRev(strArray(i), ".") - 1)

      　　　　　　If .HasVBProject Then

      　　　　　　　　If Dir(strPath & strBook & ".xlsm") = ""
      Then

　　　　　　　　　　.SaveAs filename:=strPath & strBook & ".xlsm", _

      　　　　　　　　　　　　　　fileformat:=xlOpenXMLWorkbookMacroEnabled

　　　　　　　　Else

　　　　　　　　　　.SaveAs filename:=strPath & strBook & "_" & Format(Now(), "yyyymmddhhmmss") & ".xlsm", _

      　　　　　　　　　　　　　　fileformat:=xlOpenXMLWorkbookMacroEnabled

　　　　　　　　End If

　　　　　　Else

      　　　　　　　　If Dir(strPath & strBook & ".xlsx") = ""
      Then

　　　　　　　　　　.SaveAs filename:=strPath & strBook & ".xlsx", _

      　　　　　　　　　　　　　　fileformat:=xlWorkbookDefault

　　　　　　　　Else

　　　　　　　　　　.SaveAs filename:=strPath & strBook & "_" & Format(Now(), "yyyymmddhhmmss") & ".xlsx", _

      　　　　　　　　　　　　　　fileformat:=xlWorkbookDefault

　　　　　　　　End If

　　　　　　End If

　　　　　　.Close savechanges:=False

　　　　End With

　　Next

End Sub

マクロがあるか無いかの判定は、
.HasVBProject
これで行います。
ただし、これは2007以降のプロパティですので、2003以前では使用できません。

If Dir(strPath & strBook & ".xlsm") = "" Then
If Dir(strPath & strBook & ".xlsx") = "" Then
これらで、ファイルの存在確認をして、既に同名ファイルがある場合は日時を付けて保存します。

Excel2003以前の形式ファイルを読み込んで、Excel2007以降の形式で保存する場合は、
fileformat:=
この指定を正しくする必要があります。
xlsxならfileformat:=xlWorkbookDefault
xlsmならfileformat:=xlOpenXMLWorkbookMacroEnabled
となります。

まだまだ2003形式が多く残っていますが、いずれは2007以降形式に変換した方が良いでしょう。
2007以降形式にした場合、何よりファイルサイズが小さくなるのが有難いですね。