個別のExcelシートをCSVとして保存

Excelワークシートを解析する必要があります。これでそれぞれのワークシートを.csvとして保存して、うまく動作します。私はOpenCSVを使ってファイルなどを解析しますが、それらの.csvファイルを作成するのは苦痛です。個別のExcelシートをCSVとして保存

個々のワークシートをExcelで.csvとして保存するには、どのような方法が最も簡単で簡単でしょうか？私はある種のVBAマクロが仕事をすると仮定していますが、私はVBAプログラマーではないので、どうやってそれをするのか分かりません。たぶん私は何とかマクロを記録することができますか？

2011-09-07 Marthinus

あなたはVBAでそれを行うことができますが、正確なヘルプが必要な場合はもっと私達に教えてください... – JMax

非常に大まかに、

Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 
    ws.SaveAs "C:\docs\" & ws.Name & ".csv", xlCSV 
Next

これには含まれません。エラーコードを記述したり、不正なファイル名につながるシート名を許可したりすることはありません。それはすべてのことがどれほど堅牢である必要があるかによって異なります。

2011-09-07 10:24:52 Fionnuala

この作品はすばらしく、私も派手になり、 'ActiveWorkbook.SaveAs FileName：FileFolder＆（FileName + "" FileFormat：= xlCSV ' – Marthinus

@Marthinusあなたは 'FileFolder'と' FileName'をどこで取得しているのか説明できますか？ – guanome

'ThisWorkbook.FullName'を使って' FileFolder'とFileName'を取っています。 – Pezzzz

最初の答えとして、ここではCSVにファイルを保存するために使用されるコードは次のとおりです。

ActiveWorkbook.SaveAs "C:\Marthinus.csv", fileformat:=6

詳細情報についてSaveAs

2011-09-07 09:46:23 JMax

答えて