王佩丰Excel学习04VBA操作工作簿

 变量定义 

Dim i as Interger
Dim rng as Range
Dim biao as WorkSheet

Workbooks.Open Filename = 'd:\data\1.xlsx'

ActiveWorkbook.Close
ActiveWorkbook.Add
ActiveWorkbook.Save
ActiveWorkbook.SaveAs
              .      

For Each 
For Each A in Range("a1:a10")

For Each A in Worksheets