欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

五)、工作表
　　1、添加
　　Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表
　　Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表
　　2、移動(dòng)
　　ActiveSheet.Move before:=Sheets(2) '將當前工作表移動(dòng)至第2工作表之前
　　3、命名
　　ActiveSheet.Name="工作表名" '將當前工作表命名為"工作表名"
　　4、刪除
　　可以用以下語(yǔ)句刪除當前工作表。
　　ActiveSheet.Delete
　　但在刪除前Excel會(huì )自動(dòng)彈出提示框，需在用戶(hù)確認后方可執行刪除。為避免這一干擾，可以先用以下語(yǔ)句關(guān)閉Excel的警告提示。
　　Application.DisplayAlerts = False
　　在刪除完成后，再重新打開(kāi)Excel的警告提示
　　Application.DisplayAlerts = True
　　六)、工作簿
　　Excel的宏對工作簿的操作主要為保存。
　　Dim 存盤(pán)文件名 As String
　　ActiveWorkbook.Save '保存當前工作簿
　　存盤(pán)文件名="工作表名"
　　ActiveWorkbook.SaveAs Filename:= 存盤(pán)文件名 '當前工作簿另存為"工作表名.xls"
　　在另存時(shí)，若指定的存盤(pán)文件名不包含路徑，則保存在該工作簿的打開(kāi)目錄下。而若此存盤(pán)文件已存在，也可用關(guān)閉Excel警告提示的方法以免其自動(dòng)彈出提示框。

轉載自 http://bbs.it.com.cn/showtopic-169943.aspx