セルの書式設定を行う方法について
添付した、「test.xls」に対して、
指定したセルに、文字列の書式を設定するために、
以下のテストコードを実行しているのですが、反映されません。
ただし、一度、EXCELで test.xls を開いて上書き保存した後、
再度コードを実行すると反映されています。
EXCELは使用せずに解決したいのですが、
原因、回避手段等あれば、ご教示願います。
(詳細は、「事象.xlsx」にまとめました)
テストコード:
Dim lc_Excel_Pass As String = My.Application.Info.DirectoryPath & “\test.xls”
Dim lc_Workbook As New Aspose.Cells.Workbook(lc_Excel_Pass)
Dim lc_Range As Aspose.Cells.Range = lc_Workbook.Worksheets(0).Cells.CreateRange(1, 1, 1, 1)
Dim lc_Style As Aspose.Cells.Style = lc_Range.Item(0, 0).GetStyle
lc_Style.CultureCustom = “@” '書式を文字列に変更
Dim lc_Flag As New Aspose.Cells.StyleFlag
lc_Flag.NumberFormat = True
lc_Range.ApplyStyle(lc_Style, lc_Flag)
lc_Workbook.Save(lc_Excel_Pass)
確認環境:
Aspose.Cells for .NET 22.1
VB.NET 2013(Frame work 4.5.1
Excel 2019 Pro、Windows 10(21H2)
test.zip (179.9 KB)