質問編集履歴

1

「※最終的に実現」したい事を追記しました。

2021/12/06 09:59

投稿

club33gold
club33gold

スコア20

test CHANGED
File without changes
test CHANGED
@@ -60,9 +60,9 @@
60
60
 
61
61
 
62
62
 
63
- ' ---------------------------------------------------------------------------------
63
+ ' ---------------------------------------------------------------------------------
64
64
 
65
- ' ●案1
65
+ ' ●案1
66
66
 
67
67
  ' Dim bookPath As String
68
68
 
@@ -92,9 +92,7 @@
92
92
 
93
93
 
94
94
 
95
- ' ---------------------------------------------------------------------------------
95
+ ' ---------------------------------------------------------------------------------
96
-
97
-
98
96
 
99
97
  ' ●案2
100
98
 
@@ -113,6 +111,8 @@
113
111
  ' procId = Shell(sPath)
114
112
 
115
113
 
114
+
115
+ ' ---------------------------------------------------------------------------------
116
116
 
117
117
  ' ●案3
118
118
 
@@ -156,6 +156,24 @@
156
156
 
157
157
 
158
158
 
159
- Excel 2016 64Bitになります。
159
+  Excel 2016 64Bitになります。
160
160
 
161
- OpenProcessの宣言等はしていますので、デバッグは発生しません。
161
+  OpenProcessの宣言等はしていますので、デバッグは発生しません。
162
+
163
+
164
+
165
+ ### ※最終的に実現したい事
166
+
167
+  
168
+
169
+  最終的には、フォルダ内にある複数のテキストファイルをエクセルに一括インポートしたい。
170
+
171
+
172
+
173
+  ①BATファイルでをテキストファイルを一つのファイルにマージ
174
+
175
+ →BATファイル単体では起動可、この工程をVBAで起動したい
176
+
177
+   必要であれば、作成が終わるまでの待ち時間も加味したい
178
+
179
+  ②①をSendkeys等でコピペし、Excelに貼付