VBA小知识点

创建一个EXCEL工作簿对象:

Set wd = CreateObject("excel.application")Set MyWorkBook = wd.Workbooks.Open(".XXXX.xls")

用完后wd.Quit

设置边框与自动筛选:

Set Rng = MyWorkSheet.UsedRangeWith Rng    .Borders.LineStyle = xlContinuous    .Borders.Weight = xlThin    .AutoFilterEnd With

获取或者设置单元格背景色:

MyWorkSheet.Cells(i, j).Interior.ColorIndex

 

保存/关闭工作簿:

MyWorkBook.SaveMyWorkBook.Close