SpreadsheetGear 按名称获取列？

发布于 2024-11-02 22:08:37 字数 450 浏览 6 评论 0原文

我刚刚开始从事一个使用 SpreadsheetGear 的项目。 CopyFromDataTable 用于从数据库获取所有数据。有很多领域可以合作；我们正在格式化它们，隐藏某些范围（如果它们为空）等。举个例子：

SpreadsheetGear.IRange cells = worksheet.Cells;    
cells["G1"].EntireColumn.NumberFormat = "m/d/yyyy";

因此，如果重新排列列或删除一列，看来我必须返回并将所有硬编码值调整为反映细胞移位。有没有什么方法可以通过第一个单元格的名称来引用该列，以使事物更加模块化？

我发现 this，但它仍然需要对列进行硬编码。

原文

I'm just starting to work on a project that uses SpreadsheetGear. CopyFromDataTable is used to get all the data from a database. There are a lot of fields to work with; we're formatting them, hiding certain ranges if they're empty, etc. As an example:

SpreadsheetGear.IRange cells = worksheet.Cells;    
cells["G1"].EntireColumn.NumberFormat = "m/d/yyyy";

So if the the columns are rearranged or one is removed, it appears I'd have to go back and adjust all of the hardcoded values to reflect the cell shift. Is there any way to reference the column by its first cell's name to possibly make things more modular?

I found this, but it still requires hardcoding the column.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

与君绝 2024-11-09 22:08:37

电子表格设备的一个很好的替代方案是 http://officehelper.codeplex.com。使用此库，您可以创建一个模板 xlsx，在其中进行所有格式化，然后您可以使用此“模板”文档中的部分来创建最终的要报告的 xlsx 文件，而无需以编程方式设置数字格式，例如在你的例子中。

回复收藏 0 原文

白云悠悠 2024-11-09 22:08:37

一种可能性是搜索标题/字段名称

Sub test()
Dim strFieldName As String
Dim rngHeading As Range

With Sheet1

    strFieldName = "Heading 3" 'find Heading Name
    With .Rows("1:1") 'search row 1 headings

        Set rngHeading = .Find(What:=strFieldName, LookIn:=xlValues, lookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

        'check if found
        If Not rngHeading Is Nothing Then

        MsgBox rngHeading.Address
        MsgBox rngHeading.Row
        MsgBox rngHeading.Column
        rngHeading.EntireColumn.NumberFormat = "m/d/yyyy"

        End If

    End With

End With

End Sub

One possibility is to search for the heading/fieldnames

Sub test()
Dim strFieldName As String
Dim rngHeading As Range

With Sheet1

    strFieldName = "Heading 3" 'find Heading Name
    With .Rows("1:1") 'search row 1 headings

        Set rngHeading = .Find(What:=strFieldName, LookIn:=xlValues, lookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

        'check if found
        If Not rngHeading Is Nothing Then

        MsgBox rngHeading.Address
        MsgBox rngHeading.Row
        MsgBox rngHeading.Column
        rngHeading.EntireColumn.NumberFormat = "m/d/yyyy"

        End If

    End With

End With

End Sub

回复收藏 0 原文

~没有更多了~