複数の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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
マクロを使ってフォルダー内にあるtxtデータをエクセルにデータに変換する方法をご教授願います
Excel(エクセル)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
複数のCSVファイルを自動でエクセルに変換したい
Excel(エクセル)
-
5
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
6
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
7
EXCELにてローパスフィルタを作成する
その他(教育・科学・学問)
-
8
CSVファイルの中で、「 , 」カンマを使いたい
その他(コンピューター・テクノロジー)
-
9
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
10
大量のCSVファイルをExcel形式に変換する
Excel(エクセル)
-
11
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
12
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
13
エクセルでマクロを作成してますが、バックスラッシュが入力出来ません。 設定方法等教えて頂けないでしょ
Excel(エクセル)
-
14
複数のCSVファイルを横に並べてひとつのエクセルファイルへ結合する方法
Excel(エクセル)
-
15
VBAの「for i=1 to cells(…」と「i=cells(…」の違いを教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
csvファイル 項目数取得
-
バッチでCSVを処理する時、空の...
-
エクセルVBA 大容量CSVファイル...
-
csvファイルのデータの一部を取...
-
csvファイルを列数ごとに分割す...
-
「,」区切りのcsvファイルを...
-
csvファイルでの日付設定「yyyy...
-
エクセル形式のファイルの読み込み
-
android CSVファイルのデータを
-
CSVファイルを折れ線グラフ化す...
-
【ExcelVBA】UTF-8の文字コード...
-
wshでcsvファイルのソートを行...
-
csvファイルへの書き出しかた。...
-
VBAでcsvファイルを読み込んで...
-
CSVファイル作成
-
<csv>複数条件で検索・抽出し、...
-
vb2010でCSVファイルを並び替え...
-
【VAB】 エクセルファイルから...
-
VBSでソート&ファイル分割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
複数のcsvファイルをExcelに一...
-
CSV形式での保存時に”文字列...
-
csvファイル 項目数取得
-
csvファイルでの日付設定「yyyy...
-
マクロから出力されるcsvのダブ...
-
バッチでCSVを処理する時、空の...
-
csvファイルのデータの一部を取...
-
エクセルVBA 大容量CSVファイル...
-
csvファイルを列数ごとに分割す...
-
PHP.laravelについて
-
COBOLでCSVをインプットにして...
-
COBOL85でのCSVファ...
-
複数のCSVファイルのAccessテー...
-
データ解析ソフトRでのファイル...
-
【C#】パス名で無効な文字
-
VBAでcsvファイルを読み込んで...
-
特定文字を入ってるCSVの特定の...
-
CSVファイル作成
-
【エクセル マクロ】読み込ん...
おすすめ情報
どう上手く行かないのか、を書き忘れたので補足します。
aaa_bbbbb.ccc.dd.csv
が
aaa_bbbbb.ccc.dd
に変換されます。
つまり、末尾の「.dd」が拡張子として認識され、ファイルの種類はDDファイルになってしまいます。