主题：关于EXCEL报表的问题

不要NO吗,你以前一直说NO的,如果可以的话对于美化报表可以起很大作用的.

Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Attachments\表A.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Array As String() = {"a"}       '定义数组
    Dim Rg As MSExcel.Range = Ws.Range("A6:A12")
    Rg.Value = Array                                '写入指定的单元格(如果具体值,则全部的单元格都写入一个相同值)
    App.Visible = True

 

 这个代码可以在A6-A12单元格全部替换成A的字母,如果替换成第三列的话,RG.valUe应该怎么写?

任何东西都有局限，或者说有规矩，不可能随心所欲。

 

 

还有像这个

 

 

因为现在可以虚拟关联表,所以我认为像这种关联细节的引用,可以不在关联的情况下就可以直接引用了.

     这个值怎么引用?

呵呵，这个我真不懂的，不属于Foxtable，我没有研究过。
我在r版的帖子找到这些内容，不知道行不行：
 
 ● 引用整行或整行区域。
    如：Rg = Ws.Rows("5")      '引用第5行
        Rg = Ws.Rows("5:6")  '引用第5-6行
    ● 引用整列或整列区域。
    如：Rg = Ws.Columns("B")      '引用B列
        Rg = Ws.Columns("B:F")    '引用B-F列

这个是针对报表的引用列.

得到的都是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 = Ws.Range("A1:A6")
    Rg.Value = "FoxTable操控Excel全攻略"
    App.Visible = True

 

 

Rg.Value = "XXXXXX"  就是这个值等于系统表的第三列所有的内容,我不会写代码.

测试通过

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
App.Visible = True
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Columns("A")
Rg.Value = "FoxTable操控Excel全攻略"