No.4ベストアンサー
- 回答日時:
#3のコードにミスがありました。
'-------------------------------------------
最後から、4行目と3行目は、以下のようにTrue に換えてください。
Application.DisplayAlerts = False '*
Application.EnableEvents = False '*
On Error GoTo 0
End Sub
'-------------------------------------------
Application.DisplayAlerts = True
Application.EnableEvents = True
On Error GoTo 0
End Sub
No.3
- 回答日時:
こんにちは。
マクロを作ってみました。
複数のファイルを選んで実行できます。マクロ付きでも変更可能ですが、十分に検証されてはいませんので、十分に試してから実行してみてください。
なお、このマクロは、Excel 2007以外では、組み込み定数が、2007用ですのでうまく行きません。
下位バージョン+互換パックでも、一部を換えれば可能ですが、ファイル変換の間が掛かります。あまりお勧めしません。
'-------------------------------------------
Sub MaroTest1()
'このマクロは、Excel 2007以外では、うまく行きません。
Dim Files As Variant
Dim fn As Variant
Dim tfn As String
If Val(Application.Version) < 12 Then
MsgBox "これは、Excel 2007専用マクロです。", vbExclamation
Exit Sub
End If
Files = Application.GetOpenFilename("Excel_Files(*.xl??),*.xl??", _
MultiSelect:=True)
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each fn In Files
With Workbooks.Open(fn)
tfn = Mid$(fn, 1, InStrRev(fn, ".") - 1)
.SaveAs Filename:=tfn & ".xls", FileFormat:=xlExcel8 '56
.Close False
If Dir(tfn & ".xls") = "" Then MsgBox .Name & "は失敗", 48
End With
Next fn
Application.Calculation =xlCalculationAutomatic
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error GoTo 0
End Sub
No.2
- 回答日時:
逆に古いバージョンのexcelで、2007のファイルを開けるようにしてみては?
以前のバージョンで開く。(2000、XP、2003など)
http://office.microsoft.com/ja-jp/excel/HA100141 …
互換パック
http://www.microsoft.com/downloads/details.aspx? …
この回答への補足
ありがとうございます。
古いバージョンのファイルは複数の人に渡すもので、excel以外のソフトを使っている人もいるようなので、
互換パックを入れてくださいとは言いにくいのです・・・
No.1
- 回答日時:
こんなサイトがありました。
----------------------------------------------------------------
操作手順は以下の通りです。
※複数ファイルを一括変換する場合、それらファイルを圧縮したZIP圧縮ファイル用意してください。
http://oncemail.jp/OmLab/Office/OfficeVersionCon …
この回答への補足
サイトを紹介してくださってありがとうございます。
試してみましたが結構時間がかかりますね・・・
別の時間にもう一度試してみたいと思います。
たくさんのファイルを一度に変換しようとすると時間がかなりかかるようですね。
でも、便利なサイトを教えていただきありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- その他(パソコン・周辺機器) Windows10パソコンで再生している音をWAVファイルとして録音、保存する方法は? 4 2023/06/15 18:34
- UNIX・Linux サーバー間のデータコピー(データ形式とデーターフォーマットの変換あり。一定間隔で処理) 2 2023/08/22 22:15
- iOS iPhone用動画保存アプリiCapのデータは外付けUSBメモリに保存できますか? 1 2022/10/18 17:48
- ドライブ・ストレージ 増設のHDDがNTFSではなくRAWになってしまった。回復方法は? 2 2023/08/11 10:21
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセル(マクロ)のファイル...
-
エクセルマクロで不特定なファ...
-
エクセル 複数ファイルの一括...
-
フォルダ内のブック全部にパス...
-
【Excel VBA】ファイル名が一...
-
エクセルのシートの数を数えた...
-
VBAでワークブックの名前を変数...
-
ファイルを開かずにマクロを実行
-
フォルダ内のexcelファイルを順...
-
vlookup関数の引数を変数で指定...
-
accessフォルダを移動したらフ...
-
Excel VBA でファイルが開かれ...
-
<ACCESS VBA -> EXCEL>getObjec...
-
エクセルのxls形式からxlsx形式...
-
ファイルの保存場所を変えたら...
-
Excelファイルがマクロを含むか...
-
【マクロ】名前を保存する際に...
-
VBAでフォルダ内の全てのcsv...
-
ワード2007で複数ファイル自動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
【マクロ】名前を保存する際に...
-
【Excel VBA】ファイル名が一...
-
ファイルを開かずにマクロを実行
-
accessフォルダを移動したらフ...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
エクセルマクロ 異なるファイ...
-
データ参照先が別ファイルの場...
おすすめ情報