エクセル２０００マクロについて

質問

開いているブックを全て保存し、別のフォルダー（c:\sdata\ml)に保存し
エクセルを終了するやり方を教えてください。

回答No.1

c-cassis · ベストアンサー

質問に対しての事しかしてませんので、
これを叩き台にして、良いものを作ってくださいませ。

コマンドボタンをクリックすると実行する場合で作成しました。
Private Sub CommandButton1_Click()
Dim i As Integer 'loopのカウンタ
Dim strMyName As String　　　 'このソースがかかれてるブック名を保存
Dim strfilename As String　　　’保存をしたいブック名を保存

'<<実行しているブック名の保存
strMyName = ActiveWorkbook.Name

'<<現在開いているブック数より-1しながらLoop
For i = Workbooks.Count To 1 Step -1

Workbooks(i).Activate
'<<i件目のブック名を保存
strfilename = Workbooks(i).Name

'<<実行ブックでなければ、処理実行
If strMyName <> strfilename Then

'↓SaveAsメソッドを使用。ここで、
'保存したい場所と保存したい名前を指定する。
ActiveWorkbook.SaveAs _
Filename:="C:\sdata\ml\" & strfilename, _
FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

'<<i件目を閉じる
Workbooks(i).Close
End If
Next

'<<実行ファイルを閉じる
Application.Quit
End Sub

スペースの都合でちょっと見づらくなってしまいましたが、
これで必要最低限の事ができるはずです。

ではでは、ご健闘をお祈り致します。