Перенос данных excel -excel на разные листы

@hopeantip · Регистрация: 02.07.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Возникла небольшая проблема:
Переношу данные из книги в книгу, но в каждой книге по 3 листа, а данные переносятся только в тот лист в котором задействован макрос или нажата кнопа.
Дак вот, сам вопрос: что дописать, что бы не приходилось использовать 3 кнопки или прожимать 3 макроса, а сделать выбор листа в самом коде?

Кликните здесь для просмотра всего текста

Visual Basic

1 2	'строка на которую грешу... Cells(i, 2) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("B14").Range("A1").Address(, , xlR1C1))

Кликните здесь для просмотра всего текста

Visual Basic

1 2	'пробовал так, но не вышло: Cells(i, 2) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Sheets("Лист1").Range("B14").Range("A1").Address(, , xlR1C1))

весь скрипт:

Кликните здесь для просмотра всего текста

Visual Basic

Sub ìàêðîñ()
    Dim path As String, file As String, arg As String, i As Long, n As Long
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Óêàæèòå ðàáî÷óþ ïàïêó": .Show
        If .SelectedItems.Count = 0 Then Exit Sub Else path = .SelectedItems(1) & "\"
    End With
       Rows("14:" & Rows.Count).ClearContents: file = Dir(path & "*.xls"): i = 14
     Do While file <> ""
    n = n + 1
   
        Cells(i, 1) = n
        Cells(i, 2) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("B14").Range("A1").Address(, , xlR1C1))
        Cells(i, 3) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("C14").Range("a1").Address(, , xlR1C1))
        Cells(i, 4) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("D14").Range("A1").Address(, , xlR1C1))
        Cells(i, 5) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("E14").Range("A1").Address(, , xlR1C1))
        Cells(i, 6) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("F14").Range("A1").Address(, , xlR1C1))
        Cells(i, 7) = ExecuteExcel4Macro("'" & path & "[" & file & "]" & "L143'!" & Range("G14").Range("A1").Address(, , xlR1C1))
        i = i + 1: file = Dir
    Loop
UserForm1.Hide
End Sub

просто сам макрос расположен на кнопке,в форме, вместе и с остальными кнопками, и тому подобным.
Заранее спасибо

@Казанский · 06.05.2015, 14:31

Cells(i, 2) - это ячейка текущего листа. Если хотите использовать ячейку другого листа, надо указать его:

Visual Basic

1	Sheets("Лист2").Cells(i, 2) = ...

Выбор листа логично сделать с помощью ListBox на форме, вместо "Лист2" подставлять значение листбокса.

@hopeantip · 06.05.2015, 14:39 **[ТС]**

пробовал, не помогло.
решил проблему так:

Visual Basic

1	Sheets("14.3.").Select

перед каждым while, соответственно с разным значением листов.
единственное, что после этого возникла проблема с нумерацией строк.

@Казанский · 06.05.2015, 14:47

Сообщение от hopeantip

пробовал, не помогло

Как это ?!
Цикл While можно переписать так:

Visual Basic

     Do While file <> ""
        n = n + 1
        arg = "'" & path & "[" & file & "]L143'!R14C"
        Cells(i, 1) = n
        For j = 2 To 7
          Cells(i, j) = ExecuteExcel4Macro(arg & j)
        Next
        i = i + 1: file = Dir
    Loop

@hopeantip · 06.05.2015, 14:54 **[ТС]**

Не по теме:

выборка по лист боксам то-же не то, так как перенос данных происходит из множества книг с 3-мя листами в 3 листа моего шаблона, в дальнейшем сохраняется с удалением макросов, кнопок, объединением нужных ячеек, в общем формируется отчет )

Добавлено через 2 минуты

Сообщение от Казанский

Как это ?!

Прошу прощения, моя ошибка...
Не правильно указывал имя листа!

@hopeantip 0 / 0 / 0 Регистрация: 02.07.2013 Сообщений: 30
	06.05.2015, 14:54 [ТС]	5
	Не по теме: выборка по лист боксам то-же не то, так как перенос данных происходит из множества книг с 3-мя листами в 3 листа моего шаблона, в дальнейшем сохраняется с удалением макросов, кнопок, объединением нужных ячеек, в общем формируется отчет ) Добавлено через 2 минуты Сообщение от Казанский Как это ?! Прошу прощения, моя ошибка... Не правильно указывал имя листа! 0