Я пытаюсь написать макрос в Excel, используя VBA, где я ищу открыть файл в другом файле.
Посмотрите на ячейку "E5". Теперь значение E5 будет 8A1234S / 0. Я хочу создать новый рабочий лист (Tab) в главном файле и использовать значение E5 для переименования этой вкладки. Теперь, так как в моем значении E5 есть "/".
Его нельзя использовать для названия вкладки. Если я запускаю этот код, он создает вкладку, но имя выходит с именем «False»
Вот код.
Sub Filling_List()
Dim wb As Workbook
Dim sName As String 'add sName declaration
Dim uploadfile As Variant
Dim wb1 As Workbook
Dim ws1 As Worksheet
Dim ws As Worksheet
Dim AB As String
Set wb = ThisWorkbook
Application.ScreenUpdating = False
uploadfile = Application.GetOpenFilename()
If uploadfile = "False" Then
Exit Sub
End If
Set wb1 = Workbooks.Open(uploadfile)
Set ws1 = wb1.Worksheets("Que & Tsc Cal")
Теперь я хочу использовать только первые 7 букв из вкладки E5. Кроме того, если я могу прочитать все письма и просто бросить "/", это будет работать также
AB = ws1.Range("E5").Value = Left(E5, 7)
sName = AB & " " & ws1.Range("B4") 'assign value from two cells
Я тоже попробовал это, не используя AB, но не сработало.
sName = ws1.Range("E5, 7").Value & " " & ws1.Range("B4")
A
On Error Resume Next
Dim wslTest As Worksheet
Set wslTest = wb.Worksheets(sName)
If Err.Number = 0 Then
MsgBox "Tab: " & sName & " already exists.", vbInformation
wslTest.Activate
Exit Sub
End If
On Error GoTo 0
Set wb = ThisWorkbook
wb.Worksheets("ArF Templete").Copy After:=wb.Worksheets(Worksheets.Count)
wb.ActiveSheet.Name = sName
If sName = vbNullString Then Exit Sub