中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

文檔：https://docs.microsoft.com/zh-cn/office/vba/api/excel.window.activecell

SetFormat, float, 0

設置取值為正值

SetFormat, float, 0

復制兩行

objExcel:= ComObjActive("Excel.Application")

VarA=4

VarB=5

objExcel.worksheets("sheet1").range(VarA . ":" VarB).copy

ExcelApp.ActiveSheet.Range("A1:E2").Copy

獲取活動單元格的值

n := objExcel.ActiveCell.Value

返回活動表格的名字

n := objExcel.ActiveSheet.Name

打開一個工作表格

ExcelApp := ComObjCreate("Excel.Application")

ExcelApp.WorkBooks.Open("C:\Users\Administrator\Desktop\Demo.xlsx")

ExcelApp.Visible := True

更改標題欄標題

ExcelApp := ComObjActive("Excel.Application")

ExcelApp.Caption := "應用程序調(diào)用 Microsoft Excel"

增加一個新的工作簿

ExcelApp.WorkBooks.Add

刪除工作表

ExcelApp.WorkSheets(2).delete

;設置第2個工作表為活動工作表：

ExcelApp := ComObjActive("Excel.Application")

ExcelApp.WorkSheets(2).Activate

ExcelApp.WorkSheets("Sheet3").Activate

獲取行與列

n:= objExcel.ActiveCell.Row

n:= objExcel.ActiveCell.Column

設置列寬

ExcelApp.ActiveSheet.Columns(1).ColumnWidth := 5

設置兩倍的高度

ExcelApp.ActiveSheet.Rows(2).RowHeight := 1/0.035

清除公式

ExcelApp.ActiveSheet.Cells(1,4).ClearContents

刪除行

objExcel.ActiveSheet.Rows(a).Delete

設置字體

ExcelApp.ActiveSheet.Rows(1).Font.Name := "楷體"

ExcelApp.ActiveSheet.Rows(1).Font.Bold   := True ;加粗

ExcelApp.ActiveSheet.Rows(1).Font.UnderLine := True ;下劃線無效

objExcel.ActiveSheet.Rows(1).Interior.ColorIndex := 5  ;背景顏色

objExcel.ActiveSheet.Rows(1).Font.ColorIndex := 3 ;字體顏色

V:=ExcelApp.ActiveSheet

V.Rows(2).interior.color:=1

V.Columns(3).interior.color:=2

V.Range("A1:E5").interior.color:=3

從A1位置開始粘貼

ExcelApp.ActiveSheet.Range("A1").PasteSpecial

自動適應列

ExcelApp.ActiveSheet.Columns.AutoFit

插入一行或者一列

ExcelApp.ActiveSheet.Rows(2).Insert

ExcelApp.ActiveSheet.Columns(1).Insert

刪除一行或者一列

ExcelApp.ActiveSheet.Rows(2).Delete

ExcelApp.ActiveSheet.Columns(1).Delete