質問編集履歴
3
ダブルクォーテーションを抜いた場合のコードとその結果出力されるテキストファイルの内容追記しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -216,7 +216,7 @@
|
|
|
216
216
|
|
|
217
217
|
上記コードの場合だと、テキストファイル内の文字列は下記のようになります。
|
|
218
218
|
|
|
219
|
-
open
|
|
219
|
+
open C:\a\test - コピー (2).dwg
|
|
220
220
|
|
|
221
221
|
_-LAYER
|
|
222
222
|
|
2
ダブルクォーテーションを抜いた場合のコードとその結果出力されるテキストファイルの内容追記しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -142,6 +142,96 @@
|
|
|
142
142
|
|
|
143
143
|
|
|
144
144
|
|
|
145
|
+
```ここに言語を入力
|
|
146
|
+
|
|
147
|
+
Public Sub CommandButton1_Click()
|
|
148
|
+
|
|
149
|
+
|
|
150
|
+
|
|
151
|
+
CommandButton1.Enabled = True
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
Dim fld As FileDialog
|
|
156
|
+
|
|
157
|
+
Dim fol_path As String ' フォルダーのフルパス
|
|
158
|
+
|
|
159
|
+
Dim f_name As String ' ファイル名
|
|
160
|
+
|
|
161
|
+
Dim i As Long
|
|
162
|
+
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
Set fld = Application.FileDialog(msoFileDialogFolderPicker)
|
|
166
|
+
|
|
167
|
+
If fld.Show = 0 Then Exit Sub 'キャンセル時
|
|
168
|
+
|
|
169
|
+
fol_path = fld.SelectedItems(1) 'フォルダのフルパスを変数に格納
|
|
170
|
+
|
|
171
|
+
f_name = Dir(fol_path & "\" & "*.dwg") '指定されたフォルダの一つ目のファイル名を取得
|
|
172
|
+
|
|
173
|
+
If f_name = "" Then MsgBox "ファイルが存在しません。": Exit Sub
|
|
174
|
+
|
|
175
|
+
|
|
176
|
+
|
|
177
|
+
ChDir fol_path & "\" 'カレントフォルダの変更
|
|
178
|
+
|
|
179
|
+
i = 1
|
|
180
|
+
|
|
181
|
+
Do Until f_name = ""
|
|
182
|
+
|
|
183
|
+
Worksheets("Sheet1").Cells(i, "A").Value = fol_path & "\" & f_name
|
|
184
|
+
|
|
185
|
+
i = i + 1
|
|
186
|
+
|
|
187
|
+
f_name = Dir '次のファイル名を取得
|
|
188
|
+
|
|
189
|
+
Loop
|
|
190
|
+
|
|
191
|
+
CommandButton1.Enabled = True
|
|
192
|
+
|
|
193
|
+
Module1.LTscr
|
|
194
|
+
|
|
195
|
+
|
|
196
|
+
|
|
197
|
+
Dim NAME As String ' Sheet1 のセル「B2」の値を取得
|
|
198
|
+
|
|
199
|
+
|
|
200
|
+
|
|
201
|
+
NAME = Worksheets("操作画面").Range("B2").Value
|
|
202
|
+
|
|
203
|
+
ThisWorkbook.SaveAs fol_path & "\" & NAME & ".scr", FileFormat:=xlText, CreateBackup:=False
|
|
204
|
+
|
|
205
|
+
'ブックを閉じる
|
|
206
|
+
|
|
207
|
+
Application.DisplayAlerts = False 'メッセージを非表示に設定
|
|
208
|
+
|
|
209
|
+
ThisWorkbook.Close
|
|
210
|
+
|
|
211
|
+
Application.DisplayAlerts = True 'メッセージを非表示に設定
|
|
212
|
+
|
|
213
|
+
End Sub
|
|
214
|
+
|
|
215
|
+
```
|
|
216
|
+
|
|
217
|
+
上記コードの場合だと、テキストファイル内の文字列は下記のようになります。
|
|
218
|
+
|
|
219
|
+
open "C:\a\test - コピー (2).dwg"
|
|
220
|
+
|
|
221
|
+
_-LAYER
|
|
222
|
+
|
|
223
|
+
P
|
|
224
|
+
|
|
225
|
+
N
|
|
226
|
+
|
|
227
|
+
*KUMO*
|
|
228
|
+
|
|
229
|
+
QSAVE
|
|
230
|
+
|
|
231
|
+
close
|
|
232
|
+
|
|
233
|
+
|
|
234
|
+
|
|
145
235
|
### 補足情報（FW/ツールのバージョンなど）
|
|
146
236
|
|
|
147
237
|
|
1
コード挿入にてコードの記載を修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -55,6 +55,8 @@
|
|
|
55
55
|
|
|
56
56
|
|
|
57
57
|
### 該当のソースコード
|
|
58
|
+
|
|
59
|
+
```ここに言語を入力
|
|
58
60
|
|
|
59
61
|
Public Sub CommandButton1_Click()
|
|
60
62
|
|
|
@@ -124,6 +126,8 @@
|
|
|
124
126
|
|
|
125
127
|
End Sub
|
|
126
128
|
|
|
129
|
+
```
|
|
130
|
+
|
|
127
131
|
|
|
128
132
|
|
|
129
133
|
|