エクセルのマクロについて教えてください。

質問

エクセルのマクロについて教えてください。

Dドライブのaaaというフォルダにある、何百個あるXLSファイルを開いて、カンマを取った後、CSVに保存したいです。
保存の名前はそのままで、拡張子だけをcsvに変えたいです。

エクセルは初級者レベルなのでプログラムも判らないのですが、自分で作ってみました。
Sub Macro20()
'
' Macro20 Macro
' マクロ記録日 : 2010/4/29 ユーザー名 :
'
' Keyboard Shortcut: Ctrl+e
'

Application.ScreenUpdating = False '画面更新を一時停止
CChDir ("D:/aaa") 'フォルダー名取得
Filename = Dir(ThisWorkbook.Path & "\*.xls") 'フォルダ内のXLSファイルを検索
Do Until fname = Empty '全て検索
Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのファイルを開きwbとする。
n = n + 1 'カウントしnとする

Workbooks.Open Filename:= _
"C:\Documents and Settings\Owner\My Documents\aaa\1.xls"
Cells.Select
Selection.NumberFormatLocal = "G/標準"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Owner\My Documents\aaa\*.csv", FileFormat:=xlCSV, _
CreateBackup:=False
fname = Dir 'フォルダ内の次のCSVファイルを検索
Loop '繰り返す
Application.ScreenUpdating = True '画面更新一時停止を解除
MsgBox n & "件を処理しましました。"
End Sub

↓
駄目でした＞＜

アドバイスどうかお願い致します。

回答No.2

ToOrisugaru

下記の文章、EXCELのセルに入っている文字にカンマが入ってるの？
データが入っているところは、一つのセルに全てはいっているの？

>Dドライブのaaaというフォルダにある、何百個あるXLSファイルを開いて、
>カンマを取った後、CSVに保存したいです。

回答No.1

SaKaKashi

どう駄目なのか。結果を書いてください。