Formato XML de Excel 2003 - AutoFitWidth no funciona

Question

Tengo un programa que escupe un libro de Excel en formato XML de Excel 2003. Funciona bien con un problema, no puedo configurar el ancho de las columnas automáticamente.

Un fragmento de lo que produzco:

<Table > 
    <Column ss:AutoFitWidth="1" ss:Width="2"/> 
    <Row ss:AutoFitHeight="0" ss:Height="14.55"> 
    <Cell ss:StyleID="s62"><Data ss:Type="String">Database</Data></Cell> 

Esto no establece la columna de ajuste automático. Intenté no configurar el ancho, probé muchas cosas y estoy atascado.

Gracias.

Answer 1

Sólo los valores de fecha y el número se autofitted :-( cita: "... Hacemos valores textuales no AutoFit"

http://msdn.microsoft.com/en-us/library/aa140066.aspx#odc_xmlss_ss:column

Answer 2

Tomar su longitud de la cadena antes de pasar a XML y construir el ss: width = "longitud"

Answer 3

Ajuste automático no funciona en las células con cuerdas tratar de sustituir la línea de la columna en su ejemplo mediante el siguiente código:..

<xsl:for-each select="/*/*[1]/*"> 
     <Column> 
     <xsl:variable name="columnNum" select="position()"/> 
     <xsl:for-each select="/*/*/*[position()=$columnNum]"> 
      <xsl:sort select="concat(string-length(string-length(.)),string-length(.))" order="descending"/> 
      <xsl:if test="position()=1"> 
      <xsl:if test="string-length(.) &lt; 201"> 
       <xsl:attribute name="ss:Width"> 
       <xsl:value-of select="5.25 * (string-length(.)+2)"/> 
       </xsl:attribute> 
      </xsl:if> 
      <xsl:if test="string-length(.) &gt; 200"> 
       <xsl:attribute name="ss:Width"> 
       <xsl:value-of select="1000"/> 
       </xsl:attribute> 
      </xsl:if> 
      </xsl:if> 
      <xsl:if test = "local-name() = 'Sorteer'"> 
      <xsl:attribute name="ss:Width"> 
       <xsl:value-of select="0"/> 
      </xsl:attribute> 
      </xsl:if> 
     </xsl:for-each> 
     </Column> 
    </xsl:for-each> 

Explicación: Se ordena en longitud de cadena (la cadena más larga primero), toma la primera línea de cadenas ordenadas, toma la longitud de esa cadena * 5.25 y obtendrás una configuración automática razonable.

línea de clasificación:

 <xsl:sort select="concat(string-length(string-length(.)),string-length(.))" order="descending"/> 

explicación: si sólo una especie de longitud, como

 <xsl:sort select="string-length(.)" order="descending"/> 

porque las longitudes se manejan como cadenas, 2 se produce después de 10, que no desea . Por lo tanto, debe dejar el margen izquierdo para que quede bien ordenado (porque 002 viene antes del 010). Sin embargo, como no pude encontrar esa función de relleno, la resolví concatenando la longitud de la longitud con la longitud. Una cadena con una longitud de 100 se traducirá a 3100 (el primer dígito es la longitud de la longitud), verá que la solución siempre será ordenada por cadenas. por ejemplo: 2 será "12" y 10 será "210", por lo que se ordenará correctamente. Sólo cuando la longitud de la longitud> 9 causará problemas, pero Excel no puede manejar cadenas de longitud de 100000000.

Explantion de

  <xsl:if test="string-length(.) &lt; 201"> 
       <xsl:attribute name="ss:Width"> 
       <xsl:value-of select="5.25 * (string-length(.)+2)"/> 
       </xsl:attribute> 
      </xsl:if> 
      <xsl:if test="string-length(.) &gt; 200"> 
       <xsl:attribute name="ss:Width"> 
       <xsl:value-of select="1000"/> 
       </xsl:attribute> 
      </xsl:if> 

quería maximizar la longitud de la cuerda hasta alrededor de 200, pero no pude conseguir la función Min para trabajar, como

   <xsl:value-of select="5.25 * Min((string-length(.)+2),200)"/> 

Así que tuve que hacerlo de la camino sucio.

¡Espero que pueda autoajustar ahora!

Answer 4

Sé que esta publicación es antigua, pero la estoy actualizando con una solución que he codificado si alguien todavía usa openXml. Funciona bien con archivos grandes y pequeños.

El algoritmo está en vb, toma una lista de arrays de una lista de cadenas (se puede cambiar según las necesidades) para materializar una matriz de Excel.

que utiliza una forma de Windows para encontrar el ancho de texto representado, y enlaces para seleccionar sólo las células más grandes (por gran eficiencia de archivos)

No:

Dim colsTmp as ArrayList '(of Arraylist(of String)) 
Dim cols as Arraylist '(of Integer) Max size of cols 
'Whe populate the Arraylist 
Dim width As Integer 
'For each column 
For i As Integer = 0 To colsTmp.Count - 1 
    'Whe sort cells by the length of their String 
    colsTmp(i) = (From f In CType(colsTmp(i), String()) Order By f.Length).ToArray 
    Dim deb As Integer = 0 
    'If they are more than a 100 cells whe only take the biggest 10% 
    If colsTmp(i).length > 100 Then 
     deb = colsTmp(i).length * 0.9 
    End If 
    'For each cell taken 
    For j As Integer = deb To colsTmp(i).length - 1 
     'Whe messure the lenght with the good font and size 
     width = Windows.Forms.TextRenderer.MeasureText(colsTmp(i)(j), font).Width 
     'Whe convert it to "excel lenght" 
     width = (width/1.42) + 10 
     'Whe update the max Width 
     If width > cols(i) Then cols(i) = width 
    Next 
Next