【Excel】 テキスト型セルのAllowWrapの設定がExcel出力に反映されない
対象製品
SPREAD for ASP.NET 7.0J
状況
修正済み
詳細
テキスト型セルのAllowWrapの設定がExcel出力に反映されません。
【再現手順】
1.新規WebフォームにSPREAD、ボタンコントロールおよび2を配置する
2.Webフォームに下記の再現コードを貼り付け、Web フォームを起動する
3.ボタンコントロール1、2を押下する
--- AllowWrap設定がFalseにも関わらず、出力されたエクセルファイルのセル内容が折り返される
【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Page.IsPostBack Then Return
' テスト用文字列の作成
Dim test1 As New StringBuilder()
For i As Integer = 1 To 50
test1.Append(String.Format("{0:000}ABCDEあ", i))
Next
Dim test2 As New StringBuilder()
For i As Integer = 1 To 20
test2.Append(String.Format("{0:000}ABCDEい", i))
Next
' テキスト型セルの設定
Dim tCell1 As New FarPoint.Web.Spread.TextCellType()
tCell1.AllowWrap = False
tCell1.Multiline = False
tCell1.MaxLength = 500
FpSpread1.ActiveSheetView.Cells(0, 0, 0, 1).CellType = tCell1
FpSpread1.ActiveSheetView.SetValue(0, 0, test1.ToString())
FpSpread1.ActiveSheetView.SetValue(0, 1, test2.ToString())
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Excelファイルへの出力
FpSpread1.ActiveSheetView.Protect = False
FpSpread1.SaveExcelToResponse("test.xlsx", FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Excelファイルへの出力
FpSpread1.ActiveSheetView.Protect = False
FpSpread1.SaveExcelToResponse("test.xls", FarPoint.Excel.ExcelSaveFlags.NoFlagsSet)
End Sub
End Class
【再現手順】
1.新規WebフォームにSPREAD、ボタンコントロールおよび2を配置する
2.Webフォームに下記の再現コードを貼り付け、Web フォームを起動する
3.ボタンコントロール1、2を押下する
--- AllowWrap設定がFalseにも関わらず、出力されたエクセルファイルのセル内容が折り返される
【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Page.IsPostBack Then Return
' テスト用文字列の作成
Dim test1 As New StringBuilder()
For i As Integer = 1 To 50
test1.Append(String.Format("{0:000}ABCDEあ", i))
Next
Dim test2 As New StringBuilder()
For i As Integer = 1 To 20
test2.Append(String.Format("{0:000}ABCDEい", i))
Next
' テキスト型セルの設定
Dim tCell1 As New FarPoint.Web.Spread.TextCellType()
tCell1.AllowWrap = False
tCell1.Multiline = False
tCell1.MaxLength = 500
FpSpread1.ActiveSheetView.Cells(0, 0, 0, 1).CellType = tCell1
FpSpread1.ActiveSheetView.SetValue(0, 0, test1.ToString())
FpSpread1.ActiveSheetView.SetValue(0, 1, test2.ToString())
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Excelファイルへの出力
FpSpread1.ActiveSheetView.Protect = False
FpSpread1.SaveExcelToResponse("test.xlsx", FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Excelファイルへの出力
FpSpread1.ActiveSheetView.Protect = False
FpSpread1.SaveExcelToResponse("test.xls", FarPoint.Excel.ExcelSaveFlags.NoFlagsSet)
End Sub
End Class
回避方法
Service Pack 3(v7.0.4017.2010)で修正済み。