Question

我在尝试将此代码应用于工作表时遇到问题。谁能提供一些指导？基本上我将我的文件名转换为工作表，我想从中删除.pdf .. Left(Sh.Name, Len(Sh.Name)-4) 我也有问题dim Sh.Name as String所以我不知道如何从这里开始应用上述..

Sub findstring()

 Dim sh As Worksheet, myCounter
 Dim Loc As Range, str As Variant

sh.Name = Left(sh.Name, Len(sh.Name) - 4)


For Each sh In ThisWorkbook.Worksheets

 If sh.Name <> "email" Then 
 With sh.UsedRange
 Set Loc = .Cells.Find(What:="Truck")

 If Not Loc Is Nothing Then
            MsgBox sh.Name

            myCounter = 1
            Set Loc = .FindNext(Loc)

 End If

End With
End If Next
If myCounter = 0 Then
MsgBox "Value not present in this workbook"

End If

End Sub

Answer 1

您可以使用

从任何字符串中删除json_encode()

.pdf

您可以使用

从字符串中删除任何文件名

x = replace(x, ".pdf", "")

该字符串可能包含“。”的危险。但实际上并不是文件扩展名。

修剪工作表vba中的最后4个字符

1 个答案: