回答編集履歴

5

$workBook.Worksheetsに変更

2021/02/24 01:49

投稿

haihaikazuma
haihaikazuma

スコア181

test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
  セルに書き込みを行う必要があります。
12
12
 
13
- $Worksheet.Cell("B1").Value = "Hello world"
13
+ $workBook.Worksheets.Cell("B1").Value = "Hello world"
14
14
 
15
15
 
16
16
 
@@ -20,7 +20,7 @@
20
20
 
21
21
  以下にすることで、B2セルに「140017」と入れられるでしょう。
22
22
 
23
- $Worksheet.Cell("B2").FormulaA1 = "A2";
23
+ $workBook.Worksheets.Cell("B2").FormulaA1 = "A2";
24
24
 
25
25
 
26
26
 
@@ -28,7 +28,7 @@
28
28
 
29
29
  こんな感じでいけるんじゃないかと思っています。
30
30
 
31
- $Worksheet.Cell("B2").FormulaA1 = "RHB="&A2
31
+ $workBook.Worksheets.Cell("B2").FormulaA1 = "RHB="&A2
32
32
 
33
33
 
34
34
 
@@ -44,11 +44,11 @@
44
44
 
45
45
 
46
46
 
47
- $Worksheet.Cell("B2").FormulaA1 = "`"RHB`"=&A2"
47
+ $workBook.Worksheets.Cell("B2").FormulaA1 = "`"RHB`"=&A2"
48
48
 
49
- $Worksheet.Cell("B3").FormulaA1 = "`"RHB`"=&A3"
49
+ $workBook.Worksheets.Cell("B3").FormulaA1 = "`"RHB`"=&A3"
50
50
 
51
- $Worksheet.Cell("B4").FormulaA1 = "`"RHB`"=&A4"
51
+ $workBook.Worksheets.Cell("B4").FormulaA1 = "`"RHB`"=&A4"
52
52
 
53
53
 
54
54
 

4

コード修正

2021/02/24 01:49

投稿

haihaikazuma
haihaikazuma

スコア181

test CHANGED
@@ -59,3 +59,17 @@
59
59
  ```
60
60
 
61
61
  こんな感じになりそう…
62
+
63
+
64
+
65
+ ■追記
66
+
67
+ 「1 140017」なのですね。
68
+
69
+ ```PowerShell
70
+
71
+ "`"RHB`"&MID(A2,3,LEN(A2))"
72
+
73
+ ```
74
+
75
+ (MID関数が使えるのかしら…)

3

サンプルコード挿入

2021/02/24 01:45

投稿

haihaikazuma
haihaikazuma

スコア181

test CHANGED
@@ -36,12 +36,26 @@
36
36
 
37
37
  ```PowerShell
38
38
 
39
+ $workBook = new-object ClosedXML.Excel.XLWorkbook
40
+
41
+ #取得データをExcelに出力
42
+
43
+ [void]$workBook.Worksheets.Add($dtSet.Tables[0],"Sheet1")
44
+
45
+
46
+
39
47
  $Worksheet.Cell("B2").FormulaA1 = "`"RHB`"=&A2"
40
48
 
41
49
  $Worksheet.Cell("B3").FormulaA1 = "`"RHB`"=&A3"
42
50
 
43
51
  $Worksheet.Cell("B4").FormulaA1 = "`"RHB`"=&A4"
44
52
 
53
+
54
+
55
+ #Excelの保存
56
+
57
+ [void]$workBook.SaveAs($excelPath);
58
+
45
59
  ```
46
60
 
47
61
  こんな感じになりそう…

2

エスケープ修正

2021/02/24 01:34

投稿

haihaikazuma
haihaikazuma

スコア181

test CHANGED
@@ -34,6 +34,14 @@
34
34
 
35
35
  ※ "はエスケープが必要かもしれません。
36
36
 
37
+ ```PowerShell
38
+
37
- "`"RHB`"=&A2"
39
+ $Worksheet.Cell("B2").FormulaA1 = "`"RHB`"=&A2"
40
+
41
+ $Worksheet.Cell("B3").FormulaA1 = "`"RHB`"=&A3"
42
+
43
+ $Worksheet.Cell("B4").FormulaA1 = "`"RHB`"=&A4"
44
+
45
+ ```
38
46
 
39
47
  こんな感じになりそう…

1

エスケープ修正

2021/02/24 01:32

投稿

haihaikazuma
haihaikazuma

スコア181

test CHANGED
@@ -34,6 +34,6 @@
34
34
 
35
35
  ※ "はエスケープが必要かもしれません。
36
36
 
37
- @"\"RHB=\"&A2"
37
+ "`"RHB`"=&A2"
38
38
 
39
39
  こんな感じになりそう…