有没有一种方法可以复制Excel文件名的第一个字符并将其粘贴到工作表中？

Question

我想将我的excel文件名的前7个字符复制到摘要表中的一列中。我的文件名通常类似于“ PR_0001_nil_nzl.xls”。我想复制“ PR_0001”并将其粘贴到我的工作表的列范围G2：G6中。我对VBA还是很陌生，因此这对我来说似乎看似简单的任务也变得更加复杂

Answer 1

• 使用ThisWorkbook.Name获取工作簿名称。
• 使用Left function获取该名称的左7个字符

• 将其写入所需工作表中的范围

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

Answer 2

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