エクセルファイル(book)のシートの内容をCSVファイルにおとしたい

質問

こんにちは。
ＶＢ初心者です。

実はＶＢではなく、Excel VBAで行なっているのですが。
ここに質問していいかもよく分かってないのですが。
プログラムの処理としては、あるBookのシートの内容を
別のＣＳＶファイルとして生成したいのです。マクロを組んだのですが、一つ問題があって困っています。

問題：
生成したＣＳＶファイルが一度Ｗｉｎｄｏｗ上に表示されて
（それはいいのですが、あとで閉じますから）
以下の確認メッセージがでてしまいます。

「outFile.csvはExcel97のファイル形式では、ありません。変更を保存しますか？」

要はプログラムがここで、一旦ユーザアクションを要求してしまうのです。
アクションなしに普通に終了させたいのですが。

マクロではなくＶＢだったらこんなことはならないのでしょうか？
初心なのでよく分かりません。
もしくはもっとほかの簡単なコードできるのでしょうか。

以下にコードを記述します。

Sub OutFile()

Dim myWBpath As String

myWBpath = ActiveWorkbook.Path

Workbooks.Open FileName:=myWBpath & "\testData1.xls"
Sheets("sheet1").Select
ActiveWorkbook.SaveAs FileName:="C:\outFile.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close

End Sub

回答No.1

TAGOSAKU7

Saved を使用すると回避できます。。。

Sub OutFile()
　　Dim myWBpath As String
　　Dim xlBook　As Excel.Workbook

　　Const outCsvFile　　As String = "C:\outFile.csv"

　　'CSVファイルの削除
　　On Error Resume Next
　　Kill outCsvFile
　　On Error GoTo 0

　　'画面描画停止
　　Application.ScreenUpdating = False

　　'ブックパス取得
　　myWBpath = ActiveWorkbook.Path

　　'ブックオープン
　　Workbooks.Open Filename:=myWBpath & "\testData1.xls"
　　Set xlBook = ActiveWorkbook
　　With xlBook
　　　　'シート１を出力
　　　　.Sheets(1).Select
　　　　.SaveAs Filename:=outCsvFile, FileFormat:=xlCSV, CreateBackup:=False

　　　　'擬似的に保存したようにする
　　　　.Saved = True

　　　　.Close
　　End With

　　'画面描画再開
　　Application.ScreenUpdating = True

　　MsgBox "終了"
End Sub