回答編集履歴
10
こちらかがいいかも
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
データ収集内容はサンプルですので、ファイル名、氏名、最終学歴、志望理由のみとします。
|
|
18
18
|
|
|
19
|
-
データ取り込みのイメージは下記となりますが、タイトル行
|
|
19
|
+
データ取り込みのイメージは下記となりますが、タイトル行A1〜D1に入力しておいてください。
|
|
20
20
|
|
|
21
21
|
この下に個々のデータを取り込んで転記します。
|
|
22
22
|
|
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
|
|
27
27
|
転記したら、いったん保存して収集用エクセルを閉じます。
|
|
28
28
|
|
|
29
|
-
|
|
29
|
+
|
|
30
30
|
|
|
31
31
|
|ファイル名|氏名|最終学歴|志望理由|
|
|
32
32
|
|
9
こちらかがいいかも
test
CHANGED
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
|
|
27
27
|
転記したら、いったん保存して収集用エクセルを閉じます。
|
|
28
28
|
|
|
29
|
-
|
|
29
|
+
A1〜D1
|
|
30
30
|
|
|
31
31
|
|ファイル名|氏名|最終学歴|志望理由|
|
|
32
32
|
|
8
こちらかがいいかも
test
CHANGED
|
@@ -56,7 +56,7 @@
|
|
|
56
56
|
|
|
57
57
|
準備ができたら、個人ファイルと閉じた状態で、データ収集用エクセルのマクロを実行します。
|
|
58
58
|
|
|
59
|
-
この際、データ収集用エクセルファイ
|
|
59
|
+
この際、データ収集用エクセルファイルと、各個々のエクセルファイルを同一フォルダに入れてください。
|
|
60
60
|
|
|
61
61
|
個人用ファイルを、データ収集用ファイルと別ファイルとしたい場合は
|
|
62
62
|
|
7
こちらかがいいかも
test
CHANGED
|
@@ -164,6 +164,8 @@
|
|
|
164
164
|
|
|
165
165
|
Application.ScreenUpdating = True
|
|
166
166
|
|
|
167
|
+
msgbox "データを収集しました！"
|
|
168
|
+
|
|
167
169
|
End Sub
|
|
168
170
|
|
|
169
171
|
```
|
6
こちらかがいいかも
test
CHANGED
|
@@ -102,6 +102,10 @@
|
|
|
102
102
|
|
|
103
103
|
|
|
104
104
|
|
|
105
|
+
Application.ScreenUpdating = False
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
105
109
|
FolderPath = ThisWorkbook.Path & "\" 'パス指定の場合は・・"C:\Sample\"
|
|
106
110
|
|
|
107
111
|
|
|
@@ -158,7 +162,7 @@
|
|
|
158
162
|
|
|
159
163
|
Set wb = Nothing
|
|
160
164
|
|
|
161
|
-
|
|
165
|
+
Application.ScreenUpdating = True
|
|
162
166
|
|
|
163
167
|
End Sub
|
|
164
168
|
|
5
こちらかがいいかも
test
CHANGED
|
@@ -78,7 +78,7 @@
|
|
|
78
78
|
|
|
79
79
|
これをデータ収集するサンプルを提示します。
|
|
80
80
|
|
|
81
|
-
今回は、sqlserverは無視します。
|
|
81
|
+
今回は、sqlserverは無視します（データ収集後に、提示されているサンプルを実行するとよろしいかと思います）。
|
|
82
82
|
|
|
83
83
|
|
|
84
84
|
|
4
こちらかがいいかも
test
CHANGED
|
@@ -1,8 +1,16 @@
|
|
|
1
|
-
|
|
1
|
+
データ収集（例）です。よく使うマクロですのでアレンジしていただければと思います。
|
|
2
|
+
|
|
3
|
+
一つのシートに個々の履歴書のデータを収集するというサンプルです。
|
|
2
4
|
|
|
3
5
|
|
|
4
6
|
|
|
7
|
+
今回は、sqlserverへのデータインサートの部分にはふれませんのでのでお願いします。
|
|
8
|
+
|
|
9
|
+
（ODBC接続の部分がmysqlのままですので修正してくださいね）
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
5
|
-
|
|
13
|
+
では、データ収集用のエクセル（VBA）ファイルを作成します。
|
|
6
14
|
|
|
7
15
|
エクセルファイル名：main.xlsm シート名：alldataとします。
|
|
8
16
|
|
3
こちらかがいいかも
test
CHANGED
|
@@ -50,7 +50,7 @@
|
|
|
50
50
|
|
|
51
51
|
この際、データ収集用エクセルファイトと、各個々のエクセルファイルを同一フォルダに入れてください。
|
|
52
52
|
|
|
53
|
-
別ファイルとしたい場合は
|
|
53
|
+
個人用ファイルを、データ収集用ファイルと別ファイルとしたい場合は
|
|
54
54
|
|
|
55
55
|
FolderPath = ThisWorkbook.Path & "\"の部分をフルパスに修正をお願いします。
|
|
56
56
|
|
2
こちらかがいいかも
test
CHANGED
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
|
|
47
47
|
（わかりずらいと思いますが、A列にタイトル行、B列をデータとしています）
|
|
48
48
|
|
|
49
|
-
準備ができたら、データ収集マクロを実行します。
|
|
49
|
+
準備ができたら、個人ファイルと閉じた状態で、データ収集用エクセルのマクロを実行します。
|
|
50
50
|
|
|
51
51
|
この際、データ収集用エクセルファイトと、各個々のエクセルファイルを同一フォルダに入れてください。
|
|
52
52
|
|
1
こちらかがいいかも
test
CHANGED
|
@@ -40,7 +40,7 @@
|
|
|
40
40
|
|
|
41
41
|
次に、履歴書のエクセルファイル（ファイル名の例として履歴書1.xlsxとしています）を準備します。
|
|
42
42
|
|
|
43
|
-
ファイル名は個人名でもなんでもかまいません。
|
|
43
|
+
ファイル名は個人名でもなんでもかまいません（拡張子はxlsxです）。
|
|
44
44
|
|
|
45
45
|
また、履歴書をいうシートを準備し、シートには氏名、学歴、志望理由を入力しておいてください。
|
|
46
46
|
|