Insert
插入单元格。在插入单元格时,可以设置单元格的移动方向。如:
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A10") '以这个指定的单元格为基准
Rg.Insert(MSExcel.XlDirection.xlToRight) '将相应的单元格右移
App.Visible = True
其中,插入单元格的移动方向为XlDirection枚举,可为以下值之一:
xlUp:向上
xlToRight:向右
xlToLeft:向左
xlDown:向下
上面是从帮助文件复制的,红字部分的两个枚举好像不存在。也不知是不是我搞错了,说出来大家帮忙看看。