質問編集履歴
1
情報追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
そこで、出力ボタンを押下した際にデータグリッドビューに表示しているデータをExcelに入力できるようにしたいです。
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
|
|
8
8
|
|
|
9
9
|
```
|
|
10
10
|
|
|
@@ -96,4 +96,28 @@
|
|
|
96
96
|
|
|
97
97
|
一応今はこれでExcelにベタ書きで文字を入力することはできています。
|
|
98
98
|
|
|
99
|
+
|
|
100
|
+
|
|
101
|
+
```
|
|
102
|
+
|
|
103
|
+
For i As Integer = 0 To DataGridView1.Rows.Count - 1
|
|
104
|
+
|
|
105
|
+
|
|
106
|
+
|
|
107
|
+
sheet.Range(1, i).Value = DataGridView1.Rows(i).Cells(1).Value
|
|
108
|
+
|
|
109
|
+
sheet.Range(2, i).Value = DataGridView1.Rows(i).Cells(4).Value
|
|
110
|
+
|
|
111
|
+
sheet.Range(3, i).Value = DataGridView1.Rows(i).Cells(5).Value
|
|
112
|
+
|
|
113
|
+
sheet.Range(4, i).Value = DataGridView1.Rows(i).Cells(6).Value
|
|
114
|
+
|
|
115
|
+
sheet.Range(5, i).Value = DataGridView1.Rows(i).Cells(7).Value
|
|
116
|
+
|
|
99
|
-
|
|
117
|
+
Next
|
|
118
|
+
|
|
119
|
+
```
|
|
120
|
+
|
|
121
|
+
Excelの方に一行文だけ入力できました。
|
|
122
|
+
|
|
123
|
+
後はExcelの方でA2,A3,A4,A5...と各セルを下にずらしていきたいのですがそのやり方がわかりません。
|