ＣＳＶファイルをＥＸＣＥＬに変換の自動化作業

Question

ＣＳＶファイルをＥＸＣＥＬに変換の自動化作業
{ＣＳＶファイルをＥＸＣＥＬに変換するため、 
ｅｘｃｅｌ　 ツールバーよりデータ(D）→外部データの取り込み(D）→テキストファイルのインポート→ファイルの種類変更→全てのファイル→○○.csvのファイル指定→“，”の区切り選択、、ウィザードに従って変更し次へで進む→Ａ１が指定されるのでそのまま完了→ＣＳＶがＥＸＣＥＬファイルに変換された。
参照したabc1.csvの名前に対して新しいabc1.xlsとなずけて登録する。これらの作業をＭＹドキュメントのhenkan　ホルダーに入っているCSVファイルに同様に作業して同じくhenkan　ホルダーに入れる。}
上記の{　}内の作業を何か,excelのＶＢＡのマクロのようなもので実行することはできませんか。
やり方を教えてください。

Wendy02 · Accepted Answer

もともと、CSVとはカンマ区切りのはずですから、そうではないということなら、このコードは、違っています。

こういう質問系掲示板は、質問者が分らない部分をお助けするような形で出来上がるものだと思いますので、回答者の回答を最初から否定するような発言は控えていだきたいと思いました。なお、フォルダーの中を一気に変換してしまうようなコードは、必ず変換後の様子を確認してからでなくてはなりませんので、それを確認していただくつもりでした。

私自身は、ここのカテゴリで、私は、一ゲンではありませんので、後々のためにコードを掲示しておきます。以下は、私が考えていたコードであって、その処理後の状態を保証するものではありません。

'<標準モジュール推奨>
Sub DirectryCSV2XLS()
　 Dim myCSVFnames() As String
　 Dim myCSVFname As String
　 Dim xlFileName As String
　 Dim i As Long
　 Dim j As Long
　 Dim n As Variant
　 Dim msg As String
'=====================================
　 '以下　フォルダー要設定
　 Const MY_FOLDER As String = ""C:\Documents and Settings\<User>\My Documents\"
'=====================================
　 If Left$(MY_FOLDER, 1) <> "\" Then MsgBox "フォルダーの設定の最後は、「\」が必要です。": Exit Sub
　 If Dir(MY_FOLDER, vbDirectory) = "" Then _
　　　MsgBox "そのフォルダーは存在しません。", vbCritical: Exit Sub
　
　 myCSVFname = Dir(MY_FOLDER & "*.csv")
　 Do While myCSVFname <> ""
　　　ReDim Preserve myCSVFnames(i)
　　　myCSVFnames(i) = myCSVFname
　　　i = i + 1
　　　myCSVFname = Dir()
　 Loop
　 If i = 0 Then MsgBox MY_FOLDER & " には、CSVファイルが存在しません。", vbCritical: Exit Sub
　 Application.ScreenUpdating = False
　 Application.DisplayAlerts = False
　 For Each n In myCSVFnames
　　　xlFileName = Mid$(n, 1, InStrRev(n, ".csv")) & ".xls"
　　　If Dir(MY_FOLDER & "\" & xlFileName) = "" Then
　　　　 With Workbooks.Open(MY_FOLDER & "\" & n, Format:=2)
　　　　　　.SaveAs MY_FOLDER & xlFileName
　　　　　　Workbooks(xlFileName).Close False
　　　　　　j = j + 1
　　　　 End With
　　　End If
　 Next n
　 Application.DisplayAlerts = True
　 Application.ScreenUpdating = True
　 If i <> j Then msg = "既に" & CStr(i - j) & "個のCSV ファイルは、XLSに変換されています。"
　 MsgBox i & "個のCSVの内、" & j & "個のファイルをXLSに変換しました。" & vbCrLf & msg
End Sub

miyazi-G4 · Answer

この質問は、昔から繰り返されてますね。
マクロにしてもVBAにしてもコーディングの手間が必要な為だと思われます。

自分で使う用途で作りましたが、使えるか試してみてください。

http://blog.labo-miya.com/rnote.php?u=prog/20060208.htm

機能
　CSVファイルをドラック＆ドロップすると、列をすべて文字型にしてExcelが開かれ、同名の.xlsファイルを作成します。
　一括で処理は出来ませんが、やってる事は同じです。

　Win2000+Excel2000でしか試してないので他の環境で動くかどうか？

参考URL：http://blog.labo-miya.com/rnote.php?u=prog/20060208.htm

Wendy02 · Answer

こんにちは。Wendy02です。 

＞前よりやりにくくなりました。
＞よく考えてみれば、ひとつずつ開いてＸＬＳに変えて保存したほうがはやそうです。

そうですか。とても残念な対応の仕方です。どうぞ、ひとつずつ開いて変換してください。こちらは、手を引かせていただきます。

Wendy02 · Answer

#4のWendy02です。

＞1列目に表示され、
すみません。コードが間違っていました。（^^;

真中辺りに、以下のようなコードがあります。
　On Error GoTo NextStatus
×　With Workbooks.Open(fn)　'間違い

↓
On Error GoTo NextStatus
　With Workbooks.Open(fn, Format:=2)　'正解

でした。

元のほうにも訂正いれておきましたので、恐れ入りますが、もう一度試してみていただけますか？

cockerel · Answer

＞abc1.csvをExcelのアイコンに重ねるというのは、意味がよくわかりません。
＞どういう画面状態でExcelプログラムはどういう状態でしょうか。
アプリケーション本体のアイコンもしくはショートカットにabc1.csvをドラッグして、abc1.csvをExcelで開くという意味です。
ファイルをデフォルトでリンクされていない特定アプリケーションで開くときの常套手段であるため、「Excelのアイコンに重ねる」と単純に書いてしまいました。たとえば、Word書類を一太郎で開く場合、html書類をエディタで開く場合、csvをWordで開く場合など（ほかいろいろ）に使用します。そのため、頻繁に使用するアプリケーションのショートカットのコレクションを作成しておきます。ショートカットを作成していないときには、エクスプローラ表示を使用すれば簡単にアプリケーションにアクセスできます。

Wendy02 · Answer

こんにちは。#2のWendy02です。

とりあえず、
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1853661
　または、
http://security.okwave.jp/kotaeru.php3?q=1853661

の#5 の私のコードを試していただけませんか？
一気にxls ファイルに変換しまいますので、とりあえず、数ファイル選んで、どのような上がりになるか調べてみてください。もし、そのまま使えれば、それに越したことはありません。

こちらは、「テキストファイルのインポート」を使用しておりませんので、もしかしたら、支障があるかもしれません。その場合は、新たに書き直します。

Hayashi_Trek · Answer

マクロを使えばできます。
処理手順は次のようになります。

(1) Dir関数で指定したフォルダのCSVファイル名を取得する。
(2) Sheetをクリアする。
(3) CSVファイルを外部データの取込でSheetに取り込む。
(4) Sheetを名前を付けて保存する。（Excel形式で）
(5) Dir関数で次のCSVファイル名を取得する。
(6) 次のCSVファイル名が取得できたら(2)に戻る。
(7) 処理終了

Wendy02 · Answer

こんばんは。

おっしゃっていることが、私の思っていることと合っていれば、マクロを作ってみます。たぶん、検索すれば出てくるのでしょうけれども、それが目的にかなったものかどうかは、判別できないと思います。

＞→外部データの取り込み(D）
＞→テキストファイルのインポート

これを使わなくてはならない理由があるわけですね。.csv ファイルをクリックして開いてしまうと、一部の数字などに自動変換機能があって、違うものになってしまうこと。

もう１つは、

＞ＭＹドキュメントのhenkan　ホルダーに入っているCSVファイル
は、かなり多くあること。

ということでしょうか？そういう理由なら、マクロはやむを得ないと思います。

なお、VBA Excel97 以降となりますが、Excel 97 には、機能的に足りない部分がありますので、それ以降のものとコードとは違いますので、私は、自信がありません。

それと、この場合は、OS のVersion とExcelのVersion は、明示したほうが作りやすいかもしれません。

cockerel · Answer

＞ＶＢＡのマクロのようなもので実行することはできませんか
「ＶＢＡのマクロのようなもので実行」しなければならない理由がある場合には見当はずれの答えになってしまいますが、abc1.csvをExcelで開き、abc1.xlsで保存というだけであれば、abc1.csvをExcelのアイコンに重ね、ExcelのBookとして保存するだけでよいような気がします。

ＣＳＶファイルをＥＸＣＥＬに変換の自動化作業

もともと、CSVとはカンマ区切りのはずですから、そうではないということなら、このコードは、違っています。

この回答への補足

この質問は、昔から繰り返されてますね。

この回答への補足

こんにちは。

この回答への補足

#4のWendy02です。

この回答への補足

＞abc1.csvをExcelのアイコンに重ねるというのは、意味がよくわかりません。

この回答への補足

こんにちは。

この回答への補足

マクロを使えばできます。

こんばんは。

この回答への補足

＞ＶＢＡのマクロのようなもので実行することはできませんか

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング