回答編集履歴

1

SaveAs して開きなおすと反映される

2025/04/17 11:10

投稿

KOZ6.0
KOZ6.0

スコア2721

test CHANGED
@@ -24,3 +24,45 @@
24
24
  ```
25
25
 
26
26
  ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-04-16/34e50746-b56b-4cf5-8f1e-2ad46a81d75d.png)
27
+
28
+ **追記(4/17)**
29
+ ---
30
+ たしかに ClosedXML で計算式に影響のあるセルを書き換えた場合、計算式に反映されないですね。
31
+ SaveAs して開きなおすと反映されるようです。
32
+
33
+ ```vb
34
+ Imports ClosedXML.Excel
35
+
36
+ Module Module1
37
+
38
+ Sub Main()
39
+ Const template As String = "d:\work\Book1.xlsx"
40
+ Const newFile As String = "d:\work\Book2.xlsx"
41
+
42
+ Using workbook As New XLWorkbook(template)
43
+ Dim worksheet = workbook.Worksheet(1)
44
+ worksheet.Cell("B5").Value = "B5"
45
+ worksheet.Cell("B6").Value = "B6"
46
+ worksheet.Cell("B7").Value = "B7"
47
+ Dim cell = worksheet.Cell("B1")
48
+ Console.WriteLine($"{cell.Value}")
49
+ workbook.SaveAs(newFile)
50
+ End Using
51
+
52
+ Using workbook As New XLWorkbook(newFile)
53
+ Dim worksheet = workbook.Worksheet(1)
54
+ Dim cell = worksheet.Cell("B1")
55
+ Console.WriteLine($"{cell.Value}")
56
+ End Using
57
+
58
+ Console.ReadKey()
59
+ End Sub
60
+
61
+ End Module
62
+
63
+ 結果
64
+ ORDER NO.
65
+ 3件
66
+ ORDER NO.
67
+ 6件
68
+ ```