主题：如何用报表生成数据表？谢谢！

楼主做示例不认真:应该你做的事情让别人干

1.所有Excel文件几乎是一样的,虽应该理解不同的Excel是不同的记录.

2.没有准备相应的Table文件,虽容易找到示例文件.

大概如此这般:

Dim r As Row

Dim Fl,Bh As String

For Each Fl In FileSys.GetFiles(ProjectPath & "Reports\")

    Dim Book As New XLS.Book(Fl)

    Dim Sheet As XLS.Sheet = Book.Sheets(0)

    r = CurrentTable.addNew

    Bh  = Sheet(2,4).Value .split(":")(1)

    r("编号") = Bh 

    r("姓名") = Sheet(4,1).Value 

    r("部门") = Sheet(5,1).Value  

    r("性别") = Sheet(6,1).Value 

    r("地址") = Sheet(7,1).Value 

    r("家庭电话") = Sheet(8,1).Value

 

    r("出生日期") = Sheet(4,3).Value 

    r("雇佣日期") = Sheet(5,3).Value

    r("职务") = Sheet(6,3).Value 

    r("办公电话") = Sheet(8,3).Value 

    r("照片") = "EP" & Bh  & ".BMP"

    r("备注") = Sheet(9,0).Value 

Next