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

公開日：2014-12-03　最終更新日：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以降形式にした場合、何よりファイルサイズが小さくなるのが有難いですね。

同じテーマ「マクロVBAサンプル集」の記事

入力規則のリスト入力の妥当性判定
 配色を使用したカラー設定を固定カラーに変更
 指定セルに名前定義されているか判定する
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）
ハイパーリンクからファイルのフルパスを取得する
 ボタンに表示されているテキストを取得（Application.Caller）
Excelの表をPowerPointへ図として貼り付け
 VBAで表やグラフをPowerPointへ貼り付ける
 フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除
 Shift_JISのテキストファイルをUTF-8に一括変換
 VBAコードの全プロシージャー・プロパティ一覧を取得

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）