Edytuj na końcu

Czy ktoś widzi, co robię źle? Oto moje oczekiwania i obserwacje:

Oczekuję, że arkusz o nazwie Parametry wyszukiwania będzie miał komórkę a1 pogrubioną czerwoną czcionką. Dostaję to, czego oczekuję.

Oczekuję arkusza o nazwie „4D, CCCU, SDAU”, który ma dane zaczynające się w wierszu 3. Rozumiem to.

Oczekuję, że wiersz 3 będzie miał tekst „pogrubiona czcionka 3 zielona prawdziwa” i będzie pogrubioną zieloną czcionką. Dostaję tekst, ale dostaję pogrubioną czerwoną czcionkę, która pasuje do komórki a1 w drugim arkuszu. W rzeczywistości formatowanie w tej komórce zawsze będzie pasowało do komórki a1 z innego arkusza.

Spodziewam się, że pozostałe komórki będą miały wartość taką jak „normalna czcionka 4 niebieska prawda” i będą miały niebieską, pogrubioną czcionkę. Dostaję wartości, ale w ogóle nie mam formatowania.

Moje wyniki zawsze pokazują mi wartości, których oczekuję.

Kod jest poniżej. AddNewRow to udf.

Powtarzam, pytanie brzmi: dlaczego komórki nie formatują tak, jak tego oczekuję?

    <cfscript>
    FileName = "d:\dw\dwweb\work\Antibiotics.xls";

    SearchParameters = QueryNew("Item,Value","varchar,varchar");
    AddNewRow(SearchParameters, "Item,Value","Date Range,#DateRange#");

    SearchParametersSheet = Spreadsheetnew("SearchParameters");
    SpreadSheetAddRows(SearchParametersSheet, SearchParameters);
    SheetNumber = 1;
    DrugsByCategory = QueryNew("Item,font","varchar,varchar");
    format1 = StructNew();
    format1.bold = true;
    format1.color = "red";
    SpreadsheetFormatCell(SearchParametersSheet, format1, 1, 1); 
    </cfscript>

    <cfspreadsheet action="write" filename="#FileName#"
                name="SearchParametersSheet"  
    sheet=1 sheetname="Search Parameters" overwrite=true>

    <cfoutput query="AllDrugs" group="CategoryName">
    <cfset AddNewRow(DrugsByCategory,"Item#Chr(30)#font"
                 ,"#CategoryName##Chr(30)#bold",Chr(30))>
    <cfoutput>
    <cfset AddNewRow(DrugsByCategory,"Item#Chr(30)#font"
                 ,"#StandardSpelling##Chr(30)#normal",Chr(30))>
    </cfoutput>
    </cfoutput>


    <cfquery name="units" dbtype="query">
    select distinct unit
    from initialresults
    </cfquery>

    <cfloop query="units">
    <cfscript>
    SheetNumber ++;
    ThisSpreadSheet = SpreadSheetNew(unit);
    RowNumber = 3;

    for (i = 1; i <= DrugsByCategory.recordcount; i ++) {
    // note that the data might contain commas, so we have to use two commands 
    SpreadsheetAddRow(ThisSpreadSheet, "", RowNumber, 1);
    SpreadSheetSetCellValue(ThisSpreadSheet, DrugsByCategory.Item[i], RowNumber, 1);

    if (DrugsByCategory.font[i] == "bold"){
    format1.bold = true;
    format1.color = "green";
    writedump(var="#format1#" label="#RowNumber#");

    SpreadSheetSetCellValue(ThisSpreadSheet
                , "bold font #Rownumber# #format1.color# #format1.bold#"
                , RowNumber, 1);
    SpreadsheetFormatCell(ThisSpreadSheet, format1, RowNumber, 1); 


    }
    else {
    format1.color = "blue";
    format1.bold = true;
    writedump(var="#format1#" label="#RowNumber#");
    SpreadSheetSetCellValue
                 (ThisSpreadSheet, "normal font 
                  #Rownumber# #format1.color# #format1.bold#"
                , RowNumber, 1);
    SpreadsheetFormatCell(ThisSpreadSheet, format1, RowNumber, 1); 
    }
    RowNumber ++;

    }

    </cfscript>
    <cfspreadsheet action="update" filename="#FileName#" name="ThisSpreadSheet"  
        sheet=#SheetNumber# sheetname="#unit#" >

    </cfloop>

Edytuj zaczyna się tutaj

To samowystarczalny kod, który zasugerował Leigh. Metody formatowania sugestii Travisa są komentowane, ale kiedy ich użyłem, wyniki nie uległy zmianie.

<cfscript>
Sheet1 = Spreadsheetnew("Sheet1");
SpreadSheetAddRow(Sheet1, "fred");
SheetNumber = 1;

Format = {};
format.bold = true;
format.color = "blue";
MYfile = "d:\dw\dwtest\dan\abc.xls";
writedump(format);
SpreadsheetFormatCell(Sheet1, Format, 1, 1); 

Values = "a,b,a,b";

</cfscript>
<cfspreadsheet action="write" filename="#MYFile#" name="Sheet1"  
    sheet=1 sheetname="fred" overwrite=true>

<cfloop list="a" index="letter">
<cfscript>
RowNumber = 1;
SheetNumber ++;
ThisSheet = SpreadSheetNew(letter);
for (i = 1; i <= 4; i ++) {

SpreadsheetAddRow(ThisSheet, ListGetAt(Values, i));
if (ListGetAt(Values, i) == "a") {
format.color = "green";
SpreadsheetFormatCell(ThisSheet, Format, RowNumber, 1); 
       //SpreadsheetFormatCell(ThisSheet, {bold="true",color="green"}, RowNumber, 1); 
}
else {
format.color = "red";
SpreadsheetFormatCell(ThisSheet, Format, RowNumber, 1); 
      //SpreadsheetFormatCell(ThisSheet, {bold="true",color="green"}, RowNumber, 1); 

}
RowNumber ++;   
}

</cfscript>
<cfspreadsheet action="update" filename="#MYFile#" name="ThisSheet"  
    sheet="#sheetNumber#" sheetname="#letter#" >

</cfloop>

Wyniki są następujące: Arkusz jest zgodny z oczekiwaniami, pogrubiona niebieska czcionka w komórce a1.

W arkuszu a komórki a1 i a3 mają literę pogrubioną niebieską czcionką. Spodziewałem się odważnej zieleni. Komórki a2 i a4 mają literę b, niesformatowaną. Spodziewałem się śmiały i czerwony.

Czy robię coś głupiego, czy coś jest nie tak. Korzystam z ColdFusion 9.01 i Excel 2010.