Ошибка VBA, когда я пытаюсь установить книгу - Excel

Question

У меня есть этот код, но он выдает ошибку при попытке установить рабочую книгу. Я использую это, потому что я пытаюсь скопировать значения из других рабочих книг, но когда я устанавливаю worbooks с переменной, появляется ошибка.

Я копирую код, а также снимок экрана с ошибкой.

Sub AbrirArchivos()

'Paso 1: Declarar las variables

 Dim Archivos As String
 Dim vals As Variant
 Dim wbcopy As Workbook
Dim wbTarget As Workbook

Set wbTarget = ThisWorkbook


 Archivos = Dir("C:\Users\fernandofernandez\Desktop\Prueba\*.xlsx")
 Do While Archivos <> “”

 Workbooks.Open "C:\Users\fernandofernandez\Desktop\Prueba\" & Archivos
 Set wbcopy = Workbooks.Open "C:\Users\fernandofernandez\Desktop\Prueba\" & Archivos
'code

    vals = wbcopy.Worksheets(1).Range("E2").Value

    wbTarget.Range("C10").End(xlToRight).Select
    Selection.EntireColumn.Select
    Selection.Copy
    wbTarget.Range("C10").End(xlToRight).Offset(0, 1).Select
    Selection.EntireColumn.Select
    ActiveSheet.Paste

    wbTarget.Worksheets(1).Range("F11").Value = vals


 'Paso 5: Cuadro de mensaje, cerrar y guardar cambios

 'MsgBox ActiveWorkbook.Name

 ActiveWorkbook.Close SaveChanges:=True

'Paso 6: buscar más archivos en la carpeta para volver seguir la secuencia

 Archivos = Dir
 Loop

End Sub

я хочу

Answer 1

Используйте эту строку вместо:

Set wbcopy = Workbooks.Open("C:\Users\fernandofernandez\Desktop\Prueba\" & Archivos)

Это должно устранить ошибку.

Answer 2

Do While Archivos <> “”

Это первая вещь, на которую я бы посмотрел.Языки общеизвестно требовательны к использованию умных цитат, где ожидаются нормальные цитаты.Возможно, VBA это позволяет, но я был бы осмотрительным.

Кроме того, документы содержат круглые скобки вокруг списка аргументов, и, исходя из памяти, это давно соблюдаемое соглашение в VBA.Вызовы функций имеют круглые скобки, а вызовы procuderes - нет.

Я бы также дважды рассмотрел необходимость открытия рабочей книги: -)