- 締切済み
複数のCSVファイルを自動でエクセルに変換したい
フォルダの中に、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
- kuskus_2
- お礼率94% (18/19)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- keithin
- ベストアンサー率66% (5278/7940)
空のブックを用意する 次のマクロを登録する 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をイチイチ選択する代わりに、マクロブックをＣＳＶのフォルダに保存する マクロを実行する。
関連するQ&A
- Excelのマクロでファイルを開くのダイアログをキャンセルしたときの挙
Excelのマクロでファイルを開くのダイアログをキャンセルしたときの挙動についてです。 マクロで次のような記述をしています。 Sub tekitou() Dim vntFileName As Variant vntFileName = _ Application.GetOpenFilename( _ FileFilter:="エクセルファイル(*.xls),*.xls" & _ ",CSVファイル(*.csv),*.csv" _ , FilterIndex:=1 _ , Title:="ファイルを開く" _ , MultiSelect:=False _ ) If vntFileName <> "False" Then Workbooks.Open Filename:=vntFileName End If うんたらかんたら End Sub このとき、ファイルを開くのダイアログをキャンセルしたときでも「うんたらかんたら」の部分が実行されてしまいます。 キャンセルを押したときにそこでそれ以降をスキップして何もなかったかのような挙動をさせるためにはどのような記述をすればいいのでしょうか？
- ベストアンサー
- その他MS Office製品
- CSVが文字コードUTF-8かどうかの判定
かなりデータ量が多い（10万レコード超）CSVファイルが、100件近くあります。これをエクセルに取り込んで順次同じような作業をしようと思っています。とりあえずCSVを以下のコードで開いています。 Sub CSV入力4() 'クエリーテーブルを使ったCSV読み込みVBAコード Dim myFile As Variant myFile = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", Title:="CSVファイルの選択") If myFile = False Then Exit Sub End If ActiveSheet.Cells.Clear With ActiveSheet.QueryTables.Add(Connection:="text;" & myFile, Destination:=Range("A1")) ' .TextFilePlatform = 932 'Shift_Jis .TextFilePlatform = 65001 'UTF8 .TextFileCommaDelimiter = True .Refresh BackgroundQuery:=False .Delete End With MsgBox "読込完了" End Sub 問題は、CSVに拡張子で区別できないUTF-8のCSVファイルがあることです。事前にわかっていれば .TextFilePlatform = 932 'Shift_Jis .TextFilePlatform = 65001 'UTF8 の使い分けで対応できるのですが、開いてみて文字化けがあるかどうか調べないとわかりません。自動的に判定する方法はないでしょうか？
- ベストアンサー
- Excel（エクセル）
- マクロを使用してCSVファイルの結合を行いたいのですが・・・
エクセル2000を使用している初級者です。過去の質問の中から、素晴らしい結合のマクロを見つ けました。同一フォルダ内にあるファイルは見事に結合されました。ただ私が結合したいものは、 １時間で１ファイル、１日で１フォルダが作られており、フォルダが31個有ります。手作業で31個の フォルダをまとめるのも辛いので、１月分をまとめて結合するために、マクロの冒頭部分を私なり に色々手は加えてみたのですが、悲しいかな動きません。以下にコピーしますので、よろしくお願 い致します。又明日より出張のため、お礼が遅くなると思います。ご容赦下さい。 Sub Test() Dim Files, FilesCnt As Integer, i As Integer Dim cBook As Workbook, pBook As Workbook Files = Application.GetOpenFilename _ (FileFilter:="CsVFile(*.csv), *.csv", MultiSelect:=True) If IsArray(Files) Then Set pBook = Workbooks.Add(xlWBATWorksheet) FilesCnt = UBound(Files) For i = 1 To FilesCnt Workbooks.Open Files(i) Set cBook = ActiveWorkbook cBook.ActiveSheet.UsedRange.Copy With pBook.ActiveSheet .Cells(.Range("A65536").End(xlUp).Row, 1). _ PasteSpecial (xlPasteAll) End With Application.CutCopyMode = False cBook.Close Next i End If Set cBook = Nothing: Set pBook = Nothing End Sub
- ベストアンサー
- オフィス系ソフト
- VB2010でCSVファイルを読み、配列に入れる
ExcelVBAで、フォルダを選択しCSVファイルを表示⇒クリックで対象ファイルを選び配列に入れる次のプログラムを作りました。その後でデータを加工しグラフィック化してるのですが、VBAのグラフィック機能が遅いのでVB2010に変えようと思いいろいろやってみたのですが、どうもうまくいきません。 どなたか、VB2010ではどのようなプログラムになるのか、教えていただけないでしょうか。 'Excel VBA---------------------------------------- Sub CSVデータ() Dim xd(1000),yd(1000) 'フォルダを選ぶ ChDir ThisWorkbook.Path 'CSVファイルの一覧 pname = _ Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv" _ , FilterIndex:=1,Title:="開く",MultiSelect:=False) '対象ファイルをクリックで選ぶ If pname <> False Then Workbooks.Open Filename:=pname End If fname = ActiveWorkbook.Name 'CsVファイルのセルから配列へ移す nstart = 6 nend = nstart +500 k = 0 For i = nstart To nend '6行目から500行の2列、3列を読み配列に入れる k = k + 1 xd(k) = Cells(i, 2) yd(k) = Cells(i, 3) Next i End Sub
- ベストアンサー
- その他MS Office製品
- フォルダ内のExcelファイルを全てcsv変換
初めまして。 現在Excelにマクロを組み込み、ボタンを押すと5行目以下が csvファイルとして出力されるというプログラムを使っております。 しかしながら、多数のExcelファイルでこの作業をする必要が生じました。 そのため、フォルダ内の全てのExcelファイルに同じこと （5行目以下をcsvファイルとして出力）をしたいのですが、 もしそのやり方をご存知でしたらお教えいただけませんでしょうか。 念のため現在使っているExcelマクロを記載致します。 Private Sub Workbook_Open() ActiveWindow.ScrollRow = 1 MsgBox "Workbook_Openイベントが発生しました。" Call AddMenu End Sub Sub AddMenu() Dim NewM As Variant, NewC As Variant Set NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup) NewM.Caption = "変換ツール(&G)" Set NewC = NewM.Controls.Add With NewC .Caption = "csv書き出し(&R)" .OnAction = "henkan_conb" .BeginGroup = False .FaceId = 271 End With End Sub Sub henkan_conb() Sheets("sheet1").Select Rows("1:4").Select Selection.Delete Shift:=xlUp Row = 1 Do Until Cells(Row, 1) = "" Row = Row + 1 Loop If Cells(Row, 1) = "" Then Rows(Row).Select Selection.Delete Shift:=xlUp End If Range("A1").Select ActiveWorkbook.SaveAs Filename:= _ "C:\file.csv", _ FileFormat:=xlCSV, CreateBackup:=False End Sub
- ベストアンサー
- その他（プログラミング・開発）
- エクセルと同じファイル名でｃｓｖを作成するマクロ
エクセルからＣＳＶファイルをYYMMDD付でマクロを使って 作ろうとしていますが拡張子の「.xls」がどうしても残ってしまいます。 例えば、「test.xls」が「test.xls070326.csv」のように。 これを「test070326.csv」とするにはどうしたらよいでしょう。 今のコードはつぎのようにしています。 Sub test1() Dim flname As Variant Dim wb As Workbook flname = ActiveWorkbook.Name + CStr(Format(Date, "yymmdd")) ActiveSheet.Copy ActiveSheet.SaveAs Filename:=flname, _ FileFormat:=xlCSV ActiveWindow.Close savechanges:=False ActiveWorkbook.Close End Sub これでもＣＳＶとしては使えるのですが、気持ちがすっきりしません。 どなたか正解をお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡでファイルをＣＳＶ保存の仕方
エクセルのシートをＣＳＶファイルに保存するため以下のようなマクロを書きました。 Sub Macro1() Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\デスクトップ\Book1.csv", FileFormat _ :=xlCSV, CreateBackup:=False ActiveWindow.Close ThisWorkbook.Activate End Sub 一応これで保存できるのですが、自動記録でやったためファイルの名前が出てしまいました。 この部分をわたし以外の誰でも任意の名前をつけ、任意のフォルダーに保存できるように書き換えたいのです。 どのように記述すれば良いかお教えください。お願いします。
- ベストアンサー
- オフィス系ソフト
- CSVファイルのエクセル取込（VBA）で小数三位が消える！？
エクセルにCSVファイルから読み取りをするVBAで下記のように記述しています。 Sub CSV読取り Dim FName As Variant FName = Application.GetOpenFilename(FileFilter:="CSVファイル (*.csv), *.csv") Open FName For Input As #1 For i = 1 To 400 Input #1, Columni ThisWorkbook.Sheets("CSV取得").Cells(i, "E").Value = Columni Next i Close #1 End Sub これでほとんどのデータ（数値や文字列の400件）をうまく読み取るのですが、どういう訳かデータが小数点以下第三位まである数値の場合、エクセルに取り込まれた段階で小数点以下第二位までに四捨五入されてしまうようです。 そのうえ、エクセルのセルの表示形式がそこだけ通貨（￥マーク付き）になっています。 なぜでしょうか？ またどうしたら正しく小数3位まで読み取れるのでしょうか？ CSVファイルをエクセル単純にエクセルで開けばちゃんと小数三位まであるのですが、データが横一列にカンマ区切り400件あるので256列しかないエクセルではすべてとりこめません。（だから上記のマクロで縦に変換してとりこんでいるのですが） 非常に困っています。
- ベストアンサー
- オフィス系ソフト
- VBAで複数ファイルのページ数出力
Win10のOffice365のExcelを使用しています。 GetOpenFilenameで選択した複数のExcelファイルのファイル名＋印刷ページ数を マクロを実行したファイルに出力するというマクロを作成しました。 マクロを実行する度に既存データがあれば追加されていくようにしたいのですが、上手くいきません。 それどころか、実行時も複数ファイル選択したにも関わらず、 １ファイルのデータしか出力されない状態です。 実行後のイメージは添付ファイルの通りです。 （A1、A2はデフォルトで入力しています。） 勉強を始めたばかりなので改善点もあれば、教えて頂きたいです。 よろしくお願い致します。 ================================================= Option Explicit Sub pagecount() Dim Page As Long, cnt As Long, xlcnt As Long Dim fs As Variant, path As Variant Dim Fname As String Dim i As Integer Dim wb1 As Workbook, wb2 As Workbook Dim sh As Worksheet With CreateObject("WScript.Shell") .CurrentDirectory = ThisWorkbook.path End With fs = Application.GetOpenFilename(filefilter:="Microsoft Excelブック,*.xls*", MultiSelect:=True) If IsArray(fs) Then For Each path In fs Set wb1 = Workbooks.Open(path, , True) Set wb2 = ThisWorkbook Do Until (Fname = "") Page = 0 For Each sh In wb1.Worksheets Page = Page + sh.PageSetup.Pages.Count Next sh xlcnt = Cells(Rows.Count, 1).Row cnt = Cells(xlcnt, 1).End(xlUp).Row If wb2.ActiveSheet.Cells(cnt, 1).Value <> "" Then wb2.ActiveSheet.Cells(cnt, 1).Value = Fname wb2.ActiveSheet.Cells(cnt, 1).Offset(0, 1) = Page wb1.Close savechanges:=False Fname = Dir() cnt = cnt + 1 End If Loop Next path End If End Sub
- ベストアンサー
- Visual Basic
- エクセル マクロの記述（フォルダーの移動、削除）
現在開いているエクセルのファイルにマクロを記述し、 １ 「処理済」というフォルダーに、開いているエクセルファイルを移動して、同じ名前でエクセルを保存する。 ２ 「ＣＳＶ」というフォルダーに、開いているエクセルファイルをＣＳＶファイルに変換して名前を「処理.csv」とし保存する。 ３ 現在開いているエクセルファイルは削除する。 以上の三つの処理をさせようと、以下のようにしましたが、１，２の処理は出来ましたが、３の開いているエクセルファイルが残ってしまいます。 以上三つの処理が一度に出来るマクロの記述を教えて下さい。 よろしくお願いします Sub マクロ() ActiveWorkbook.SaveAs Filename:="C:\処理済\" & ActiveWorkbook.Name ChDir"C:\CSV" ActiveWorkbook.SaveAs Filename:= "C:\ＣＳＶ\処理.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Application.DisplayAlerts = False If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close End If Application.DisplayAlerts = False End Sub
- ベストアンサー
- Visual Basic
お礼
早々に、ご回答いただきありがとうございました。 このマクロを実行すると、CSVフォルダのどこに保存されるのでしょうか。 どのように使うか教えていただけませんでしょうか。 せっかくお答えいただいたのに理解できなくてすみません。、