Question

我有一个宏程序来执行一些操作，比如Vlookup，删除列等。要更新的文件中会有一些工作表，每次工作表的名称和顺序可能不同。因此，我希望每次使用宏时都能选择我想要的工作表。但是，我没有成功.....

这是宏。我希望mySheet是可变的。理想情况下，它可以提示我在wbSource中选择我想要的工作表。但是，我一直在收到错误。任何人都知道我该怎么做？

提前致谢！

Sub Macro1()
    Dim file1 As String
    Dim file2 As String
    Dim wbSource As Workbook
    Dim wbLookup As Workbook
    Dim startRange As Range
    Dim mySheet As Worksheet
    Dim col As Range
    Dim Del As Range


    file1 = Application.GetOpenFilename(Title:="Select the file to update")
    If Len(Dir(file1)) = 0 Then Exit Sub
    file2 = Application.GetOpenFilename(Title:="Select the LOOKUP file")
    If Len(Dir(file2)) = 0 Then Exit Sub

    Set wbLookup = Workbooks.Open(file2)
    Set wbSource = Workbooks.Open(file1)
    Set mySheet = wbSource.Sheets(ActiveSheet.Name)



    On Error Resume Next
    Application.DisplayAlerts = False
    Set col = Application.InputBox _
             (Prompt:="Select Column.", _
                    Title:="Where do you want to insert the columns?", Type:=8)

    On Error GoTo 0

    Application.DisplayAlerts = True

    col.Resize(, 5).EntireColumn.Insert





    On Error Resume Next

    Application.DisplayAlerts = False

    Set Del = Application.InputBox _
    (Prompt:="Select Column.", _
     Title:="Which column to delimit?", Type:=8)


     On Error GoTo 0
    Application.DisplayAlerts = True


    Del.EntireColumn.Select '**  ERROR HERE!!

      Selection.TextToColumns _
      Destination:=Del, _
      DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, _
      Semicolon:=False, _
      Comma:=False, _
      Space:=False, _
      Other:=True, _
      OtherChar:="-"

     Del.Offset(0, 2).Delete
     Del.Offset(0, 1).Delete





  On Error Resume Next
    Set startRange = Application.InputBox("Select the first cell for the formula", "Autofill VLOOKUP", Type:=8)
    On Error GoTo 0
    If Not startRange Is Nothing Then
        Application.Goto startRange
         startRange.FormulaR1C1 = "=VLOOKUP('[" & wbSource.Name & "]" & mySheet.Name & "'!RC[-1],'[" & wbLookup.Name & "]NON SLL'!C1:C3,3,FALSE)"

    End If

End Sub

Answer 1

对评论的一些延续和对问题的可能解释......

您的代码没有出错。但是，您可能会考虑一些逻辑错误。这行代码：

Set wbSource = Workbooks.Open(file1)

激活刚打开的工作簿（file1）。下一行：

Set mySheet = wbSource.Sheets(ActiveSheet.Name)

在刚刚打开的工作簿（file1）和当前处于活动状态的工作表中将变量设置为工作表。一般问题 - 这对于代码的其他部分的逻辑是否正确？

可变工作表名称

1 个答案: