Ошибки при открытии книги с помощью VBA

Question

Я попробовал несколько способов открыть отдельную книгу в одной книге, но всегда получает сообщение об ошибке приложения или объекте определенных ошибок, следующее мой код:

Sub PrepaidImport() 
Dim x As Workbook, y As Workbook, vals As Variant, MyFile1 As String, MyFile2 As String 
MyFile1 = Application.GetOpenFilename() 
Set x = Workbooks.Open(MyFile1) 
End Sub 

следующий код получить ту же ошибку, а также:

Sub PrepaidImport() 
Dim x As Workbook, y As Workbook, vals As Variant, MyFile1 As String, MyFile2 As String 
Set x = Workbooks.Open("M:\Company\2014\YTD 2014 Prepaid Assets.xlsx") 
End Sub 

следующий код получаю ошибку различий, потому что я пытаюсь открыть бинарной книгу:

Sub PrepaidImport() 
Dim y as Workbook 
Set y = Workbooks.Open("Y:\Branch\Prepaid Assets Amortization Import Template.xlsb") 
End Sub 

Это весь мой код:

Sub PrepaidImport() 
Dim x As Workbook, y As Workbook, vals As Variant, MyFile1 As String, MyFile2 As String 

Set x = Workbooks.Open("M:\Company\2014\YTD 2014 Prepaid Assets.xlsx") 
Set y = Workbooks.Open("Y:\Branch\Prepaid Assets Amortization Import Template.xlsb") 

vals = x.Worksheets("11.2014").Range("A6", "A" &x.Worksheets("11.2014").Range("A6").End(xlDown)).Value 
Set y.Worksheets("Journal_Details").Range("Y1").Value = vals 

x.Close 

End Sub 

файлов открываются, но сообщение об ошибке выскакивает и делает меня неспособным выполнить последующий код. Я на Excel 2007.

Пожалуйста, помогите!

Answer 1

Проблема заключается в вашей второй в последней строке, вы не должны иметь «набор» заявление перед линии назначения, т.е. он должен быть просто

y.Worksheets("Journal_Details").Range("Y1").Value = vals