
フォルダの中に、300近いCSVフォルダがあります。
ネットで探したマクロVBAでやってみたところ、一つのCSVファイルを選び、それをエクセルファイルに変換できました。
このマクロを使って、フォルダ内にあるすべてのCSVファイルを一気にエクセルに変換するには、どうしたらいいのでしょうか。
ご教授のほど、よろしくお願いいたします。
Sub CSVからXLSX()
Dim varFileName As Variant
varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
Workbooks.Open Filename:=varFileName
ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
ActiveWorkbook.Close SaveChanges:=False
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
空のブックを用意する
次のマクロを登録する
sub macro1()
dim myPath as string
dim myFile as string
application.screenupdating = false
mypath = thisworkbook.path & "\"
myfile = dir(mypath & "*.csv")
do until myfile = ""
workbooks.open mypath & myfile
activeworkbook.saveas split(myfile, ".")(0), fileformat:=xlnormal
activeworkbook.close false
myfile = dir()
loop
application.screenupdating = true
end sub
CSVをイチイチ選択する代わりに、マクロブックをCSVのフォルダに保存する
マクロを実行する。
早々に、ご回答いただきありがとうございました。
このマクロを実行すると、CSVフォルダのどこに保存されるのでしょうか。
どのように使うか教えていただけませんでしょうか。
せっかくお答えいただいたのに理解できなくてすみません。、
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル関数>参照ファイル名...
-
VBAで保存しないで閉じると空の...
-
マクロの保存先、開いてるすべ...
-
エクセルVBAで作成した別ブック...
-
EXcelのマクロで相対パスでファ...
-
【Excel】マクロの保存先について
-
【マクロ】元データと同じお客...
-
エクセルのvbaにて thisworkboo...
-
複数のExcelファイルの印刷設定...
-
名前の変わるブックをアクティ...
-
エクセルを開いて文字を打つ際...
-
エクセル;相対パスを絶対パスへ...
-
EXCELのボタンによるマクロの登...
-
エクセルVBA 個人用マクロブッ...
-
エクセルで未保存に対するメッ...
-
1つのEXCELファイルをインター...
-
マクロ 自動でパスワード及び指...
-
個人用マクロブックが消えました
-
【Excel】特定セルの内容をテキ...
-
ExecuteExcel4Macroを使って他...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
【マクロ】元データと同じお客...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
マクロの保存先、開いてるすべ...
-
エクセルのvbaにて thisworkboo...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
EXcelのマクロで相対パスでファ...
-
EXCELのボタンによるマクロの登...
-
エクセルで未保存に対するメッ...
-
EXCELマクロで、開いてはいるが...
-
excelで直前に参照していたブッ...
-
EXCELブックが勝手に開いて困っ...
-
複数のExcelファイルの印刷設定...
-
エクセルで使用期限付きのブッ...
-
エクセルを開いて文字を打つ際...
-
[フィルターオプションの設定]...
-
名前の変わるブックをアクティ...
-
【Excel】特定セルの内容をテキ...
おすすめ情報