スラッシュ間の単語のVBAファイル名

Question

名前リストに基づいてワークブックを保存するマクロを作成しました。 新しいリスト項目のいくつかに/があり、ファイル名に許可されていないため、saveAsエラーが発生します。

チーム、名前、リーグ、カップのリストがすべての行で変更されることに注意してください。

list item: team/ league 
    what I want: league 

    list item: team/league/cup      
    What I want: league-cup 

    List item; team/league/cup/score 
    what I want: league-cup-score 

私はそれが1つしかないが、残りの部分を見つけることができない最初のシナリオのために働いています。

InStr(Value, "/") > 0 Then 
filename = Right(Value, (Len(Value) - InStr(Value, "/"))) 
Else 
filename = Value 
End If 

これまでに得たものです。

おかげで、あなたは "/" に置き換える機能を置き換えVBAを使用することができ、あなたが既に持っているコードを使用して

Answer 1

あなたは、分割トリム、および参加ができます。たとえば

Function MakeFileName(s As String) As String 
    Dim v As Variant, w As Variant 
    Dim i As Long, n As Long 
    v = Split(s, "/") 
    n = UBound(v) 
    ReDim w(1 To n) 
    For i = 1 To n 
     w(i) = Trim(v(i)) 
    Next i 
    MakeFileName = Join(w, "-") 
End Function 

：

Sub test() 
    Debug.Print MakeFileName("team/ league") 
    Debug.Print MakeFileName("team/league/cup") 
    Debug.Print MakeFileName("team/league/cup/score") 
End Sub 

出力：

league 
league-cup 
league-cup-score 

Answer 2

" - " あなたが使用する必要が

filename = Replace(filename, "/", "-") 

Answer 3

をREPLACE

https://www.techonthenet.com/excel/formulas/replace_vba.php

例：

Dim oldString as String 
Dim newString as String 
newString=Replace(oldString,"/","_") 

Answer 4

さらに別の解決策、InStrを使用してこの時間。リーグが存在しない場所を処理するために編集されました。

Sub Example() 
    Dim str1 As String: str1 = "list item: team/ league" 
    Dim str2 As String: str2 = "list item: team/league/cup " 
    Dim str3 As String: str3 = "List item; team/league/cup/score" 

    Debug.Print getTeamText(str1) 
    Debug.Print getTeamText(str2) 
    Debug.Print getTeamText(str3) 

End Sub 

Function getTeamText(ByVal StringIn As String) As String 
    Dim strPos As Long 
    Dim lookFor As String: lookFor = "league" 

    strPos = InStr(1, LCase(StringIn), lookFor) 

    If strPos > 0 Then 
     getTeamText = Replace(Replace(Mid(StringIn, strPos, (Len(StringIn) - strPos) + 1), " ", ""), "/", "-") 
    Else 
     getTeamText = "Could not find match" 
    End If 
End Function 

期待どおりの出力が必要です。

Answer 5

あなたは、リンクが今まで死ぬ場合、彼らは無意味なようにリンクにのみ答えを避けてください

filename = Join(Split(Replace(Replace(Value, " ", ""), "team/", ""), "/"), "-")