VBA - 使用 RefEdit 作为范围

Question

我有一个 VBA 脚本，它打开一个用户窗体，因此用户可以选择各种单元格地址来将信息从一个文件复制到另一个文件。我正在使用 RefEdit 控件来指定单元格地址，但是当我尝试使用 Workbook.Range(UserForm.RefEdit.Value) 时收到对象错误。函数，因为 RefEdit 引用的格式为“'Sheet1'!X#:X#”。我知道如果 RefEdit 只是一系列单元格，我可以做 Workbook.Worksheet.Range(UserForm.RefEdit.Value) ，但 VBA 脚本用于转换具有不同工作表名称的多个文件(因此我不能使用通用 Workbook.Worksheet 字符串)。有没有办法将 RefEdit 引用与工作表名称和单元格地址一起用作范围？

这是我当前的代码:

Sub ReviseFAA()
Dim FolderPath As String, FilePath As String
Dim SourceFAA As Workbook, RevisedFAA As Workbook

FolderPath = "A:\Copy of MWO File\"
FilePath = Dir(FolderPath & "*.xls")

Do While FilePath <> ""
    Workbooks.Open (FolderPath & "FAA Template.xlsx")
    Set RevisedFAA = Workbooks("FAA Template.xlsx")
    Workbooks.Open (FolderPath & FilePath)
    Set SourceFAA = Workbooks(FilePath)

    FAA_User.Show

    With SourceFAA
    RevisedFAA.Sheets("Repair Instruction").Range("U2:AD3") = .Range(FAA_User.ControlNumber.Value).Value
    End With

    FilePath = Dir
Loop

Answer 1

尝试使用这个:

Range(UserForm.RefEdit.Value)

删除 workbook .和 worksheet .