Excel 2003 XML формат - AutoFitWidth не работает

Question

У меня есть программа, которая выплевывает книгу Excel в формате Excel 2003 XML. Он отлично работает с одной проблемой, я не могу настроить ширину столбцов для автоматической установки.

Фрагмент того, что я произвожу:

  <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>

Это не устанавливает автозаполнение столбца. Я пытался не устанавливать ширину, я пробовал много вещей, и я застрял.

Спасибо.

Answer 1

Только даты и числа автоматически подгоняются :-( цитата: "... Мы не устанавливаем текстовые значения автоматически"

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

Answer 2

Возьмите длину строки перед переходом в XML и создайте ss: Width = "length".

Answer 3

Я знаю, что этот пост старый, но я обновляю его решением, которое я кодировал, если кто-то все еще использует openXml. Отлично работает с большими и маленькими файлами.

Алгоритм находится в vb, для создания массива Excel требуется массив списков массивов строк (может быть изменен в зависимости от потребностей).

Я использовал форму Windows для определения ширины отображаемого текста и ссылки для выбора только самых больших ячеек (для эффективности больших файлов)

Там:

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

Answer 4

Autofit не работает на ячейках со строками. Попробуйте заменить строку столбца в вашем примере следующим кодом:

    <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>

Объяснение: Сортировка выполняется по длине строки (сначала самая длинная строка), берется первая строка отсортированных строк, длина этой строки * 5.25, и у вас будет разумная автоподбор.

Линия сортировки:

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

объяснение: если вы просто сортируете по длине, как

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

, поскольку длины обрабатываются как строки, 2 следует после 10, что вам не нужно. Таким образом, вы должны добавить длины влево, чтобы отсортировать их правильно (потому что 002 предшествует 010). Однако, поскольку я не смог найти эту функцию заполнения, я решил ее, объединив длину длины с длиной. Строка с длиной 100 будет переведена в 3100 (первая цифра - это длина длины), вы увидите, что решение всегда будет отсортировано правильно. например: 2 будет «12», а 10 - «210», так что это будет правильно отсортировано по строкам. Только если длина длины> 9 вызовет проблемы, но строки длиной 100000000 не могут быть обработаны в Excel.

Объяснение

            <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>

Я хотел максимизировать длину строки до 200, но я не мог заставить работать функцию Min, как

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

Так что мне пришлось сделать это грязным путем.

Надеюсь, вы можете установить авто сейчас!