teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

入力と出力のイメージを追加しました

2018/08/07 02:09

投稿

himaw
himaw

スコア6

title CHANGED
File without changes
body CHANGED
@@ -9,6 +9,14 @@
9
9
 
10
10
  ファイル保存のコードを追記しました。
11
11
 
12
+ 追記
13
+ ![入力1(sheet1)です](d98820e73c7554528569f7737df019e1.png) ![入力2(sheet2)です](f44b4a71e15e7530f1f1bc0e356ceb36.png)
14
+
15
+ ![出力したいものです](7d938772a025a7ab131051777b63c66d.png) ![現状出力されているものです](cab45e2a762fdb7fd742b3368e8ab4bf.png)
16
+
17
+ sheet1とsheet2でA列(品名)が一致したらsheet2のC列とD列をsheet1のB列とC列に書込みます。
18
+
19
+
12
20
  ### 発生している問題・エラーメッセージ
13
21
 
14
22
  ```

1

ファイル保存のコード

2018/08/07 02:09

投稿

himaw
himaw

スコア6

title CHANGED
File without changes
body CHANGED
@@ -4,6 +4,11 @@
4
4
  データは900行くらいまであるので、最後まで入力されて正常終了になるはずなのですが、必ず同じ行まで入力された状態で、終了してしまいます。
5
5
  環境は、VB.NET(Visual Studio v15.7.3)です。
6
6
 
7
+ 追記
8
+ 書込みは、sheet2のセルからsheet1のセルへ書込みをしています(書込みとは言わない?(貼り付け?))
9
+
10
+ ファイル保存のコードを追記しました。
11
+
7
12
  ### 発生している問題・エラーメッセージ
8
13
 
9
14
  ```
@@ -26,6 +31,10 @@
26
31
  Next
27
32
  End If
28
33
  Next
34
+ 'シート名を変更して保存
35
+ sheet1.Name = "sheet_test"
36
+ 対象ファイル.SaveAs("C:\Users\xxxxxxx\TestBook.xlsx")
37
+
29
38
  ```
30
39
 
31
40
  ### 試したこと