回答編集履歴
1
追記
answer
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
|
+
テスト環境がないので確認できていません。
|
|
1
2
|
```vba
|
|
2
|
-
|
|
3
3
|
Dim f, t, b, u
|
|
4
4
|
With CreateObject("Scripting.FileSystemObject")
|
|
5
5
|
f = .BuildPath(ActiveWorkbook.Path, "\~$" & ActiveWorkbook.Name)
|