我在.Net项目中使用EPPlus将一些数据输出到Excel工作表中.
假设我想格式化具有特定格式的列E-G.使用EPPlus,我知道我可以这样做:
wks.Cells("E:G").Style.Numberformat.Format = ...
现在,我想知道,假设我想做同样的事情,但是通过他们的索引号而不是字母表示来引用列 – 理论上看起来像这样:
wks.Columns("5:7").Style.Numberformat.Format = ...
现在,我知道如果我做了这样的事情会有效:
wks.Cells(1,5,wks.Dimension.End.Row,7).Style.Numberformat.Format = ...
但我希望在EPPlus中有更好/更好的方法.有什么想法/建议?
谢谢!!
解决方法
作为我自己的问题的答案,为了帮助任何人,我最终创建了自己的扩展方法列,将列号转换为ExcelRange对象:
''' <summary> ''' Allows you to reference a column by its numeric index rather than its alphabetic representation ''' </summary> ''' <param name="colNum">The index of the column to reference on in the worksheet.</param> <System.Runtime.CompilerServices.Extension()> _ Public Function Columns(ByVal wks As ExcelWorksheet,ByVal colNum As Integer) As ExcelRange Dim ColName As String = ReturnColumnName(colNum) Return wks.Cells(ColName & ":" & ColName) End Function ''' <summary> ''' Allows you to reference a column by its numeric index rather than its alphabetic representation ''' </summary> ''' <param name="StartColNum">The start col num.</param> ''' <param name="EndColNum">The end col num.</param> <System.Runtime.CompilerServices.Extension()> _ Public Function Columns(ByVal wks As ExcelWorksheet,ByVal StartColNum As Integer,ByVal EndColNum As Integer) As ExcelRange Dim StartColName As String = ReturnColumnName(StartColNum) Dim EndColName As String = ReturnColumnName(EndColNum) Return wks.Cells(StartColName & ":" & EndColName) End Function Private Function ReturnColumnName(ByVal colNum As Integer) As String Dim d As Integer Dim m As Integer Dim Name As String d = colNum Name = "" do while (d > 0) m = (d - 1) Mod 26 Name = Chr(65 + m) + Name d = Int((d - m) / 26) Loop Return Name End Function
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。