作成日: 2017/08/02 最終更新日: 2017/08/02
文書種別
制限事項
詳細
Excelファイルの列幅や行の高さが変更されていると、セルに値が設定されていなくても該当の行列がインポートされます。
【再現手順】
1.Excelを新規作成し、セルA1に「ABC」と入力します
2.B列の幅および2行目の高さを変更しExcelを保存します
3.新規WebフォームにSPREADとボタンコントロールを配置します
4.サンプルコードをコピーしアプリケーションを実行します
5.Button1をクリックしExcelをインポートします
-- 値が設定されていないB列および2行目までインポートされます
【サンプルコード】
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.OpenExcel(MapPath("Book1.xlsx"))
End Sub
【再現手順】
1.Excelを新規作成し、セルA1に「ABC」と入力します
2.B列の幅および2行目の高さを変更しExcelを保存します
3.新規WebフォームにSPREADとボタンコントロールを配置します
4.サンプルコードをコピーしアプリケーションを実行します
5.Button1をクリックしExcelをインポートします
-- 値が設定されていないB列および2行目までインポートされます
【サンプルコード】
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.OpenExcel(MapPath("Book1.xlsx"))
End Sub
回避方法
NonEmptyColumnCountプロパティを使用しデータを含む列数を明示的に設定します。
◆サンプルコード
------------------------------------
Webフォームクラス
------------------------------------
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.OpenExcel(MapPath("error.xlsx"), FarPoint.Excel.ExcelOpenFlags.DocumentCaching)
' NonEmptyColumnCountプロパティを参照しデータを含む列数を明示的に設定します
For Each sheet As FarPoint.Web.Spread.SheetView In FpSpread1.Sheets
Dim dataModel As FarPoint.Web.Spread.Model.INonEmptyCells = TryCast(sheet.DataModel, FarPoint.Web.Spread.Model.INonEmptyCells)
If dataModel IsNot Nothing Then
sheet.DataModel.ColumnCount = dataModel.NonEmptyColumnCount
End If
Next
End Sub
◆サンプルコード
------------------------------------
Webフォームクラス
------------------------------------
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.OpenExcel(MapPath("error.xlsx"), FarPoint.Excel.ExcelOpenFlags.DocumentCaching)
' NonEmptyColumnCountプロパティを参照しデータを含む列数を明示的に設定します
For Each sheet As FarPoint.Web.Spread.SheetView In FpSpread1.Sheets
Dim dataModel As FarPoint.Web.Spread.Model.INonEmptyCells = TryCast(sheet.DataModel, FarPoint.Web.Spread.Model.INonEmptyCells)
If dataModel IsNot Nothing Then
sheet.DataModel.ColumnCount = dataModel.NonEmptyColumnCount
End If
Next
End Sub
旧文書番号
40854