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

質問

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 · ベストアンサー

>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

お礼

ありがとうございます。

回答No.2

over_the_galaxy

Set w = ActiveWorkbook

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

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

お礼

ありがとうございます。

回答No.1

bin-chan

試せる環境がないけど

Set w = ActiveWorkbook.Name

後でSet ｗ= Nothing 忘れずに

お礼

ありがとうございます。