|
>ボタンを押すと、’ブック名取得’の"ActiveWorkBookName"が反転して
>題名のようなメッセージが出ます。
ActiveWorkbookName
は
ActiveWorkbook.Name
の間違いでしょう。
示されたコード(関数)ですが冗長すぎるので少し効率よくかかれると良いとおもいます。
InStrRev関数を使った例
'フルパスからファイル名のみ取得
Function GetFileName(fullpath As String) As String
GetFileName = Mid(fullpath, InStrRev(fullpath, "\") + 1)
End Function
'ファイル名から拡張子を除く
Function GetFileNameOnly(sfina As String) As String
If InStr(sfina, ".") Then
GetFileNameOnly = Left(sfina, InStrRev(sfina, ".") - 1)
Else
GetFileNameOnly = sfina
End If
End Function
作成するファイル名を取得するところも
わざわざ別関数にしなくとも以下で良いとおもいます。
'作成するファイル名
makefile = Application.GetSaveAsFilename("", "エクセルファイル(*.xls),*.xls", , "保存するエクセルファイルの指定")
If makefile = "False" Then Exit Sub
|
|