VBAボタンをクリックして新しいブックを作成します。

Question

既存のブックのボタンを押すときに新しいブックを作成するマクロを作成しようとしています。新しく作成したワークブックを既存のワークブックと同じフォルダに保存して新しい名前を付けたいですか？誰かが私を助けてくれますか？

ありがとうございます！

Sub CreateNewWorkBook() 

'Adding New Workbook 
Workbooks.Add 
'Saving the Workbook 
ActiveWorkbook.SaveAs Filename:=thisWb.Path & "\Test.xls" 
ActiveWorkbook.Close savechanges:=False 

End Sub 

Answer 1

から次のコードを試してみてください。私が今まで持っているコードですが、私はそれが（オブジェクトが見つかりませんと同じフォルダに保存されません）したいと、それは動作しません

：

https://msdn.microsoft.com/en-us/library/office/aa221273(v=office.11).aspx

Sub AddNew() 
Set NewBook = Workbooks.Add 
    With NewBook 
     .Title = "All Sales" 'You can modify this value. 
     .Subject = "Sales" 'You can modify this value. 
     .SaveAs Filename:="Allsales.xls" 
    End With 
End Sub 

ファイルのパスを取得するにはそのことについて質問がすでにあります：

How to get the path of current worksheet in VBA?