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

 ‘1.打開(kāi)Excel
        Dim exl As New Excel.Application()
        exl.Visible = True

        ‘2.添加工作簿
        exl.Workbooks.Add()

        ‘3.設定活動(dòng)工作表
        ‘exl.Worksheets("sheets").active()

        ‘4.打開(kāi)指定的Excel文件
        ‘exl.Workbooks.Open("c:\book1.xls")

        ‘5.顯示Excel窗口
        exl.Visible = True

        ‘6.更改標題欄
        exl.Caption = "aaaaaaaaaaa"

        ‘7.為單元格賦值
        exl.Cells(1, 4).value = 100
        exl.Range("a1:b5").Value = 50

        ‘8.設置指定列寬度
        exl.ActiveSheet.columns(1).columnwidth = 20

        ‘9.設行高
        exl.ActiveSheet.rows(1).rowheight = 1 / 0.035

        ‘10.在第18行插入分頁(yè)
        exl.ActiveSheet.rows(18).pagebreak = 1

        ‘11.在第4列前刪除分頁(yè)符
        exl.ActiveSheet.columns(4).pagebreak = 0

        ‘12.指定邊框線(xiàn)的寬度
        exl.ActiveSheet.range("b3:d3").borders(2).weight = 3

        ‘13.邊框線(xiàn)條類(lèi)型
        Dim sheet As Excel.Worksheet
        sheet = exl.ActiveSheet
        sheet.Range("b10:f13").Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1

        ‘14.設置頁(yè)腳
        sheet.PageSetup.CenterFooter = "第&p頁(yè)"

        ‘15.頁(yè)眉
        sheet.PageSetup.CenterHeader = "aaaaaa"

        ‘16.頂、底、左、右邊距
        sheet.PageSetup.HeaderMargin = 2 / 0.035
        sheet.PageSetup.FooterMargin = 2 / 0.035
        sheet.PageSetup.LeftMargin = 2 / 0.035
        sheet.PageSetup.RightMargin = 2 / 0.035
        ‘頁(yè)眉距頂端、頁(yè)腳距底邊
        sheet.PageSetup.HeaderMargin = 2 / 0.0354
        sheet.PageSetup.FooterMargin = 2 / 0.035

        ‘22.頁(yè)面水平居中
        sheet.PageSetup.CenterHorizontally = True
        ‘23.頁(yè)面垂直居中
        sheet.PageSetup.CenterVertically = True

        ‘24.頁(yè)面紙張
        sheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4

        ‘25.打印網(wǎng)格（邊框是實(shí)線(xiàn)，中間是虛線(xiàn)）
        sheet.PageSetup.PrintGridlines = True

        ‘26.復制整個(gè)工作表
        sheet.Range("a1:f5").Copy()
        sheet.Range("a10").PasteSpecial() ‘粘貼

        ‘29.插入列/行
        sheet.Columns(1).insert()
        sheet.Rows(1).insert()

        ‘31.合并格
        sheet.Range("c4:d4").Merge()

        ‘33.調整字體
        ‘sheet.Cells("a1: f10").font.name = 5

        ‘38.打印預覽
        exl.ActiveWorkbook.PrintPreview()

        ‘39.打印
        exl.ActiveWorkbook.PrintOut()

        ‘40.保存文件
        exl.ActiveWorkbook.SaveAs("e:\aa.xls")

        ‘41.放棄存盤(pán)
        exl.ActiveWorkbook.Saved = True

        ‘43.退出
        exl.Quit()