worksheets工作簿的表示方法

workbooks（1）

workbooks（“hehe”）

for each in workbooks（在所有的工作簿中都循环一遍）

thisworkbook

activeworkbook

sub test ()

workbooks.add

activeworkbook.saveas "f:\abc.xlsx"

end sub

新建一个工作簿，并保存到F盘根目录下，并取名abc

Sub test()
Dim str As String
str = Workbooks("样本框s.xlsm").Path‘获取“样本框“文档的地址，并赋值给变量str’
Workbooks.Add‘新建一个工作簿’
ActiveWorkbook.SaveAs str & "\abc.xlsx"‘将现在的工作簿保存到str地址，并起名abc’
End Sub

sub test （）

workbooks.open thisworkbook.path & "\abc.xlsx"

[a1:c1]="hehe"

activeworkbook.colse 1（1表示保存后关闭，0表示不保存并关闭）

‘以上功能也可以用以下两行代码实现：

activeworkbook.save

activeworkbook.close’

end sub