Visual Basic перенос данных с одного документа в другой - 28 Октября 2012 - Дневник - Скачать бесплатно игры,фильмы,программы...
Приветствую Вас, Гость! Регистрация RSS

Шняга

Пятница, 09.12.2016
Главная » 2012 » Октябрь » 28 » Visual Basic перенос данных с одного документа в другой
22:57
Visual Basic перенос данных с одного документа в другой
Code

Sub readFile()
Dim ArrayStr(1 To 10) As String 'создаем масив строк на 10 эл-тов
Dim stroka As String

'================================инициализация======
ArrayStr(1) = "C:\Users\Met\Desktop\1805\010212.xls"
ArrayStr(2) = "C:\Users\Met\Desktop\1805\010312.xls"
ArrayStr(3) = "C:\Users\Met\Desktop\1805\010412.xls"
ArrayStr(4) = "C:\Users\Met\Desktop\1805\010512.xls"
ArrayStr(5) = "C:\Users\Met\Desktop\1805\010612.xls"
ArrayStr(6) = "C:\Users\Met\Desktop\1805\010712.xls"
ArrayStr(7) = "C:\Users\Met\Desktop\1805\010812.xls"
ArrayStr(8) = "C:\Users\Met\Desktop\1805\010912.xls"
ArrayStr(9) = "C:\Users\Met\Desktop\1805\011012.xls"
Dim oXL As Workbook
For wb = 1 To 9 'цикл по массиву т.к. мне не надо было так их много =)

Set oXL = Workbooks.Open(ArrayStr(wb)) ' !!! открытие документа
'внешний цикл по рядам
Dim i As Integer, j As Integer
For i = 4 To 34
For j = 7 To 48
  If ThisWorkbook.Sheets(1).Cells(j, i).Locked Then
ThisWorkbook.Sheets(1).Cells(j, i).Value = oXL.Sheets(1).Cells(j, i).Value + ThisWorkbook.Sheets(1).Cells(j, i).Value
End If
Next j
Next i

oXL.Close ' закрываем документ
Next wb
Set oXL = Nothing ' обнуляем переменную

End Sub
Просмотров: 342 | Добавил: dragon | Теги: перенос данных, exel, помогите, Visual Basic | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]