Имя переменной таблицы

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) 

активировать только что открытую книгу (файл1). И следующая строка:

Set mySheet = wbSource.Sheets(ActiveSheet.Name) 

набора переменного листа в только что открытой книге (file1) и листе, который в настоящее время активно там. И общий вопрос - это правильно для логики дальнейшей части вашего кода?