VBA: проблема с переносом данных из одной рабочей книги в другую - PullRequest
Новая
       43

VBA: проблема с переносом данных из одной рабочей книги в другую

0 голосов
/ 12 ноября 2018 
Dim wb As Workbook

    Set synthese = Sheets("Synthèse")
    Set wb = Workbooks.Open(Filename:="C:\Users\bm00096\Desktop\Stage PMTC AHMAD MUHAMAD 2018\RFE Management\Experimentation of outil and analysis\Evolution RFE_ANALYSIS v3.0.xlsm")
    wb.Sheets("Base").Visible = True
    Sheets("Base").Unprotect "roulage_ASVH"
    wb.Sheets("Base").Select

    i = 1

    While wb.Sheets("Base").Cells(i, 1).Value <> ""
        i = i + 1
    Wend

    synthese.Cells.Range("A2:AI100").Copy
    wb.Sheets("Base").Cells(i, 1).Select
    ActiveSheet.Paste
    Sheets("Base").Protect "roulage_ASVH"
    ActiveWindow.SelectedSheets.Visible = False
    wb.RefreshAll
    wb.Close True
    Application.CutCopyMode = False
    Set wb = Nothing
    Set synthese = Nothing

    Sheets("Synthèse").Unprotect "roulage_ASVH"
    Sheets("Synthèse").Range("A2:AI200").ClearContents
    Sheets("Synthèse").Protect "roulage_ASVH"

End Sub

Привет, ребята, в основном у меня есть 300 строк данных из листов "Синтез", и я хочу перенести эти данные в другую рабочую книгу на листах "База". Итак, я написал код для передачи этих данных. Коды работают очень хорошо, они действительно передают данные. НО проблема в том, что он передает только 98 строк данных, а не все 300 данных. Я пытаюсь изменить формат обеих книг на один и тот же формат, но он все еще не работает. Пожалуйста, помогите мне с этой проблемой.

...