フォルダのパスの参照をexcelセル上で指定する

質問

エクセル上に参照先のフォルダパスを入力し、
VBA上では、セルを参照させたいのですが、
「定数式が必要です」とエラーメッセージが出るのですが、
どこをどうしたらいいですか？

---------------------------------------------

Sub 拡張子変更()

Dim Folderpath As String　←これだとエラーになる

Folderpath = ThisWorkbook.Worksheets("Sheet1").Range("B5").Value

Const SAVE_DIR As String = Folderpath

'------------
'Const SAVE_DIR As String = "C:\Desktop\●sample\"　←これだとうまくいく

'------------
Const OLD_EXTENSION As String = ".chl"
Const NEW_EXTENSION As String = ".txt"

Dim OldFName As String
Dim NewFName As String

OldFName = Dir(SAVE_DIR & "*" & OLD_EXTENSION)
Do While Len(OldFName) <> 0
OldFName = SAVE_DIR & OldFName
NewFName = _
Left(OldFName, Len(OldFName) - Len(OLD_EXTENSION)) & NEW_EXTENSION

FileCopy OldFName, NewFName
Kill OldFName
OldFName = Dir()
Loop
End Sub

回答No.1

n-jun · ベストアンサー

Dim SAVE_DIR As String

SAVE_DIR = ThisWorkbook.Worksheets("Sheet1").Range("B5").Value

こうするとかじゃないの？

お礼

そう！Dimでした！ありがとうございます。