EXCEL- ＶＢＡ（CSVファイル→インポート）

質問

Ａ列～Ｆ列になる複数（100個以上）のＣＳＶファイルをエクセルファイルにインポートして更に個別にエクセルファイルとして保存したいのですが
ＶＢＡでできるのでしょうか？
記憶マクロでやったらどうにもうまくいきません。

エクセルのＶＢＡについては　ほとんど知識ゼロなので困っております。
大変厚かましくありますが
どなた様かご教授お願いできたらと思います！！

【元のファイルの状態】　
　◆ファイル名「*.CSV」*は文字数それぞれ違います。
　　＜例：tanaka.xls　だったり　09福島.xls＞
　◆入っているドライブ
　　TEXT;C:\Documents and Settings\ＡＡ＿Ｂ\デスクトップ\練習
　◆Ａ～Ｆ列にデータが入っている

【やりたいこと】　　
　(1)Ａ～Ｆ列はカンマ区切りで全て文字列としたい
　(2)元のファイル名でエクセルとして保存したい「*.XLS」

回答No.3

shkwta · ベストアンサー

何度も申し訳ありません。括弧を入れてください。
Set wb = Workbooks.Open("C:\Documents and Settings\ＡＡ＿Ｂ\デスクトップ\練習\×××.csv")

お礼

さっそくありがとうございます！！
今　試しにやってみます

補足

うーん。。。やっぱり完全なコードができないとできません
勉強不足でスミマセン。。。

回答No.2

shkwta

訂正
set　が抜けていました。

Set wb = Workbooks.Open "C:\Documents and Settings\ＡＡ＿Ｂ\デスクトップ\練習\×××.csv"

お礼

お礼の順番が逆になりました。
自動マクロとＨＰで検索してやってみました。
何とか上手く行きました！！

ご対応　本当にありがとうございます。

回答No.1

shkwta

基本形は

Dim wb as workbook
・・・・
wb = Workbooks.Open "C:\Documents and Settings\ＡＡ＿Ｂ\デスクトップ\練習\×××.csv"
wb.SaveAs "(保存先フォルダ)\×××.xls"

です。

×××は直接書き込んでもいいし、シートに入力しておいて取り込んでもいいです。

ただ、知識ゼロ　だと完全に作ったのをお答えしないといけないかもしれません（お望みなら、補足しておけば親切な人が作ってくれると思います）。