Вопрос:

Как переключаться между рабочими книгами

vba excel-vba excel

728 просмотра

1 ответ

48 Репутация автора

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

Sub copy_spreadsheets()

Dim wb As Workbook, wb_main As Workbook, path As String, sheet_name As String, x As Integer, i As Integer, source_sheet As Worksheet, ws As Worksheet

path = "C:\Users\me\Desktop\folder\"
Set wb_main = ThisWorkbook
For x = 2 To 10
i = 2
sheet_name = ("sheet" & i & ".xlsx")
Set wb = Workbooks.Open(path & sheet_name)
Set sourceSheet = Worksheets("sheet1")
sourceSheet.Activate
sourceSheet.Cells.Select
Selection.Copy
Workbooks("C:\Users\me\Desktop\folder\sheet1.xls").Worksheets("Sheet1").Activate
Set ws = Sheets.Add

i = i + 1
Next x


End Sub
Автор: RafMil Источник Размещён: 03.01.2018 01:59

Ответы (1)


-1 плюса

5438 Репутация автора

Существует метод Workbook.Activate, а также рабочий лист. Попробуйте активировать книгу перед активацией листов в этой книге.

Автор: S Meaden Размещён: 03.01.2018 02:02
32x32