質問編集履歴
4
コード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -27,4 +27,5 @@
|
|
|
27
27
|
End Sub
|
|
28
28
|
|
|
29
29
|
リッチテキストボックスやラベルの文字を開いたエクセルのセルに入力していきたいです．
|
|
30
|
+
上の追記したコードではエラーがでました．
|
|
30
31
|
アドバイスをよろしくお願いします．
|
3
コード
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -14,16 +14,17 @@
|
|
|
14
14
|
アドバイスよろしくお願いします．
|
|
15
15
|
|
|
16
16
|
追記：
|
|
17
|
+
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
18
|
+
Dim ExcApp As Object
|
|
19
|
+
Dim n As Integer
|
|
20
|
+
Dim myPath As String = "C:\Users\Ikumi Fukiishi\Desktop\Book1.xlsx"
|
|
21
|
+
ExcApp = CreateObject("Excel.Application")
|
|
17
|
-
|
|
22
|
+
ExcApp.workbooks.open(myPath)
|
|
23
|
+
ExcApp.visible = True
|
|
18
24
|
|
|
19
|
-
|
|
25
|
+
ExcApp.cells(n, 1).value = RichTextBox1.Text
|
|
26
|
+
ExcApp.cells(n, 2).value = Label1.Text
|
|
27
|
+
End Sub
|
|
20
28
|
|
|
21
|
-
Public Class Form1
|
|
22
|
-
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
23
|
-
Dim fileName As String = "C:\Users\Ikumi Fukiishi\Desktop\Book1.xlsx"
|
|
24
|
-
Dim xlApp As New Application()
|
|
25
|
-
xlApp.Visible = True
|
|
26
|
-
End Sub
|
|
27
|
-
End Class
|
|
28
|
-
|
|
29
|
-
リッチテキストボックスやラベルの文字を開いたエクセルのセルに入力していきたいです．
|
|
29
|
+
リッチテキストボックスやラベルの文字を開いたエクセルのセルに入力していきたいです．
|
|
30
|
+
アドバイスをよろしくお願いします．
|
2
解決
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,4 +11,19 @@
|
|
|
11
11
|
Set xlSheet = xlBook.Worksheets(1)
|
|
12
12
|
|
|
13
13
|
というコードでは実行できませんでした．
|
|
14
|
-
アドバイスよろしくお願いします．
|
|
14
|
+
アドバイスよろしくお願いします．
|
|
15
|
+
|
|
16
|
+
追記：
|
|
17
|
+
以下のコードでエクセルファイルを開くことができました．
|
|
18
|
+
|
|
19
|
+
Imports Microsoft.Office.Interop.Excel
|
|
20
|
+
|
|
21
|
+
Public Class Form1
|
|
22
|
+
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
23
|
+
Dim fileName As String = "C:\Users\Ikumi Fukiishi\Desktop\Book1.xlsx"
|
|
24
|
+
Dim xlApp As New Application()
|
|
25
|
+
xlApp.Visible = True
|
|
26
|
+
End Sub
|
|
27
|
+
End Class
|
|
28
|
+
|
|
29
|
+
リッチテキストボックスやラベルの文字を開いたエクセルのセルに入力していきたいです．
|
1
参照方法
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,2 +1,14 @@
|
|
|
1
|
-
VBでエクセルを
|
|
1
|
+
VB で新規にエクセルを開き，一定時間ごとに変更するリッチテキストボックスやラベルの文字をエクセルのセルに自動で入力させ，エクセルを名前をつけて保存するということをしたいです．
|
|
2
|
+
|
|
3
|
+
VBでエクセルを開く方法を調べると，プロジェクトの参照設定で Microsoft Excel.ObjectLibrary にチェックを入れなければならないようなのですが，見当たりません．
|
|
4
|
+
コードをかくだけではエクセルは開けないのでしょうか？
|
|
5
|
+
また，
|
|
6
|
+
Dim xlApp As Excel.Application
|
|
7
|
+
Dim xlBook As Excel.Workbook
|
|
8
|
+
Dim xlSheet As Excel.Worksheet
|
|
9
|
+
Set xlApp = CreateObject("Excel.Application")
|
|
10
|
+
Set xlBook = xlApp.Workbooks.Add
|
|
11
|
+
Set xlSheet = xlBook.Worksheets(1)
|
|
12
|
+
|
|
2
|
-
|
|
13
|
+
というコードでは実行できませんでした．
|
|
14
|
+
アドバイスよろしくお願いします．
|