![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になっています。
表題の通りなのですが、これらを複数のファイルに適用していきたいと考えています。
具体例を挙げますと、
「A」というフォルダに名前の全く異なるcsvファイルが100個並んでいます。
これを「B」というフォルダにxlsx形式で同じ名前のまますべてのファイルを保存し、
かつ「A」のフォルダにはcsvファイルが残らないようにしたいと考えています。
最終的には「A」にはファイルがなく、「B」にはxlsx済みのファイルが100個でき、
終了時に「変換が終わりました」というコメントが出るマクロを作りたかったのですが、
力不足で同名保存と元となったcsvファイルを消すという工程で躓いてしまいました。
皆さんのお力を借りたいと思います。
お手数ですがよろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
このマクロを扱い始めて1年ぐらい経った人がよく作るものだと思いますが、以下は、一旦、配列においているところが変則的です。しかし、そのほうが、途中で処理が必要になった時に、加工がし易いからです。
なお、コードの中のDoEvents は、あまり意味がありません。
'//
Sub ConvertCSV2xlsx()
Const SORPATH As String = "C:\Users\Test1\" '末尾は必ず¥をつける
Const DESTPATH As String = "C:\Users\Test2\" '""
Dim FName As String, MyPath As String
Dim newFName As String
Dim i As Long
Dim MyAry()
Dim n
Dim wb As Workbook
MyPath = SORPATH
FName = Dir(MyPath & "*.csv", vbNormal)
Do While FName <> ""
If (GetAttr(MyPath & FName) And vbNormal) = vbNormal Then
ReDim Preserve MyAry(i)
MyAry(i) = FName
i = i + 1
End If
FName = Dir
Loop
i = 0
Application.ScreenUpdating = False
For Each n In MyAry
newFName = Mid(n, 1, InStrRev(n, ".") - 1)
With Workbooks.Open(SORPATH & n)
.SaveAs DESTPATH & newFName, xlWorkbookDefault
.Close False
DoEvents
End With
Kill SORPATH & n
i = i + 1
Next
Application.ScreenUpdating = True
MsgBox i & "個のファイル、変換が終わりました!", vbInformation
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- システム vba シートの追加について 2 2023/05/17 15:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ZIPファイルの解凍方法
-
エクスプローラーによってファ...
-
iosでapk!?
-
押し花とアイコンのFlash画像を...
-
ZIPファイルの展開方法につ...
-
Googleドライブで全く知らない...
-
BeckyにURLのショートカットを...
-
見覚えの無いフォルダが勝手に...
-
フォルダが勝手に移動、エクス...
-
Becky!2のデータ移行
-
現在Macプロを使用しているので...
-
outlookのフォルダの順番の並べ...
-
大人数の作業においてエクセル...
-
ISO-2022-JPという名の添付ファ...
-
outlookでadobepdfファイルが送...
-
添付ファイルが本文の後にテキ...
-
パワポの共同編集がしたいので...
-
写真に番号をふる
-
Powershellでzip圧縮が出来ない
-
ciscoのASA機のアクセスリスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ZIPファイルの解凍方法
-
iosでapk!?
-
Excelについて。 Excelからcsv...
-
エクスプローラーによってファ...
-
ViXで圧縮ファイルのサムネイル...
-
RPGツクールMVのアイコンが出ま...
-
テキストファイル処理の確認って?
-
Aladdin Expander For Windows...
-
HDDトラブルによるRARファイル...
-
オープンオフィスから.docxファ...
-
Notesの個人アドレス帳からのデ...
-
Online Office のExcelでcsv編...
-
複数ファイルをISO形式にしたい
-
wimpy flv playerについて
-
csvファイルダウンロード時のフ...
-
押し花とアイコンのFlash画像を...
-
【マクロ】csvファイルを別形式...
-
ZIPファイルの展開方法につ...
-
WinRARでデスクトップに解凍し...
-
Googleドライブで全く知らない...
おすすめ情報