2

我想为电子表格第一行的所有列添加动态自动过滤器。这是我到目前为止的示例：

SpreadSheetAddAutoFilter(theSheet,"A1:Z1");

这可行，但问题是我的文件中的列是否更少或更多。有没有办法在我的文件第一行的每一列上设置过滤器？这不应该是硬编码的。如果您对此问题有任何示例，请告诉我。谢谢你。

4

2 回答 2

2

假设您已经有一个 Excel 工作表，并且正在尝试将过滤器动态添加到整行，您需要

  1. 获取列数
  2. 将列数翻译成相应的字母。例如列 E -> 5
  3. 从中创建一个范围，例如A1:E1并将该字符串传递给SpreadSheetAddAutoFilter()函数。

这是我写的一个工作示例：

<cffunction name="columnToLetter" returntype="any">
    <cfargument name="index" type="numeric">
    <cfset letterArray = listToArray('A B C D E F G H I J K L M N O P Q R S T U V W X Y Z', ' ')>
    <cfreturn letterArray[index]>
</cffunction>


<cfspreadsheet action="read" src="fin.xlsx" name="spreadSheetObj" sheetname="Sheet1"> 
<cfset count = SpreadsheetGetColumnCount(spreadSheetObj, 'Sheet1')>

<cfoutput>
    count: #count# <br>
    <cfset column_label = columnToLetter(count)>
    <cfset column_label = 'A1:' & column_label & '1'>
    label: #column_label#
    <cfset SpreadSheetAddAutoFilter(spreadSheetObj, column_label)>
    <cfspreadsheet action="write" filename="updatedFile.xls" name="spreadSheetObj" sheetname="courses" overwrite=true> 
</cfoutput>
于 2017-12-21T23:39:17.823 回答
1

发布此答案，因为它比已发布的答案具有更好的结果。这只是一个简单的循环，除以26和获取字符。

<cfscript>
    // Function to print Excel column name for a given column number
    function printString(n){
        str = '';
        while (n>0){
            // Find remainder
            rem = n%26;
            // If remainder is 0, then a 'Z' must be there in output
            if (rem==0){
                str = 'Z' & str;
                n = (n\26)-1;
            } else {
                str = chr(64 + rem) & str;
                n = n\26;
            }
        }
        return str;
    }
</cfscript>

较短的形式

function printString(n){
    str = '';
    while (n>0){
        rem = n%26;
        str = rem==0 ? 'Z' & str : chr(64 + rem) & str;
        n = rem==0 ? (n\26)-1 : n\26;
    }
    return str;
}

功能在行动。

于 2017-12-29T04:13:08.987 回答