Excel VBA = Workbook.Open ("Имя файла") Ошибка - PullRequest
Новая
       26

Excel VBA = Workbook.Open ("Имя файла") Ошибка

0 голосов
/ 18 апреля 2019

Я пытаюсь запустить макрос, в котором я могу выбрать файл Excel, в котором я могу отфильтровать дату и скопировать (на конкретном листе) и вставить данные обратно в мою активную книгу (на конкретном листе).

Я пробовал различные форумы на предмет ошибок workbook.open, но все еще не мог исправить мою формулу. 

Sub CopyFilteredValuesToActiveWorkbook()

Dim wbSource As Workbook, wbDest As Workbook
Dim wsSource As Worksheet, wsDest As Worksheet
Dim rngSource As Range, rngDest As Range
Dim Fname As String
Dim strName As String 'for filter


Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
If Fname = "False" Then Exit Sub
Set wbSource = Workbooks.Open(Fname) 'ERROR POINTS THIS LINE

Set wsSource = wbSource.Worksheets("Table 1")

strName = InputBox("Input Year")
wsSource.Range("A:A").AutoFilter Field:=3, Criteria1:="=* & strName & *", Operator:=xlAnd
Set rngSource = wsSource.Range("A:K")

Set wbDest = ThisWorkbook
Set wsDest = wbDest.Worksheets("Sheet3")
Set rngDest = wsDest.Range("A:K")

rngDest.Value = rngSource.Value

wbSource.Close (False) 'Close without saving changes

End Sub
...