VBA Excel 2019 прикрепить таблицу из Filepicker к листу - PullRequest
0 голосов
/ 27 февраля 2020

У меня есть Рабочий лист «Рабочий лист1» с Листом «Лист1». с существующими данными.

Теперь я хочу написать макрос VBA. Если я запускаю этот макрос, возможно ли, что открывается диалог открытия файла, где я могу выбрать простой файл Excel "Worksheet_2020_somedate" (с 1 листом), и макрос добавляет все строки из "Worksheet_2020_somedate" к существующему Лист1 в Рабочем листе 1

Возможно ли это?

Dim lngCount As Long
Dim SelectedItem As String
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Show
    ' Display paths of each file selected
    For lngCount = 1 To .SelectedItems.Count
        SelectedItem = .SelectedItems(lngCount)
    Next lngCount
End With

Application.ScreenUpdating = False
Dim closedBook As Workbook
Set closedBook = Workbooks.Open(Filename:=SelectedItem)

closedBook.Worksheets("Sheet").Copy

'Here is where i have the struggle - i want the Sheet from the closedbook ' 
'pasted/appended to "ThisWorkbook.Sheets("RawData")

closedBook.Close
Application.ScreenUpdating = True
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...