主题：[求助]根据职务列导出对应姓名报表

求助：

怎样根据“名册”表中“姓名”列对应的“职务”列职务，把姓名填充到EXCEL报表“职务表”相应位置？谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.rar

帮组中的内容不适应

 

 

名册表中职务不是固定位置，     职务报表不能直接引用某行某列 ；

 

 

我想应该先遍历职务列，列出所有职务名称，再找出对应的姓名，最后把姓名填到报表相应的单元格

 

就是不知道代码应该如何写？

这两个帮助也是以行、列为导出依据，不是按同一列不同单元格内容为依据

比如，在名册表中  职务列“厂长助理”对应的姓名列是“林洪强”，“技师10” 对应的姓名列是“翁晓彬”

 

我就想把“林洪强”和“翁晓彬”分别填到报表中“厂长助理”、“技师10”下面的单元格，其他职务以此类推，生成的报表如下

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:职务表.xls

您功底深厚，就是有时有点武断

我按您的方法试试，再请教吧

请教 有点甜 老师，我用下面的代码可以 导出“部门1经理”，其他职务一定要一个职务一个IF判断吗，能不能简化代码？

 

 

Dim dt As Table = Tables("名册")
Dim Book As New XLS.Book(ProjectPath & "Attachments\职务表.xls")
Dim fl As String = ProjectPath & "Reports\职务表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For r As Integer = 0 To dt.Rows.Count - 1 '
       If dt.rows(r)("职务") = "部门1经理" Then
        Sheet(4,2).Value =  dt.rows(r)("姓名")
    End If
Next
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

请教 有点甜 老师，我用下面的代码，错在哪呢？

 

 

Dim dt As Table = Tables("名册")
Dim Book As New XLS.Book(ProjectPath & "Attachments\职务表.xls")
Dim fl As String = ProjectPath & "Reports\职务表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For r As Integer = 0 To dt.Rows.Count - 1 '
    For y As Integer = 1 To 30
        For x As Integer = 1 To 30
            If Sheet(x, y).text = dt.rows(r)("职务") Then
                Sheet(x + 1,y).Value = dt.rows(r)("姓名")
            End If
        Next
    Next
Next

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

转不过弯