teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問作っておいたExcelをvisual studioで読み込んでtextBoxやlabelにセルの内容を表示したいのですがどうすれば良いのかわかりません。

編集履歴

質問編集履歴

4

syuusei

2017/08/06 03:04

投稿

lyra
lyra

スコア8

title CHANGED
File without changes
body CHANGED
@@ -1,76 +1,113 @@
1
1
  ###前提・実現したいこと
2
2
  ここに質問したいことを詳細に書いてください
3
- visual studioの初心者です。あらかじめ作っておいたExcelをvisual studioで読み込んでtextBoxやlabel(WindowsフォームのC#)にセルの内容を表示したいのですがどうすれば良いのかわかりません。ソースコードを教えてください。
3
+ visual studioの初心者です。あらかじめ作っておいたExcelをvisual studioで読み込んでtextBoxやlabel(Windows visual basic)にセルの内容を表示したいのですがどうすれば良いのかわかりません。ソースコードを教えてください。
4
4
 
5
5
 
6
6
  ###発生している問題・エラーメッセージ
7
-
7
+ System.Data' は名前空間であり、式としては使用することはできません。
8
+ 'C1Excel' と class 'C1Excel' が namespace 'WindowsApp2.C1' で競合しています。
9
+ BC30367 クラス 'XLSheet' には既定のプロパティがないため、インデックス処理を実行できません。
8
10
  ```
9
11
  エラーメッセージ
10
12
  ```
11
13
 
12
14
  ###該当のソースコード
13
- using System;
15
+ Imports C1Excel
14
- using System.Collections.Generic;
15
- using System.ComponentModel;
16
- using System.Data;
17
- using System.Drawing;
18
- using System.Linq;
19
- using System.Text;
20
- using System.Windows.Forms;
21
- using Microsoft.Office.Interop.Excel;
22
16
 
23
- namespace ExcelHandle
24
- {
25
- public partial class Form1 : Form
26
- {
27
- public Form1()
17
+ Public Class Form1
28
- {
29
- InitializeComponent();
30
- }
31
18
 
19
+ Private wb As New C1XLBook()
32
- private void label1_Click(object sender, EventArgs e)
20
+ Private i As Integer = 0
33
- {
34
21
 
22
+ Private Sub Label1_Click(sender As Object, e As EventArgs) Handles tv1.Click
23
+ Dim sheet1 As XLSheet = wb.Sheets("Sheet1")
35
- }
24
+ Dim data As String
36
25
 
26
+ Me.ListBox1.Items.Clear()
37
- private void label2_Click(object sender, EventArgs e)
27
+ wb.Load("C:\Users\naoya\Book2.xlsx")
38
- {
39
28
 
29
+ i = 1
40
- }
30
+ Do
31
+ i += 1
32
+ data = sheet1(i, 0).Value
33
+ If data <> "" Then
34
+ Me.ListBox1.Items.Add(data)
35
+ End If
36
+ Loop While data <> ""
41
37
 
42
- private void label3_Click(object sender, EventArgs e)
38
+ End Sub
43
- {
44
39
 
40
+ Private Function ListBox1() As Object
41
+ Throw New NotImplementedException()
45
- }
42
+ End Function
46
43
 
47
- private void label4_Click(object sender, EventArgs e)
44
+ Private Sub Label2_Click(sender As Object, e As EventArgs) Handles tv2.Click
48
- {
49
45
 
50
- }
51
46
 
47
+ Me.ListBox1.Items.Clear()
52
- private void label5_Click(object sender, EventArgs e)
48
+ wb.Load("C:\Users\naoya\東海道・山陽新幹線.xlsx")
53
- {
54
49
 
50
+ i = 1
55
- }
51
+ Do
52
+ i += 1
53
+ Data = sheet1(i, 0).Value
54
+ If Data <> "" Then
55
+ Me.ListBox1.Items.Add(Data)
56
+ End If
57
+ Loop While Data <> ""
56
58
 
57
- private void textBox1_TextChanged(object sender, EventArgs e)
59
+ End Sub
58
- {
59
60
 
61
+ Private Function sheet1(i As Integer, v As Integer) As Object
62
+ Throw New NotImplementedException()
60
- }
63
+ End Function
61
64
 
62
- private void textBox2_TextChanged(object sender, EventArgs e)
65
+ Private Sub Label3_Click(sender As Object, e As EventArgs) Handles tv3.Click
63
- {
64
66
 
65
- }
67
+ End Sub
66
68
 
67
- private void button1_Click(object sender, EventArgs e)
69
+ Private Sub Label4_Click(sender As Object, e As EventArgs) Handles tv4.Click
68
- {
69
70
 
71
+ Dim sheet1 As XLSheet = wb.Sheets("Sheet1")
70
- }
72
+ Dim data As String
71
- }
72
- }
73
73
 
74
+ Me.ListBox1.Items.Clear()
75
+ wb.Load("C:\Users\naoya\Book2.xlsx")
76
+
77
+ i = 1
78
+ Do
79
+ i += 1
80
+ data = sheet1(i, 0).Value
81
+ If data <> "" Then
82
+ Me.ListBox1.Items.Add(data)
83
+ End If
84
+ Loop While data <> ""
85
+
86
+ End Sub
87
+
88
+ Private Sub Label5_Click(sender As Object, e As EventArgs) Handles tv5.Click
89
+
90
+ End Sub
91
+
92
+ Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
93
+
94
+
95
+
96
+ End Sub
97
+
98
+ Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
99
+
100
+ wb.Load("j:\data\winelist.xls")
101
+
102
+ End Sub
103
+
104
+ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
105
+
106
+ End Sub
107
+ End Class
108
+
109
+ Friend Class XLSheet
110
+ End Class
74
111
  ###試したこと
75
112
  課題に対してアプローチしたことを記載してください
76
113
 

3

ソースの追加

2017/08/06 03:04

投稿

lyra
lyra

スコア8

title CHANGED
@@ -1,1 +1,1 @@
1
- あらかじめ作っておいたExcelをvisual studioで読み込んでtextBoxやlabel(Windowsフォーム)にセルの内容を表示したいのですがどうすれば良いのかわかりません。
1
+ 作っておいたExcelをvisual studioで読み込んでtextBoxやlabelにセルの内容を表示したいのですがどうすれば良いのかわかりません。
body CHANGED
@@ -1,7 +1,7 @@
1
1
  ###前提・実現したいこと
2
2
  ここに質問したいことを詳細に書いてください
3
- (例)PHP(CakePHP)で●●なシステムを作っています。
3
+ visual studioの初心者です。あらかじめ作っておいたExcelをvisual studioで読み込んでtextBoxやlabel(WindowsフォームのC#)にセルの内容を表示したいのですがどうすれば良いのかわかりません。ソースコードを教えてください。
4
- ■■な機能を実装中に以下のエラーメッセージが発生しました。
4
+
5
5
 
6
6
  ###発生している問題・エラーメッセージ
7
7
 
@@ -10,10 +10,67 @@
10
10
  ```
11
11
 
12
12
  ###該当のソースコード
13
- ```ここに言語を入力
13
+ using System;
14
+ using System.Collections.Generic;
15
+ using System.ComponentModel;
16
+ using System.Data;
17
+ using System.Drawing;
18
+ using System.Linq;
19
+ using System.Text;
14
- ここにご自身が実行したソースコードを書いてください
20
+ using System.Windows.Forms;
15
- ```
21
+ using Microsoft.Office.Interop.Excel;
16
22
 
23
+ namespace ExcelHandle
24
+ {
25
+ public partial class Form1 : Form
26
+ {
27
+ public Form1()
28
+ {
29
+ InitializeComponent();
30
+ }
31
+
32
+ private void label1_Click(object sender, EventArgs e)
33
+ {
34
+
35
+ }
36
+
37
+ private void label2_Click(object sender, EventArgs e)
38
+ {
39
+
40
+ }
41
+
42
+ private void label3_Click(object sender, EventArgs e)
43
+ {
44
+
45
+ }
46
+
47
+ private void label4_Click(object sender, EventArgs e)
48
+ {
49
+
50
+ }
51
+
52
+ private void label5_Click(object sender, EventArgs e)
53
+ {
54
+
55
+ }
56
+
57
+ private void textBox1_TextChanged(object sender, EventArgs e)
58
+ {
59
+
60
+ }
61
+
62
+ private void textBox2_TextChanged(object sender, EventArgs e)
63
+ {
64
+
65
+ }
66
+
67
+ private void button1_Click(object sender, EventArgs e)
68
+ {
69
+
70
+ }
71
+ }
72
+ }
73
+
17
74
  ###試したこと
18
75
  課題に対してアプローチしたことを記載してください
19
76
 

2

変更

2017/08/03 11:27

投稿

lyra
lyra

スコア8

title CHANGED
@@ -1,1 +1,1 @@
1
- visual studioであらかじめ作っておいたExcelを読み込んでtextBoxやlabelにセルの内容を表示したいのですがどうすれば良いのかわかりません。ソースコードを教えてください。
1
+ あらかじめ作っておいたExcelをvisual studioで読み込んでtextBoxやlabel(Windowsフォーム)にセルの内容を表示したいのですがどうすれば良いのかわかりません。
body CHANGED
File without changes

1

あ

2017/08/02 22:43

投稿

lyra
lyra

スコア8

title CHANGED
File without changes
body CHANGED
File without changes