エクセルVBAで新しいブックを開き指定したブック名で保存するには? 削除
Message#3 2015年2月12日(木)09時50分 From: shell |
SHellを使って保存する方法もどうですかね。 以下はその方法になります。 Sub test() Dim Path As String, objWs As Variant Set objWs = CreateObject("Wscript.Shell") Path = objWs.SpecialFolders("Desktop") & "\" ActiveWorkbook.SaveAs Path & "ファイルの名前.xls" Set objWs = Nothing End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。