Копирование и вставка Exel - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день, помогите с следующие задачей Копировать с файла kurs.xlsx данные находящиеся (А1:Е21) (без формул только текст) и вставлять в другой файл basekurs.xlsx И при каждом запуске скрипта файл basekurs.xlsx дописывался в конце данными из файла kurs.xlsx

Решение задачи: «Копирование и вставка Exel»

textual
Листинг программы
Sub curs()
Dim arrSrc()
Dim LastRow As Long
Dim LastRow2 As Long
Dim strDirPath1, strfilename1 As String
Dim strDirPath2, strfilename2 As String
Application.ScreenUpdating = 0
strDirPath1 = "D:\TEMP\"
strfilename1 = "kurs.xlsx"
 strfilename1 = Dir(strDirPath1 & strfilename1)
     Workbooks.Open FileName:= _
         strfilename1
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
arrSrc() = Range("A1:" & "E" & LastRow).Value
strDirPath2 = "D:\TEMP\"
strfilename2 = "basekurs.xlsx"
 strfilename2 = Dir(strDirPath2 & strfilename2)
  If Not IsFileOpen(strDirPath2 & strfilename2) Then
      Workbooks.Open FileName:= _
        strfilename2
    Else
    Windows("basekurs.xlsx").Activate
    End If
     LastRow2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Cells(LastRow2 + 1, 1).Resize(LastRow, 5).Value = arrSrc()
Application.ScreenUpdating = 1
  End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5