Bezdepbonusu7Программирование: статьи и ответы
Меню

Вопрос

Загрузка нескольких книг (и фильтрация) на один лист Excel 2010

Автор вопроса: user2837847Ответов: 0

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

до сих пор я выполнял поиск и вставку, но часть, требующая загрузки нескольких книг, довольно сложна, может ли кто-нибудь помочь мне в этом? Спасибо.

Sub SearchRowAndCopy()
Dim strSearch
strSearch = Application.InputBox("Please enter the search string")
x = 2
Do While Cells(x, 1) <> ""
If Cells(x, 2) Like "*" & strSearch & "*" Then
Worksheets("Sheet1").Rows(x).Copy
Worksheets("Sheet2").Activate
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(erow)
End If
Worksheets("Sheet1").Activate
x = x + 1
Loop
End Sub
  • Вы можете использовать Dir(folderPath & "*.xls*") для получения всех книг в заданной папке и Workbooks.Open() для загрузки каждой из них в Excel. Или у вас проблемы с копированием? Tim Williams 28.10.2013
  • @TimWilliams нет, я пытаюсь извлечь данные из каждой из выбранных мной книг и скомпилировать их в один лист, извините, если я не ясно выразился .. user2837847 28.10.2013
  • Выбрали как? Они уже открыты? Tim Williams 28.10.2013
  • @TimWilliams нет, они не открыты, но все они в одной папке user2837847 29.10.2013
  • Это восходит к моему первоначальному предложению. Tim Williams 29.10.2013
  • @TimWilliams извините, мой vba не очень хорош, как мне реализовать эти две строки в моем коде выше? user2837847 29.10.2013

excelvbaexcel-2010

На этот вопрос пока нет ответов в архиве.

Перевод вопроса и ответов сообщества Stack Overflow, лицензия CC BY-SA. Оригинал на Stack Overflow.

Похожие материалы