1

голосов
1

ответ
224

Просмотры

Vba code getting error “select method of range class failed”

В приведенном ниже коде, я получаю сообщение об ошибке «Выберите метод Range класса Failed» на линии, указанной. Я пытаюсь скопировать некоторые фиксированные диапазоны от рабочего листа А Workbook XY в рабочий лист А всех открытых книг. Пожалуйста, помогите мне с вопросами. Кроме того, предлагают более или оптимизированный способ сделать то же самое. Заранее спасибо. Sub Macro1 () Dim WBS Как Workbooks Dim As Workbook Всемирный банк Dim ws11111 As Worksheet Set WBS = Application.Workbooks Для каждого ВБ в WBS Установите ws11111 = wb.Worksheets ( "A") '' ОШИБКА изломов на следующей строке: wb.Worksheets ( "А") Строки (.. "1: 1") Выберите '' ОШИБКА: "Выберите метод Range Class Failed" Selection.Insert сдвиг: = xlDown, CopyOrigin: = xlFormatFromLeftOrAbove Selection.Insert сдвига: = xlDown, CopyOrigin:
yashika vaish
1

голосов
2

ответ
600

Просмотры

Ошибка # НДА vlooup с другой книгой

Я хочу, чтобы получить значение столбца 2 в й книге на основе 20700, так что если я напрямую дать значение поиска, формула работает нормально, но если я заменю мое значение подстановок с диапазоном как А2 [имеющий 20700 в колонке], так Это дает мне N / A ошибку. ВПР (! 20700, '[X.xlsx] Лист1' $ A: $ B, 2,0) - работает отлично ВПР (! К2, '[X.xlsx] Лист1' $ A: $ B, 2,0) - дает ошибку Просьба предложить мне, что делать. Заранее спасибо.
yashika vaish
1

голосов
2

ответ
60

Просмотры

Vba Проблема в If Else условия

в то время как код дает правильный вывод и правильное значение в соответствии с условием. Просьба предложить необходимые изменения.
yashika vaish
2

голосов
3

ответ
447

Просмотры

Issue in looping through various subfolders of folder and each files of these subfolders

Я хочу, чтобы получить доступ к каждому вложенного моей текущей папки (количество вложенных папок в каждой подпапке может изменяться), а затем необходимо выполнить некоторые операции в каждой книге Excel из всех этих вложенных папок. Ниже упоминается это код и код не кидает время компиляции ошибки, но не работает. Пожалуйста, помогите мне вариант явно Sub LoopFolders () Dim strFolder As String Dim strSubFolder As String Dim strFile As String Dim colSubFolders Как Новая коллекция Dim varItem Как Variant Dim ВБК В родительской папки книги, 'включая обратную косую черту strFolder = «C: \ Users \ Yashika Вайш \ Desktop \ yashika \» 'Loop через вложенные папки и заполнить объект Collection strSubFolder = Dir (strFolder & "*", vbDirectory) Do While Not strSubFolder = "" Select Case strSubFolder Case" strFile = Dir Loop Next varItem End Sub Все необходимые ссылки на инструменты настройки уже добавлены в этом проекте VBA. Пожалуйста, помогите мне с этим кодом.
yashika vaish