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

質問編集履歴

1

フィールド名の表示

2017/04/21 02:40

投稿

cd987456
cd987456

スコア33

title CHANGED
File without changes
body CHANGED
@@ -30,4 +30,20 @@
30
30
  "SIIRE"、"SHUKKA" はLEFTを使って左から8桁を抽出するようにしたつもりなのですが、
31
31
  上手くできません。
32
32
 
33
- 修正コードを教えて頂きたいです。
33
+ 修正コードを教えて頂きたいです。
34
+
35
+
36
+ ★回答を頂き、SUBSTR(SIIRE,1,8),SUBSTR(SHUKKA,1,8) とすることで8桁で抽出することができました。
37
+ しかし、フィールド名を表示しなくなってしまいました。
38
+ フィールド名は下記コードで表示させています。エクセルへの出力シートは抽出結果です。
39
+
40
+ ```ここに言語を入力
41
+ wMX = adoRs.Fields.Count
42
+ For N = 1 To wMX
43
+ With Sheets("抽出結果")
44
+ .Cells(1, N) = adoRs.Fields(N - 1).NAME
45
+ End With
46
+ Next
47
+ ```
48
+ 文字数指定で抽出するとフィールド名が表示されなくなるのでしょうか?
49
+ 教えて頂きたいです。