Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\12.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1") '以这个指定的单元格为基准
Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight) '在基准单元格左边插入一列
Dim Rs As MSExcel.Range = Ws.Range("A1:A12") '调整的是指定单元格的大小
Rs.RowHeight = 80 '行高40磅
Rs.ColumnWidth = 15 '列宽20磅
Wb.WorkSheets(1).range("A2").Value = New XLS.Picture(GetImage("c:\Foxtable.Ico"))
App.Visible = True
为什么不能插入图片？
加好友 
发短信
Post By：2023/6/12 19:36:00 [显示全部帖子]
