拡張子のないファイル名VBA

Question

VBAで拡張子なしのファイル名を取得する必要があります。私はActiveWorkbook.Nameプロパティを知っていますが、ユーザがWindowsプロパティHide extensions for known file typesをオフにしている場合、私のコードの結果は[Name.Extension]になります。どのように私はウィンドウのプロパティから独立したワークブックの名前だけを返すことができますか？

ActiveWorkbook.Application.Captionでも試してみますが、このプロパティをカスタマイズすることはできません。

Answer 1

strTestString = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) 

フルクレジット：すでにここに与えられたhttp://mariaevert.dk/vba/?p=162

Answer 2

の答えは、限られた状況で動作しますが、確かにそれについて移動する最良の方法ではないことがあります。車輪を再構築しないでください。 Microsoft Scripting Runtime libraryのFile System Objectには既にこれを行う方法があります。それはGetBaseNameと呼ばれています。これは、ファイル名のピリオドをそのまま扱います。

Public Sub Test() 

    Dim fso As New Scripting.FileSystemObject 
    Debug.Print fso.GetBaseName(ActiveWorkbook.Name) 

End Sub 

Public Sub Test2() 

    Dim fso As New Scripting.FileSystemObject 
    Debug.Print fso.GetBaseName("MyFile.something.txt") 

End Sub 

Instructions for adding a reference to the Scripting Library

Answer 3

延長の除去は、今の拡張機能の多様性を持っている ワークブック..ために実証されていることを詳細にできます。 。保存されていない新しいBook1には内線がありません 。ファイル

[コード]

機能WorkbookIsOpen（FWNa $、ブール= falseとオプションAnyExt）booleanとして

Dim wWB As Workbook, WBNa$, PD% 
FWNa = Trim(FWNa) 
If FWNa <> "" Then 
    For Each wWB In Workbooks 
     WBNa = wWB.Name 
     If AnyExt Then 
      PD = InStr(WBNa, ".") 
      If PD > 0 Then WBNa = Left(WBNa, PD - 1) 
      PD = InStr(FWNa, ".") 
      If PD > 0 Then FWNa = Left(FWNa, PD - 1) 
      ' 
      ' the alternative of using split.. see commented out below 
      ' looks neater but takes a bit longer then the pair of instr and left 
      ' VBA does about 800,000 of these small splits/sec 
      ' and about 20,000,000 Instr Lefts per sec 
      ' of course if not checking for other extensions they do not matter 
      ' and to any reasonable program 
      ' THIS DISCUSSIONOF TIME TAKEN DOES NOT MATTER 
      ' IN doing about doing 2000 of this routine per sec 

      ' WBNa = Split(WBNa, ".")(0) 
      'FWNa = Split(FWNa, ".")(0) 
     End If 

     If WBNa = FWNa Then 
      WorkbookIsOpen = True 
      Exit Function 
     End If 
    Next wWB 
End If 

エンド機能 [/コード]

Answer 4

回答のために同様に機能しますここにいます： この回答は良いと思います。お試しください。 http://mariaevert.dk/vba/?p=162

Answer 5

シンプルだがうまくいく

FileName = ActiveWorkbook.Name 
If InStr(FileName, ".") > 0 Then 
    FileName = Left(FileName, InStr(FileName, ".") - 1) 
End If