エクセルVBAです セルA1に C:\Users\user\Desktop\333.xlsx と書かれているとする 文字列操作で

Visual Basic | Excel99閲覧

ベストアンサー

0

その他の回答(1件)

0

FileSystemObjectが便利かもです。 Sub Sample() With CreateObject("Scripting.FileSystemObject") Dim buf As Range Set buf = Range("A1") buf.Offset(1).Value = .GetFile(buf.Value).ParentFolder buf.Offset(2).Value = .GetFileName(buf.Value) End With End Sub ちなみに、 .GetBaseName() で 333 .GetExtensionName() で .xlsx .GetFile().ParentFolder.ParentFolder で C:\Users\user が取得できたりしますね(つまり一階層上)。