VBA: Подзаголовок вне допустимого диапазона

схожие вопросы были заданы, но я думаю, что у меня другая проблема:

Workbooks.Open Filename:=filepath & "PLT.xlsx" Worksheets("Sheet1").Range(Worksheets("Sheet1").Range("A1:B1"), Worksheets("Sheet1").Range("A1:B1").End(xlDown)).Copy Windows("XXX.xslm").Activate w1.Range("A4").PasteSpecial Paste:=xlPasteValues 

Это вторая проблема. Фактически, он не копирует ячейки, которые я хочу. Когда я открываю эту книгу, выбирается весь рабочий лист.

Я не понимаю, почему я получаю эту ошибку.

Хлоп. Если вы хотите скопировать значения в простой путь:

 Global fso As New FileSystemObject Public Sub CopyValuesTest() ' Get references to the files Dim wb1 As Workbook, wb2 As Workbook Set wb1 = Workbooks.Open(fso.BuildPath(filepath, "PLT.xlsx")) Set wb2 = Workbooks("XXX") ' Get references to the sheets Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = wb1.Sheets("Sheet1") Set ws2 = wb2.Sheets("Sheet1") ' Count non-empty rows under A1. Use 2 columns Dim N As Integer, M As Integer N = CountRows(ws1.Range("A1")): M = 2 ' This copies the values ws2.Range("A4").Resize(N, M).Value = ws1.Range("A1").Resize(N, M).Value End Sub Public Function CountRows(ByRef r As Range) As Long If IsEmpty(r) Then CountRows = 0 ElseIf IsEmpty(r.Offset(1, 0)) Then CountRows = 1 Else CountRows = r.Worksheet.Range(r, r.End(xlDown)).Rows.Count End If End Function 

И убедитесь, что ваш filepath определен. Также для использования FileSystemObject см. https://stackoverflow.com/a/5798392/380384

Interesting Posts

Формула Excel использует только первое значение в столбце на другом листе

Функция countic Excel 2010

Nest Do While цикл в VBA не заканчивается

Экспорт одного листа в HTML

Блок комментариев VBA

Извлечение данных из таблицы таблиц таблиц Excel в Linux

Количество символов AppleScript и удаление символов в Excel

Поддерживает ли Talend кодировку UTF-8 для заголовков Excel?

Открыть листок Excel от JButton – Java Swing

Макрос VBA для запуска, когда Измененная рабочая книга Дата / Время больше, чем другое

Selenium Webdriver, TestNG – поставщик данных пытается передать параметр 2, но метод принимает 3, а TestNG не может вставить подходящий объект

excel объединить строки на основе значений столбца

Ошибка каста при настройке источника с помощью управления axSpreadsheet

Excel: как манипулировать значениями, основанными на выборе в двух спусках

Ошибка 1004 при попытке получить критерии фильтрации AutoFilter

Давайте будем гением компьютера.