【前言】

    Foxtable本身已经封装了一个很强大的Excel报表。通过它可以利用报表模板来批量生成报表，也可以嵌入各种分析图形。但经过一段时间的应用以后，发现它还存在一些不足，尤其是图表问题。由于它在Excel中内嵌的图表全部是图片格式，后期根本无法对它进行手工修改或设置。由于这是老六购买的控件问题，解决起来基本无望。
    为此，只有采用其它办法来弥补这个缺陷。在老六及lxl等人的热心指点下，我把Excel的dll动态库引用到Foxtable中，并把原有Excel文件中的vba代码改进一下放到Foxtable中试运行，ok，效果非常好，原来的所有问题全部可以解决。由于网上没有系统介绍这个dll的资料，逛了很多书店也没找到关于这个动态库的详细说明，我只有根据手头的几本VBA书籍，一点点的手工整理出这份《FoxTable操控Excel全攻略》。当然，说是“全攻略”可能有点言过了，这里介绍的只是Dll中很少很少的一部分功能。但如果把它作为Foxtable的报表工具来用的话，这份攻略应该足够了，呵呵。
    即将发布的Foxtable更新，将封装MSExcel的这个dll，这样的话，本帖中的所有代码均可直接运行。

    三、WorkSheet
    WorkSheet代表一张工作表，它是WorkBook的下一级对象。WorkSheet是WorkSheets集合的成员。
   
    1、引用工作表。引用工作表的方法有三种：
   
    方法一：通过WorkSheets的索引引用。如，这是引用第一个表：
    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 Ws As MSExcel.WorkSheet = Wb.WorkSheets(Wb.WorkSheets.Count)

    方法二：通过WorkSheets的名称引用。如：
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比")

    方法三：通过Sheets集合引用。每个WorkBook都有一个Sheets集合，包含工作簿内的所有工作表。
    如以索引引用：Dim Ws As MSExcel.WorkSheet = Wb.Sheets(1)
    如以名称引用：Dim Ws As MSExcel.WorkSheet = Wb.Sheets("同期对比")
   
    2、重要属性
   
    ● Name：返回或设置工作表名称。
    如，显示所有工作表名称：
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
    For Each Ws As MSExcel.WorkSheet In Wb.Sheets
        MessageBox.Show(Ws.Name)
    Next
    App.Quit
    再如，将第二个工作表的名称修改为“hhh”：
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.Sheets(1)
    Ws.Name = "hhh"
    Wb.Save
    App.Quit

    ● Visible：返回或设置工作表的显示状态。
    如：Ws.Visible = False

    ● EnableAutoFilter：返回或设置工作表被保护时是否允许自动筛选。

    ● EnableOutlining：返回或设置工作表被保护时是否启用分级显示符号。

    ● EnablePivotTable：返回或设置工作表被保护时是否启用数据透视表控件和操作。

    ● EnableSelection：返回或设置工作表被保护时是否可以选定单元格。此为XlEnableSelection类型，共有三种值：
    Ws.EnableSelection = MSExcel.XlEnableSelection.xlNoSelection      \'不能进行任何选定
    Ws.EnableSelection = MSExcel.XlEnableSelection.xlNoRestrictions   \'允许选定任意单元格
    Ws.EnableSelection = MSExcel.XlEnableSelection.xlUnlockedCells    \'仅允许选定未被锁定的单元格

    ● 获取工作表的保护状态：
    ProtectionMode：是否保护用户界面，如：MessageBox.Show(ws.ProtectionMode)
    ProtectContents：是否保护单元格内容
    ProtectDrawingObjects：是否保护图表
    ProtectScenarios：是否保护方案
    Protection：返回其它保护属性，包括：
        AllowFormattingCells：是否允许用户为受保护的工作表上的任意单元格设置格式。如：MessageBox.Show(ws.Protection.AllowFormattingCells)
        AllowFormattingColumns：是否允许用户为受保护的工作表上的任意列设置格式。
        AllowFormattingRows：是否允许用户为受保护的工作表上的任意行设置格式。
        AllowInsertingColumns：是否允许用户在受保护的工作表上插入列。
        AllowInsertingRows：是否允许用户在受保护的工作表上插入行。
        AllowInsertingHyperlinks：是否允许用户在受保护的工作表中插入超链接。
        AllowDeletingColumns：是否允许用户在受保护的工作表上删除列，要删除的列中的每个单元格都是解除锁定的。
        AllowDeletingRows：是否允许用户在受保护的工作表上删除行，要删除的行中的每个单元格都是解除锁定的。
        AllowSorting：是否允许用户在受保护的工作表上进行排序。排序区域中的每个单元格必须是解除锁定的或取消保护的。
        AllowFiltering：是否允许用户在受保护的工作表上设置筛选。用户可以更改筛选条件，但是不能启用或禁用自动筛选功能。用户也可以在已有的自动筛选功能上设置筛选。
        AllowUsingPivotTables：是否允许用户在受保护的工作表上使用数据透视表。

    ● FilterMode：判断工作表是否处于筛选模式

    3、重要方法
   
    ● Add：新建工作表。
    新建工作表有两个可选参数：Before和After，分别指定要增加的位置。如，下面的代码就是在“同期对比”表的后面，增加一个工作表，然后将表名称命名为“kkk”：
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets.Add(After:=Wb.WorkSheets("同期对比"))
    Ws.Name = "kkk"
    如果要在“同期对比”表的前面增加,只需将After改为Before。

    ● Copy：复制工作表。
    复制工作表也可用Before和After指定复制位置。如不指定，将新建一个只包含指定工作表的工作簿。如：
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比")     \'指定要复制的工作表
    With Wb.WorkSheets
        Ws.Copy(After:=.Item(.Count))    \'复制到最后面
        Ws.Copy(Before:=.Item(1))        \'复制到最前面
        Ws.Copy                          \'复制到一个新工作簿
    End With
    Wb.Save
    App.Quit

    ● Move：移动工作表。
    移动工作表可用Before和After指定移动位置。如不指定，将新建一个只包含指定工作表的工作簿。需要注意的是，当工作簿中只有一张工作表时是不能移动的。

    ● Delete：删除工作表。
    在删除工作表时会弹出提示信息，因此可以将Application的DisplayAlerts属性设置为False来阻止信息框的显示。需要注意的是，当工作簿中只有一张工作表时是不能删除的。

    ● Protect：保护工作表。
    Protect方法可以指定保护密码参数，该密码为一个区分大小写的字符串。如果省略本参数，不用密码就可以取消对该工作表的保护。如：
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比")
    Ws.Protect(Password:="hhh")          \'以密码保护
    Wb.Save
    App.Quit
    如果直接写为：Ws.Protect，则无需密码就能取消保护。除此以外，Protect中还可以使用以下参数：
    DrawingObjects：是否保护图表。如：Ws.Protect(DrawingObjects:=True)
    Contents：是否保护单元格内容。
    Scenarios：是否保护方案。
    UserInterfaceonly：是否保护用户界面，但不保护宏。如果省略本参数，则保护既应用于宏也应用于用户界面。
    AllowFormattingCells：是否允许用户为受保护的工作表上的任意单元格设置格式。
    AllowFormattingColumns：是否允许用户为受保护的工作表上的任意列设置格式。
    AllowFormattingRows：是否允许用户为受保护的工作表上的任意行设置格式。
    AllowInsertingColumns：是否允许用户在受保护的工作表上插入列。
    AllowInsertingRows：是否允许用户在受保护的工作表上插入行。
    AllowInsertingHyperlinks：是否允许用户在受保护的工作表中插入超链接。
    AllowDeletingColumns：是否允许用户在受保护的工作表上删除列，要删除的列中的每个单元格都是解除锁定的。
    AllowDeletingRows：是否允许用户在受保护的工作表上删除行，要删除的行中的每个单元格都是解除锁定的。
    AllowSorting：是否允许用户在受保护的工作表上进行排序。排序区域中的每个单元格必须是解除锁定的或取消保护的。
    AllowFiltering：是否允许用户在受保护的工作表上设置筛选。用户可以更改筛选条件，但是不能启用或禁用自动筛选功能。用户也可以在已有的自动筛选功能上设置筛选。
    AllowUsingPivotTables：是否允许用户在受保护的工作表上使用数据透视表。

    ● UnProtect：撤销保护工作表。
    如果在保护工作表时没有设置密码，则直接使用UnProtect即可；如果设置了密码，则需要在撤销保护工作表时指定保护密码，如：
    Ws.UnProtect(Password:="hhh")

    ● Select：选定并激活指定的工作表。

    ● Activate：激活指定的工作表。需要注意的是，Activate是用来激活对象的方法，而Select是用来选取对象的方法。通过这两种方法得到的工作表都是活动工作表，另外，通过Add或Copy方法得到的工作表也一定是活动工作表。

    四、Range
    WorkSheet的下一级对象是Range，它可以是某个单元格、某一行、某一列或者多个相邻或不相邻的单元格区域对象。Range是Excel应用程序中使用最多的对象。在操作Excel的任何单元格区域之前，都要将其表示为一个Range对象，然后再使用该Range对象的属性和方法。
   
    1、引用单元格

    ● 通过Range属性引用，这也是引用单元格最常用的方式，如：
    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
    Rg = Ws.Range("A5")                      \'引用单个单元格
    Rg = Ws.Range("A3:B5")                   \'引用连续的单元格区域
    Rg = Ws.Range("A1:D8,A20:C25,F6:G10")    \'引用不连续的单元格区域
    Rg = Ws.Range("B:B")                     \'引用单列，也可以Columns引用。如：Rg=Ws.Columns("B")，或者 Rg=Ws.Columns(2)
    Rg = Ws.Range("B:D")                     \'引用连续的多列
    Rg = Ws.Range("A:A,C:C,H:H")             \'引用不连续的多列
    Rg = Ws.Range("5:5")                     \'引用单行
    Rg = Ws.Range("5:20")                    \'引用连续的多行
    Rg = Ws.Range("1:1,3:3,5:5")             \'引用不连续的多行
    App.Quit

    ● 通过Cells属性引用某个单元格。
    Cells(i,j)就表示第i行、第j列处的单元格。如果需要循环引用单元格区域的各个单元格，那么使用Cells属性是最方便的。如果没有指定具体的行号和列号，那么就代表引用整个工作表。如，Rg = Ws.Cells。
    代码示例：下面的代码就是将第5-10行、6-20列的所有单元格内容替换为"abc"：
    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
    For i As Integer = 5 To 10
        For j As Integer = 6 To 20
            Rg = Ws.Cells(i,j)
            Rg.Value = "abc"
        Next
    Next
    App.Visible = True

    ● 通过Range和Cells联合引用单元格。
    这种方法特别适合于单元格区域变化的场合。如：Rg = Ws.Range(Cells(1,1),Cells(5,3))

    ● 引用已经使用的单元格区域。
    利用UsedRange属性，可以取得在指定工作表中已经使用的单元格区域。如下面的代码就将得到已经使用的行数、列数和单元格个数：
    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.UsedRange
    MessageBox.Show(Rg.Rows.Count)
    MessageBox.Show(Rg.Columns.Count)
    MessageBox.Show(Rg.Count)
    App.Quit

    ● 动态引用单元格。
    方法一：利用Offset属性，以初始值所设定的单元格为起点，来相对移动任意的行或列，从而定位到新的单元格。下面的例子就是从目前的单元格A2开始，向下移动5行、向右移动3列，也就是定位到单元格D7，并显示新的单元格地址：
    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("A2")
    Rg = Rg.Offset(5,3)
    MessageBox.Show(Rg.Address)
    App.Quit
    方法二：利用Resize属性，可以将单元格范围改变为指定的大小，并引用变更后的单元格区域。需要注意的是，在使用Resize属性更改区域范围时，行参数和列参数是区域的总行数和总列数。下面的例子就是以单元格区域A2:D4的左上角单元格A2为基准，将单元格区域变更为有6行、6列的单元格区域，即新引用的单元格区域为A2:F7。
    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("A2:D4")
    Rg = Rg.Resize(6,6)
    MessageBox.Show(Rg.Address)
    App.Quit
    综合实例一：引用不包括标题行的单元格区域(假如标题在第1行)：
    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.UsedRange         \'先指定所有已用区域
    Rg = Rg.Resize(Rg.Rows.Count-1).Offset(1,0)    \'再将现有区域的行数减1然后下移1行
    MessageBox.Show(Rg.Address)
    App.Quit
    综合实例二：引用不包括标题列的单元格区域(假如标题在第1列)：
    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.UsedRange             \'先指定所有已用区域
    Rg = Rg.Offset(0,1).Resize(,Rg.Columns.Count-1)    \'再将现有区域右移一列然后将列数减1
    MessageBox.Show(Rg.Address)
    App.Quit

    ● 引用某个单元格所在的整个行。
    利用EntireRow属性，可以获取某个单元格所在的整个行。如：
    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("C5").EntireRow
    App.Quit

    ● 引用某个单元格所在的整个列。
    利用EntireColumn属性，可以获取某个单元格所在的整个列。

    2、重要属性

    ● Address：获取单元格或单元格区域的地址。

    ● Count：获取指定单元格区域内的单元格个数。
    ● Row：获取指定单元格的行号。以下代码可获取单元格区域的行号范围：
    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.UsedRange
    Dim RowBegin As Integer = Rg.Cells(1).Row
    Dim RowEnd As Integer = Rg.Cells(Rg.Count).Row
    MessageBox.Show(RowBegin)
    MessageBox.Show(RowEnd)
    App.Quit

    ● Rows.Count：获取指定单元格区域内的行数。

    ● Column：获取指定单元格的列号。以下代码可获取单元格区域的列号范围：
    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.UsedRange
    Dim ColumnBegin As Integer = Rg.Cells(1).Column
    Dim ColumnEnd As Integer = Rg.Cells(Rg.Count).Column
    MessageBox.Show(ColumnBegin)
    MessageBox.Show(ColumnEnd)
    App.Quit

    ● Columns.Count：获取指定单元格区域内的列数。

    ● Value：返回或设置指定单元格的值。如：
    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.Cells(1,1)
    Rg.Value = 12345.88                       \'输入数字
    Rg.Value = "abcde"                        \'输入字符
    Rg.Value = "\'012345"                      \'如要输入数字字符串,要在前面加上前缀字符"\'"
    Rg.Value = "2006/5/20"                    \'输入日期
    Rg.Value = "2006-5-20"                    \'输入日期
    Rg.Value = Cdate("2006年5月20日")         \'输入日期
    Rg.Value = "10:30:20"                     \'输入时间
    Rg.Value = Cdate("10:30PM")               \'输入时间
    App.Visible = True

    ● 通过Value和数组向单元格区域一次性输入多个数据。如：
    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 Array As String() = {"a","b","c","d"}       \'定义数组
    Dim Rg As MSExcel.Range = Ws.Range("A1:D1")
    Rg.Value = Array                                \'写入指定的单元格(如果具体值，则全部的单元格都写入一个相同值)
    App.Visible = True

    ● 通过Value向单元格区域输入连续值(自增值)。如：
    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("G1:G20")                   \'指定单元格区域
    Rg.Cells(1).Value = 10                                         \'设定初始值
    Rg.Cells(1).AutoFill(Rg,MSExcel.XlAutoFillType.xlFillSeries)   \'对指定区域生成自增值
    App.Visible = True
    同样的方式，可以实现其它内容的自增，如：
    Rg.Cells(1).Value = "2009-10-10"   \'也可以设为"星期一"、"1月"等，则自动按星期和月份自增
    Rg.Cells(1).AutoFill(Rg,MSExcel.XlAutoFillType.xlFillDefault)
    如果在两个初始的单元格输入间隔某个数字的数据，还可以实现输入具有相同间隔的字符或数值，如：
    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("G1:G20")
    Dim Jg As MSExcel.Range = Ws.Range("G1:G2")
    Jg.Cells(1).Value = 1
    Jg.Cells(2).Value = 3
    Jg.AutoFill(Rg,MSExcel.XlAutoFillType.xlFillDefault)
    App.Visible = True

    ● 设置单元格的字体格式。
    利用Font对象的Name等属性对单元格的格式进行设置。如：
    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("A1")
    Rg.Value = "FoxTable操控Excel全攻略"
    With Rg.Font
        .Name = "黑体"     \'字体
        .Size = 20         \'字号
        .Bold = True       \'加粗
        .Italic = True     \'斜体
        .ColorIndex = 3    \'颜色
    End With
    App.Visible = True
    【其它设置】
    上标。如，Rg.Font.Superscript = True
    下标。如：Rg.Font.Subscript = True
    下划线。如：
        单下划线：Rg.Font.Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleSingle
        双下划线：Rg.Font.Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleDouble
        会计用单下划线：Rg.Font.Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleSingleAccounting
        会计用双下划线：Rg.Font.Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleDoubleAccounting
        取消下划线：Rg.Font.Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleNone

    ● 设置单元格字符串中一部分字符的字体格式。
    利用Range对象的Characters属性，定位到要设置格式的字符，然后利用Font对其进行设置。Characters中的第一个参数为起始位置，第二个参数为字符长度。如，下面的代码就是对“FoxTable操控Excel全攻略”中的“操控”两字进行格式设置：
    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("A1")
    Rg.Value = "FoxTable操控Excel全攻略"
    Dim Chr As MSExcel.Characters = Rg.Characters(9,2)
    With Chr.Font
        .Name = "黑体"     \'字体
        .Size = 20         \'字号
        .Bold = True       \'加粗
        .Italic = True     \'斜体
        .ColorIndex = 3    \'颜色
    End With
    App.Visible = True
    需要说明的是，部分字符串同样可以设置上标、下标和下划线。

    ● 设置单元格区域的外部边框。
    利用Range对象的BorderAround方法即可实现。这里有3个参数：
    【LineStyle】边框的线型。可以为以下 XlLineStyle 值之一：
                 xlContinuous
                 xlDash
                 xlDashDot
                 xlDashDotDot
                 xlDot
                 xlDouble
                 xlSlantDashDot
                 xlLineStyleNone
                 xlNone
    【Weight】边框粗细。可以为以下 XlBorderWeight 常数之一：
                 xlHairline
                 xlMedium
                 xlThick
                 xlThin
    【ColorIndex】边框颜色。
    测试代码：
    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.UsedRange
    Rg.BorderAround(MSExcel.XlLineStyle.xlContinuous,MSExcel.XlBorderWeight.xlThick,4)  
    App.Visible = True

    ● 设置单元格区域的全部边框。
    如果要设置单元格区域的全部边框，必须使用Border对象的有关属性。如下面的代码就是为已经使用的单元格全部加上边框：
    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.UsedRange
    Rg.Borders.Linestyle = MSExcel.XlLineStyle.xlContinuous  \'边框线型
    Rg.Borders.Weight = MSExcel.XlBorderWeight.xlThin        \'边框粗细
    Rg.Borders.ColorIndex = 3                                \'边框颜色
    App.Visible = True
    除此之外，我们还可以为单元格有针对性的设置边框，它必须指定为XlBordersIndex枚举中的其中之一：
    xlDiagonalDown：从区域中每个单元格的左上角至右下角的边框(斜下)。
    xlDiagonalUp：从区域中每个单元格的左下角至右上角的边框(斜上)。
    xlEdgeBottom：区域底部的边框(底边框)。
    xlEdgeLeft：区域左边的边框(左边框)。
    xlEdgeRight：区域右边的边框(右边框)。
    xlEdgeTop：区域顶部的边框(上边框)。
    xlInsideHorizontal：区域中所有单元格的水平边框，区域以外的边框除外(内部水平边框线)。
    xlInsideVertical：区域中所有单元格的垂直边框，区域以外的边框除外(内部垂直边框线)。
    如，下面的代码就仅为已经使用的单元格区域设置了内部水平边框线：
    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.UsedRange
    With Rg.Borders(MSExcel.XlBordersIndex.xlInsideHorizontal)
       .LineStyle = MSExcel.XlLineStyle.xlContinuous 
       .Weight = MSExcel.XlBorderWeight.xlThin  
       .ColorIndex = 3
    End With
    App.Visible = True
    如要取消全部边框，则只需：Rg.Borders.Linestyle = 0

    ● 设置单元格的颜色和背景。
    利用Range对象的Interior属性，可以设置单元格的填充颜色、背景图案和背景颜色等。如：
    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.UsedRange
    With Rg.Interior
        .ColorIndex = 3                                    \'单元格填充颜色为红色
        .Pattern = MSExcel.XlPattern.xlPatternCrissCross   \'单元格背景图案为十字图案
        .PatternColorIndex = 6                             \'单元格背景颜色为黄色
    End With
    App.Visible = True
    ● 设置单元格的格式。
    单元格格式是通过NumberFormat或NumberFormatLocal属性来完成的。如：
    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)
    Ws.Range("A1").NumberFormat = "G/通用格式"    \'通用格式
    Ws.Range("B1").NumberFormat = "0_ "           \'数值
    Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)"    \'货币
    Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ "    \'会计专用
    Ws.Range("E1").NumberFormat = "yyyy-m-d"    \'日期
    Ws.Range("F1").NumberFormat = "h:mm:ss"     \'时间
    Ws.Range("G1").NumberFormat = "0.00%"       \'百分比
    Ws.Range("H1").NumberFormat = "# ?/?"       \'分数
    Ws.Range("I1").NumberFormat = "0.00E+00"    \'科学记数
    Ws.Range("J1").NumberFormat = "@"           \'文本
    App.Visible = True
    可在上述代码执行完毕后，在相应的单元格中输入数据以查看格式效果。

    ● 设置单元格的对齐方式。
    通常情况下，当单元格内的数据是文本时，数据自动左对齐；当单元格内的数据是数字时，数据自动右对齐。通过HorizontalAlignment属性可进行水平对齐设置，使用VerticalAlignment属性可进行垂直对齐设置。如：
    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("A1")
    Rg.Value = "FoxTable操控Excel全攻略"
    Rg.HorizontalAlignment = MSExcel.Constants.xlRight        \'水平右对齐
    Rg.HorizontalAlignment = MSExcel.Constants.xlLeft         \'水平左对齐\'
    Rg.HorizontalAlignment = MSExcel.Constants.xlCenter       \'水平居中
    Rg.HorizontalAlignment = MSExcel.Constants.xlDistributed  \'水平分散对齐
    Rg.HorizontalAlignment = MSExcel.Constants.xlGeneral      \'水平对齐恢复默认
    Rg.VerticalAlignment = MSExcel.Constants.xlTop            \'垂直靠上
    Rg.VerticalAlignment = MSExcel.Constants.xlBottom         \'垂直靠下
    Rg.VerticalAlignment = MSExcel.Constants.xlCenter         \'垂直居中
    Rg.VerticalAlignment = MSExcel.Constants.xlGeneral        \'垂直对齐恢复默认
    App.Visible = True

    ● 设置单元格大小。
    利用RowHeight属性和ColumnWidth属性可以设置单元格的大小。如：
    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("A1:C1")   \'可指定任意单元格或单元格区域
    Rg.RowHeight = 40         \'行高40磅
    Rg.ColumnWidth = 20       \'列宽20磅
    App.Visible = True
    如果要恢复标准行高和标准列宽，可以这样：
    Rg.RowHeight = Ws.StandardHeight
    Rg.ColumnWidth = Ws.StandardWidth

    ● 缩小单元格内容以全部显示。
    当单元格内的数据长度超过单元格宽度时，就会只显示一部分数据。使用ShrinkToFit属性，可将单元格内的数据缩小，以适应单元格，使内容全部显示出来。
    如：Rg.ShrinkToFit = True

    ● 自动调整单元格大小以显示全部内容。
    这个刚好与ShrinkToFit相反，它是自动调整单元格大小，使单元格能够显示全部数据。这需要用到AutoFit方法。如：
    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("A1")
    Rg.Value = "FoxTable操控Excel全攻略"
    Rg.Font.Size = 50         \'把字体放大
    Rg.EntireColumn.AutoFit   \'自动调整列宽
    Rg.EntireRow.AutoFit      \'自动调整行高
    App.Visible = True
    如果要调整工作表全部单元格的大小，可以使用Cells属性。如：
    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.Cells
    Rg.EntireColumn.AutoFit   \'自动调整列宽
    Rg.EntireRow.AutoFit      \'自动调整行高
    App.Visible = True

    ● 锁定单元格(解除单元格锁定)。
    利用Locked属性可锁定指定的单元格，也可解除锁定。需要注意的是，如果工作表没有被保护，即使将单元格设置为锁定状态，该单元格仍可以操作。只有在工作表被保护的情况下，锁定单元格才能起作用。如：
    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("A1:A10")        \'指定任意单元格
    Ws.Unprotect                                        \'撤销对工作表的保护
    Ws.Cells.Locked = False                             \'解除整个工作表所有单元格的锁定
    Rg.Locked = True                                    \'锁定指定的单元格
    Ws.Protect                                          \'保护工作表
    App.Visible = True

    3、重要方法

    ● Select：选定单元格或单元格区域。如：
    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)
    Ws.Select                        \'在选定单元格之前,必须先选定工作表!!
    Ws.Range("A1:A10").Select        \'选定单元格
    App.Visible = True

    ● Goto：选定单元格，并滚动窗口直至目标区域的左上角单元格出现在窗口的左上角处。
    注意，这是利用Application中的方法，测试代码：
    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("P100:P105")
    Ws.Select
    App.Goto(Rg,True)      \'第2个参数用于决定是否滚动
    App.Visible = True

    ● Activate：激活单元格。
    需要注意的是，Activate是用来激活对象的方法，而Select是用来选取对象的方法。使用Select方法可以一次选取多个单元格区域，而Activate一次只能激活一个单元格。
    如下面的代码中，即使将激活单元格区域修改为"B5:B8"，但激活的单元格还是只有一个"B5"：
    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)
    Ws.Select
    Ws.Range("A1:D10").Select        \'选定单元格区域
    Ws.Range("B5").Activate          \'激活单元格
    App.Visible = True
    ● Merge：合并单元格。
    利用Merge方法，或将MergeCells属性设置为True，都可以合并单元格。如：
    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("A1:D10")
    App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示
    Rg.Merge                  \'合并指定区域的单元格
    \'Rg.MergeCells = True     \'用这种方式也可以合并
    App.Visible = True

    ● UnMerge：取消合并单元格。
    利用UnMerge方法，或将MergeCells属性设置为False，可将已经合并的单元格重新分解为独立的单元格。
    如下面的代码就是先利用MergeArea属性判断某个单元格是否为合并单元格的一部分，然后再进行取消：
    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("A1")
    If Rg.MergeArea.Address = Rg.Address Then
        MessageBox.Show("该单元格区域并不是合并后的单元格! ")
        App.Quit
    Else
        App.DisplayAlerts = False   \'加上此行可禁止弹出合并前的提示
        Rg.UnMerge                  \'取消合并
        \'Rg.MergeCells = False      \'用这种方式也可以取消
        App.Visible = True
    End If

    ● Clear：清除单元格的全部信息。
    本方法将清除单元格的全部信息(包括数据、格式、批注等等)。

    ● ClearContents：清除单元格的值。
    本方法仅清除单元格的值，但保留其格式设置和批注等信息。

    ● ClearComments：清除单元格的批注。

    ● ClearFormats：清除单元格的格式。

    ● ClearNotes：清除单元格的批注和语音批注。

    ● 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：向下

    ● 插入整行或整列。
    利用Insert方法，同时结合EntireRow和EntireColumn属性，可插入整行和整列。如：
    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.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)        \'在基准单元格上面插入一行
    Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight)  \'在基准单元格左边插入一列
    App.Visible = True
    其中，插入整行或整列的移动方向为XlInsertShiftDirection枚举，且只能为以下值之一：
    xlShiftToRight
    xlShiftDown

    ● Delete：删除单元格。在删除单元格时，可以设置单元格的移动方向(在删除某个单元格后，旁边的单元格会根据设置的单元格移动方向填补空缺)。如：
    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.Delete(MSExcel.XlDirection.xlUp)          \'下面的单元格上移
    App.Visible = True

    ● 删除整行或整列。
    利用Delete方法，同时结合EntireRow和EntireColumn属性，可删除整行和整列。如：
    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.EntireColumn.Delete(MSExcel.XlDirection.xlToLeft)          \'右面的单元格左移
    App.Visible = True