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以降形式にした場合、何よりファイルサイズが小さくなるのが有難いですね。