Копирование и вставка 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д