2012-01-31 19 views
2

具体的には、なぜnewFilenameの中でstrarray(1)とstrarray(2)の間にスペースがありますか?前もって感謝します!なぜ2つの配列要素の間にスペースがありますか?

Sub Button1_Click() 

Dim orgFilename As String 
Dim temp As String 
Dim strarray(3) As String 
Dim newFilename As String 

orgFilename = Application.GetOpenFilename(FileFilter:="All files (*.), *.", Title:="Please select a file") 


temp = Mid$(orgFilename, InStrRev(orgFilename, "\") + 1) 
strarray(1) = Left(orgFilename, InStrRev(orgFilename, "\")) 
strarray(2) = "processed_" 
strarray(3) = temp 
newFilename = Join(strarray) 


End Sub 

答えて

4

を試してみては、デフォルトでは空白を追加しましょう。 このリンクの最初の段落チェックアウト:

http://msdn.microsoft.com/en-us/library/aa164507%28v=office.10%29.aspx

に参加機能は、文字列の配列を受け取り、連結 文字列を返します。デフォルトでは、文字列の各要素の間にスペースを追加しますが、 ですが、別の区切り文字を指定することもできます。

代わりに使用

newFilename = Join(strarray, "") 
関連する問題