2021-08-24から1日間の記事一覧

ExcelVBA 拡張子を除く

Function RemoveExtension(aFilename As String) As String '--- 拡張子の位置 ---' Dim posExt As Long posExt = InStrRev(aFilename, ".") '--- 拡張子を除いたパス(ファイル名)を格納する変数 ---' Dim strFileExExt As String If (0 < posExt) Then Re…