VBAについての質問です。拡張子名のないブック名を簡単に取得できる方法はないでしょうか?


ブック.name とやると、.xls までついてきます。文字列操作をすればできるのですが、関数一発にちかい方法はないでしょうか?

回答の条件
  • URL必須
  • 1人2回まで
  • 13歳以上
  • 登録:2010/02/28 21:58:53
  • 終了:2010/03/01 07:44:51

回答(2件)

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912010/02/28 22:32:04

ポイント35pt

文字列で処理する方法もありますが、一応 FSO で拡張子を取得して処理する方法です。

With CreateObject("Scripting.FileSystemObject")
    MsgBox Replace(ThisWorkbook.Name, "." & .GetExtensionName(ThisWorkbook.Name), "")
End With

http://homepage2.nifty.com/pasocon/nyumon/filesystemobject/getex...

id:kaiketsu

やはりちょっと面倒ですね。

2010/02/28 23:31:55
id:code_tk No.2

code_tk回答回数77ベストアンサー獲得回数112010/02/28 22:33:33

ポイント35pt

一応FileSystemObjectのBaseNameを使用すれば一発?で可能ですが関数ではない気もしますし人によってはObject作るのがいやって人もいるので微妙かも

http://msdn.microsoft.com/ja-jp/library/cc428010.aspx

Set objFS = CreateObject("Scripting.FileSystemObject")

strBaseName = objFS.GetBaseName(Application.ThisWorkbook.Name)

MsgBox strBaseName

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません