マクロでの自動保存
エクセルで作ったデータをボタン一つで自動的に特定のフォルダーに
保存するマクロを作りたいのですが、色々なサイトを参考に保存名前を
付けて保存するプログラムまでは組めたのですが、特定のフォルダに
保存していくプログラムがうまく動きません。
下記に作成したコードを記載するので、アドバイスお願いします。
Sub データ保存()
Sheets("シート名").Select
パス = ActiveWorkbook.Path
別名 = Application.InputBox(prompt:="入力例.12345", _
Title:=" ファイル名を入力して下さい", Type:=2)
別名 = パス & "\" & 別名 & ".xls"
Sheets("シート名").Copy
ActiveWorkbook.SaveAs Filename:=別名
ActiveWorkbook.Close
End Sub