Nom de fichier sans extension de nom de VBA

Ai besoin de nom de fichier sans extension de nom par VBA. Je sais ActiveWorkbook.Name bien , mais si l'utilisateur nantis Windows de la propriété Hide extensions for known file types éteindre, le résultat de mon code sera [Nom.Extension]. Comment puis-je retourner seul nom de Classeur indépendant de windows de propriété?

J'essaie même ActiveWorkbook.Application.Caption mais je ne peux pas personnaliser cette propriété.

OriginalL'auteur Liniel | 2015-01-13

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

    crédit complet: http://mariaevert.dk/vba/?p=162

    Cela ne fonctionne pas s'il n'existe pas d'extension de fichier mais il y a un point dans le nom.
    Pensez-y-bien. Vous êtes à l'aide d'un InStrRev pour trouver le point. Eh bien, que si le nom de fichier est "Jean.Et.Marie.Feuille de calcul", parce qu'ils ont Masquer les Extensions option? Maintenant, il pense que le fichier est "Jean.Et.Marie" et de l'extension de fichier est "feuille de calcul".
    Pas d'après mon système. Vous ne savez pas si la version que vous utilisez, il change les choses, mais le .Nom de la propriété renvoie le nom complet, quel que soit le Caché extensions. Au moins, c'est ce qu'il fait pour moi.
    Lire l'OP de la question. Il est dit, il obtient l'extension uniquement si cette option est désactivée.
    Est-il possible que l'OP est faux, d'où demander de l'aide sur? Ou sont tous les OPs infaillible?

    OriginalL'auteur bp_

  2. 54

    Les réponses données ici peuvent travailler dans des situations limitées, mais ne sont certainement pas la meilleure façon d'aller à ce sujet. Ne pas réinventer la roue. Le Objet De Système De Fichiers dans le Microsoft Scripting Runtime library a déjà une méthode pour ce faire. Il est appelé GetBaseName. Il gère les périodes dans le nom de fichier comme.

    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 pour l'ajout d'une référence à la Bibliothèque de Scripts

    Ne savais pas qui était là! Belle réponse.
    Classique de bons conseils à partir du mec...
    RbeerDuck, Quand je lance cette commande, il y a une erreur de compilation "type défini par l'Utilisateur non défini"
    href="http://stackoverflow.com/a/3236348/3198973">stackoverflow.com/a/3236348/3198973
    Je pense que vous devriez l'essayer avant de suggérer qu'il ne fonctionne pas.

    OriginalL'auteur RubberDuck

  3. 6

    Simple mais fonctionne bien pour moi 

    FileName = ActiveWorkbook.Name 
If InStr(FileName, ".") > 0 Then 
   FileName = Left(FileName, InStr(FileName, ".") - 1) 
End If
    Ceci ne fonctionnera pas si vous avez plus de points dans le nom de fichier.

    OriginalL'auteur Ifca

  4. 0

    Être détaillé de la suppression de l'extension est démontré pour
    classeurs.. qui ont maintenant une variété d'extensions .
    . une nouvelle non enregistrées Classeur1 a aucun poste
    . fonctionne de la même pour les fichiers

    [code]

    Fonction WorkbookIsOpen(FWNa$, En Option AnyExt As Boolean = False) As 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

    Fin De La Fonction
    [/code]

    OriginalL'auteur Harry S

  5. 0

    À l'aide de la fonction de répartition semble plus élégante que l'Instrument et de Gauche, à mon avis.

    Private Sub CommandButton2_Click()


Dim ThisFileName As String
Dim BaseFileName As String

Dim FileNameArray() As String

ThisFileName = ThisWorkbook.Name
FileNameArray = Split(ThisFileName, ".")
BaseFileName = FileNameArray(0)

MsgBox "Base file name is " & BaseFileName

End Sub

    OriginalL'auteur Bob Nightingale

  6. -2

    Réponse est ici:
    Je pense que cette réponse est la bonne, merci de l'essayer
    http://mariaevert.dk/vba/?p=162

    Ne vous contentez pas de fournir un lien. Extraire l'information à partir de votre lien et l'écrire dans votre réponse.

    OriginalL'auteur Ahmed