オブジェクト変数にブックを格納するには？

vbaで新規にブックを立ち上げて、そのブックの位置を指定したのですが

Sub Sample1()
Dim w As Workbook

Workbooks.Add
w = ActiveWorkbook.Name
w.Top = 0
w.Left = 0

End Sub

これだとエラーになります。

w = ActiveWorkbook.Name
これでは新規ブックを変数に格納できないようです。
w = ActiveWorkbook
だけでもダメでした。

どうすればよいでしょうか？
よろしくお願いします。

No.3 ベストアンサー 回答者： WindFaller 回答日時： 2014/02/16 23:42

>Dim w As Workbook

>w = ActiveWorkbook.Name
>これでは新規ブックを変数に格納できないようです。

wの入れ物を、[Workbook]としたなら、それに、「文字列」を入れようとしても、入るはずがありません。

VBAの場合は、Object を格納するなら、Set wb =ActiveWorkbook
か、新規なら、Set wb = Workbooks.Add　ですが、

名前を格納するなら、

Dim wb As Workbook
Dim fn As String
Set wb = ActiveWorkbook
fn = wb.Name

ということでしょう。

それに、これは何をしたいのか分からないです。
>w.Top = 0
>w.Left = 0

新規のブックの位置でしたら、例えば、こういうことでしょう。
wb.Application.Top = 0
wb.Application.Left = 0

この回答へのお礼

ありがとうございます。

お礼日時：2014/03/09 09:52

No.2 回答者： over_the_galaxy 回答日時： 2014/02/13 21:35

Set w = ActiveWorkbook

名前も含めて決めたいならば

Set w=ActiveWorkbook
w.Name="Filename"
w.Top=0
w.Left=0

この回答へのお礼

ありがとうございます。

お礼日時：2014/03/09 09:52

No.1 回答者： bin-chan 回答日時： 2014/02/13 20:32

試せる環境がないけど

Set w = ActiveWorkbook.Name

後でSet ｗ= Nothing 忘れずに

この回答へのお礼

ありがとうございます。

お礼日時：2014/03/09 09:52