Excel VBAでシートをCSVで保存したい

Question

タイトルの通りExcelVBAにてシートを保存したいのですが、エラーが発生してしまいます。正しく保存するにはどうしたらいいのか、教えていただきたいです。よろしくお願いします。
(bookごとの保存でも構いません。シート1のデータをcsvにしたいのです。)

(前略)

Dim sh As Worksheet
Set sh = WorkSheets(1)
sh.SaveAs Filename:="test", FileFormat:="xlCSV"

---

<エラー>
エラーは3行目で出ているみたいです。

実行時エラー 1004
アプリケーション定義またはオブジェクト定義のエラーです。

Answer 1

こうでしょうか。

sh.SaveAs Filename:="test", FileFormat:=xlCSV

xlCSVは列挙体なので、ダブルクォーテーションで囲まずに使います。

Comments

[arabbit]

正しく動作しました！！
ありがとうございました！