マクロのことで再度質問です。

質問

すいません、先ほど質問した者です。

http://okwave.jp/qa/q7357905.html

以下のマクロを試すと・・
Ａのセルに「ファイル名.txt」
Ｂのセルに「C:\Users\～￥フォルダ名」
となります。
この「.txt」と「C:\Users\～￥」は表示させたくありません。
自分でもいじってみたのですが、できませんでした。
表示させないようにするにはどうすればいいでしょうか？
度々の質問で恐縮ですが、よろしくお願いします。

Sub Macro()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim FolderPath As String
FolderPath = ThisWorkbook.Path

Dim myFile As Object
Dim i As Long
i = 2
Dim myFolder As Object
For Each myFolder In fso.GetFolder(FolderPath).SubFolders
For Each myFile In fso.GetFolder(myFolder).Files
Cells(i, 4).Value = myFolder
Cells(i, 1).Value = myFile.Name
Cells(i, 7).Value = fso.OpenTextFile(myFile.Path).ReadAll()
i = i + 1
Next
Next
End Sub

Private Sub CommandButton1_Click()

End Sub

回答No.1

mt2008 · ベストアンサー

Cells(i, 4).Value = myFolder
Cells(i, 1).Value = myFile.Name
↓
Cells(i, 4).Value = myFolder.Name
Cells(i, 1).Value = Left(myFile.Name, Len(myFile.Name) - 4)

お礼

回答ありがとうございます。
上手くできました！

回答No.2

hallo-2007

先ほど、回答したものです。
Replace関数で　不要な文字を空白に置き換える　では如何でしょうか。
Cells(i, 4).Value = myFolder
Cells(i, 1).Value = myFile.Name
を
Cells(i, 4).Value = Replace(myFolder,FolderPath,"")
Cells(i, 1).Value = Replace(myFile.Name,".txt","")
といった感じで試してみてください。

お礼

度々回答していただいてありがとうございます。
今、試したところ、エクセルＤのセルに「￥フォルダ名」となっていました。
今回は、回答１番の方をベストアンサーにさせていただきます。
本当にありがとうございました。