複数のcsvファイルをExcelに一括変換したいです。
こちらのサイトを参考にしてVBAを実行しましたが上手く変換できたファイルと上手く行かないファイルがあります。
https://moripro.net/vba-convert-csv-to-excel/
上手く行かないファイルの名前は以下のように拡張子csvの前に「.dd」などが入っています。
aaa_bbbbb.ccc.dd.csv
ファイル名がまずいのはわかりますが、当面仕様上変更できません。
この状態で
aaa_bbbbb.ccc.dd.csv
を
aaa_bbbbb.ccc.dd..xls
に一括変換したいのですが、以下のコードのどこを変更したらよろしいでしょうか?
Sub main()
Application.ScreenUpdating = False
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename _
("CSVファイル,*.csv*", MultiSelect:=True)
If Not IsArray(OpenFileName) Then
MsgBox "キャンセルしました。": Exit Sub
End If
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim n As Long '選択したファイル数、処理を繰り返す
For n = LBound(OpenFileName) To UBound(OpenFileName)
Dim wb As Workbook
Set wb = Workbooks.Open(OpenFileName(n))
Dim strBaseName As String
strBaseName = fso.GetBaseName(wb.Name) '拡張子を除くファイル名を取得
'同じファイル名で同じ階層にExcel形式で保存する
wb.SaveAs _
Filename:=wb.Path & "\" & strBaseName, FileFormat:=xlWorkbookDefault
wb.Close SaveChanges:=False
Set wb = Nothing 'いったん解放
Next n
Application.ScreenUpdating = True
MsgBox "終了しました。"
End Sub
No.2ベストアンサー
- 回答日時:
こんにちは
「うまくいかない」としか記されていないので、実際がどうなっているのか不明ですけれど・・
推測するところ、「aaa_bbbbb.ccc.dd」というファイルが作成できているのではないでしょうか?
(無理矢理開けば、エクセルファイルとして開けると思いますが・・)
通常は、拡張子のないファイル名を指定して保存すれば、エクセルが拡張子を付加してくれますが、ご提示の場合はファイル名に既に拡張子らしきもの(この場合は .dd )が含まれているので、そのまま保存してしまうものと推測します。
もしも、起こっている現象がそのようなものであるなら、保存時に拡張子を明示して保存すれば宜しいでしょう。
wb.SaveAs _
Filename:=wb.Path & "\" & strBaseName & ".xlsx", FileFormat:=xlWorkbookDefault
※ 実態が不明なため推測で回答していますが、起きている現象がこれとは異なる場合は、原因は別なので、上記では解決できないと思われます。
説明が足らず失礼しました。はい、ご推測の通りです。Excelの拡張子も本当に使いたいのは.xlsではなく、.xlsxでした。おかげさまで上手く行きました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
複数のCSVファイルを自動でエクセルに変換したい
Excel(エクセル)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
大量のCSVファイルをExcel形式に変換する
Excel(エクセル)
-
5
マクロを使ってフォルダー内にあるtxtデータをエクセルにデータに変換する方法をご教授願います
Excel(エクセル)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
8
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
9
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
10
VBAのプログラムで、DIAG = 1# / A(L, L) や R(
その他(プログラミング・Web制作)
-
11
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
12
エクセルでマクロを作成してますが、バックスラッシュが入力出来ません。 設定方法等教えて頂けないでしょ
Excel(エクセル)
-
13
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
14
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
CSV形式での保存時に”文字列...
-
複数のcsvファイルをExcelに一...
-
バッチでCSVを処理する時、空の...
-
csvファイル 項目数取得
-
wshでcsvファイルのソートを行...
-
CSVファイル作成
-
マクロから出力されるcsvのダブ...
-
VBAでcsvファイルを読み込んで...
-
複数のCSVファイルのAccessテー...
-
【C#】パス名で無効な文字
-
エクセル形式のファイルの読み込み
-
csvファイルでの日付設定「yyyy...
-
csvファイルのデータの一部を取...
-
<csv>複数条件で検索・抽出し、...
-
EXCEL|csvで保存→開くcsvを閉じる
-
csvファイルのデータの間引きを...
-
VBS or BATでCSVファイルに入っ...
-
VBScriptでcsvファイルの編集は...
-
Excelでcsvのフィールドが減る
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
csvファイル 項目数取得
-
バッチでCSVを処理する時、空の...
-
csvファイルでの日付設定「yyyy...
-
マクロから出力されるcsvのダブ...
-
CSV形式での保存時に”文字列...
-
データ解析ソフトRでのファイル...
-
VBAでcsvファイルを読み込んで...
-
複数のcsvファイルをExcelに一...
-
COBOLでCSVをインプットにして...
-
エクセルVBA 大容量CSVファイル...
-
【C#】パス名で無効な文字
-
CSVファイル作成
-
csvファイルのデータの一部を取...
-
CSVファイルの項目行を削除...
-
EXCEL|csvで保存→開くcsvを閉じる
-
複数のCSVファイルのAccessテー...
-
巨大なCSVの加工(指定列のみの...
-
COBOL85でのCSVファ...
-
csvファイルのデータの間引きを...
おすすめ情報
どう上手く行かないのか、を書き忘れたので補足します。
aaa_bbbbb.ccc.dd.csv
が
aaa_bbbbb.ccc.dd
に変換されます。
つまり、末尾の「.dd」が拡張子として認識され、ファイルの種類はDDファイルになってしまいます。