回答編集履歴
1
固定パスを変数にするのを忘れたため
answer
CHANGED
|
@@ -30,9 +30,7 @@
|
|
|
30
30
|
End If
|
|
31
31
|
|
|
32
32
|
index = InStrRev(FolderName, "\") ' ← 後ろから\を探し、その位置をindexに返す index=30
|
|
33
|
-
|
|
34
|
-
FolderName = Left(
|
|
33
|
+
FolderName = Left(FolderName , index) '←フォルダパスを抜き出す 左から30文字をFileNameにセット
|
|
35
|
-
' 123456789012345678901234567 8 9 0 左から30文字をFileNameにセット
|
|
36
34
|
'FolderName = "C:\Users*\Documents\macro練習用\"
|
|
37
35
|
|
|
38
36
|
FileName = Dir(FolderName & "*.xlsx") '← フォルダの最初のExcelファイルを取得
|