Notifications
Clear all

RPA社区具有邮件自动通知功能,可以关注帖子实时追踪答复情况。需要在账号中 正确添加邮箱哦(⊙o⊙)

输出 DataTable to Excel Interop  

 

Daddy
活跃会员
已加入: 1年 前
帖子: 5
18/07/2019 8:35 下午  

 

请问,谁能帮我解释一下如何通过interop输出数据表吗?我想编写一个简单的datatable到一个范围,就像通过write range activities,但是希望通过VB.NET代码来实现。


引用
思想瞭望者
杰出会员 Moderator
已加入: 1年 前
帖子: 35
19/07/2019 10:23 上午  

我比较好奇的是既然已经提供了不需要写代码的方法去做同样的事,为何你偏偏想写代码搞定?是有什么特别的需求吗?


回复引用
Kex
 Kex
杰出会员
已加入: 1年 前
帖子: 43
19/07/2019 10:25 上午  

以下代码供参考

Dim Z As Integer
    Dim y As Integer

    For Z = 0 To ws.UsedRange.Columns.Count
        ws.Cells(1, Z + 1) = dt.Columns(Z).ColumnName
    Next

    For Z = 1 To ws.UsedRange.Rows.Count
        For y = 1 To ws.UsedRange.Columns.Count
            ws.Cells(Z + 1, y + 1) = dt.Rows(Z)(y).ToString
        Next
    Next

回复引用
LittleR
会员 Admin
已加入: 2年 前
帖子: 35
19/07/2019 1:36 下午  
发布者: Kex

以下代码供参考

Dim Z As Integer
    Dim y As Integer

    For Z = 0 To ws.UsedRange.Columns.Count
        ws.Cells(1, Z + 1) = dt.Columns(Z).ColumnName
    Next

    For Z = 1 To ws.UsedRange.Rows.Count
        For y = 1 To ws.UsedRange.Columns.Count
            ws.Cells(Z + 1, y + 1) = dt.Rows(Z)(y).ToString
        Next
    Next

👍


回复引用