Есть ли способ, которым я могу скопировать первые символы имени файла Excel и вставить его в лист?

Question

Я хочу скопировать первые 7 символов моего имени файла Excel в столбец моего сводного листа.мое имя файла обычно выглядит примерно так: "PR_0001_nil_officer.xls".Я хочу скопировать «PR_0001» и вставить его в столбец G2: G6 моего листа.Кроме того, я очень новичок в VBA, что делает эту, казалось бы, простую задачу более сложной для меня. Lol

Answer 1

Option Explicit

Sub Test()

    Dim strName As String
    Dim wsSummary As Worksheet

    With ThisWorkbook

        Set wsSummary = .Worksheets("Summary")

        strName = Left(.Name, 7)

        wsSummary.Range("G2:G6").Value = strName

    End With

End Sub

Answer 2

• Используйте ThisWorkbook.Name, чтобы получить имя книги.
• Используйте Левая функция , чтобы получить оставшиеся 7 символов этого имени

• Запишите его в нужную вам таблицу

  ThisWorkbook.Worksheet("Summary").Range("G2:G6").Value = Left$(ThisWorkbook.Name, 7)