質問編集履歴
3
ダブルクォーテーションを抜いた場合のコードとその結果出力されるテキストファイルの内容追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -107,7 +107,7 @@
|
|
|
107
107
|
End Sub
|
|
108
108
|
```
|
|
109
109
|
上記コードの場合だと、テキストファイル内の文字列は下記のようになります。
|
|
110
|
-
open
|
|
110
|
+
open C:\a\test - コピー (2).dwg
|
|
111
111
|
_-LAYER
|
|
112
112
|
P
|
|
113
113
|
N
|
2
ダブルクォーテーションを抜いた場合のコードとその結果出力されるテキストファイルの内容追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -70,6 +70,51 @@
|
|
|
70
70
|
ダブルクォーテーションを付けないパターンでコードを作成した場合はうまくいきました。
|
|
71
71
|
しかし、テキストファイル作成時に参照するフォルダパスに半角などがあると次工程の作業に影響がある為、フォルダパスは文字列として認識させています。
|
|
72
72
|
|
|
73
|
+
```ここに言語を入力
|
|
74
|
+
Public Sub CommandButton1_Click()
|
|
75
|
+
|
|
76
|
+
CommandButton1.Enabled = True
|
|
77
|
+
|
|
78
|
+
Dim fld As FileDialog
|
|
79
|
+
Dim fol_path As String ' フォルダーのフルパス
|
|
80
|
+
Dim f_name As String ' ファイル名
|
|
81
|
+
Dim i As Long
|
|
82
|
+
|
|
83
|
+
Set fld = Application.FileDialog(msoFileDialogFolderPicker)
|
|
84
|
+
If fld.Show = 0 Then Exit Sub 'キャンセル時
|
|
85
|
+
fol_path = fld.SelectedItems(1) 'フォルダのフルパスを変数に格納
|
|
86
|
+
f_name = Dir(fol_path & "\" & "*.dwg") '指定されたフォルダの一つ目のファイル名を取得
|
|
87
|
+
If f_name = "" Then MsgBox "ファイルが存在しません。": Exit Sub
|
|
88
|
+
|
|
89
|
+
ChDir fol_path & "\" 'カレントフォルダの変更
|
|
90
|
+
i = 1
|
|
91
|
+
Do Until f_name = ""
|
|
92
|
+
Worksheets("Sheet1").Cells(i, "A").Value = fol_path & "\" & f_name
|
|
93
|
+
i = i + 1
|
|
94
|
+
f_name = Dir '次のファイル名を取得
|
|
95
|
+
Loop
|
|
96
|
+
CommandButton1.Enabled = True
|
|
97
|
+
Module1.LTscr
|
|
98
|
+
|
|
99
|
+
Dim NAME As String ' Sheet1 のセル「B2」の値を取得
|
|
100
|
+
|
|
101
|
+
NAME = Worksheets("操作画面").Range("B2").Value
|
|
102
|
+
ThisWorkbook.SaveAs fol_path & "\" & NAME & ".scr", FileFormat:=xlText, CreateBackup:=False
|
|
103
|
+
'ブックを閉じる
|
|
104
|
+
Application.DisplayAlerts = False 'メッセージを非表示に設定
|
|
105
|
+
ThisWorkbook.Close
|
|
106
|
+
Application.DisplayAlerts = True 'メッセージを非表示に設定
|
|
107
|
+
End Sub
|
|
108
|
+
```
|
|
109
|
+
上記コードの場合だと、テキストファイル内の文字列は下記のようになります。
|
|
110
|
+
open "C:\a\test - コピー (2).dwg"
|
|
111
|
+
_-LAYER
|
|
112
|
+
P
|
|
113
|
+
N
|
|
114
|
+
*KUMO*
|
|
115
|
+
QSAVE
|
|
116
|
+
close
|
|
117
|
+
|
|
73
118
|
### 補足情報（FW/ツールのバージョンなど）
|
|
74
119
|
|
|
75
120
|
ここにより詳細な情報を記載してください。
|
1
コード挿入にてコードの記載を修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -27,6 +27,7 @@
|
|
|
27
27
|
|
|
28
28
|
|
|
29
29
|
### 該当のソースコード
|
|
30
|
+
```ここに言語を入力
|
|
30
31
|
Public Sub CommandButton1_Click()
|
|
31
32
|
|
|
32
33
|
CommandButton1.Enabled = True
|
|
@@ -61,6 +62,7 @@
|
|
|
61
62
|
ThisWorkbook.Close
|
|
62
63
|
Application.DisplayAlerts = True 'メッセージを非表示に設定
|
|
63
64
|
End Sub
|
|
65
|
+
```
|
|
64
66
|
|
|
65
67
|
|
|
66
68
|
### 試したこと
|