Добрый день.
Скрипт копирует данные из файла открытого на текущем компьютере и переносит в пустую ячейку файла на сетевом диске, а далее уже раскрашивает итоговый файл и создаёт границы ячеек.
Когда подобное делал с файлами не на сетевых дисках, то проблем не было и я писал в ChDir просто директорию через диск "T:\НДС".
Но вот с переходом на сетевые диски скрипт пишет, что не находит файл в по данному адресу, что я полагаю означает некорректность адреса.
Можете помочь? По поиску нашёл разные варианты смены директории и прочего, но не до конца дохожу до этого сам.
Заранее спасибо.
Скрипт копирует данные из файла открытого на текущем компьютере и переносит в пустую ячейку файла на сетевом диске, а далее уже раскрашивает итоговый файл и создаёт границы ячеек.
Когда подобное делал с файлами не на сетевых дисках, то проблем не было и я писал в ChDir просто директорию через диск "T:\НДС".
Но вот с переходом на сетевые диски скрипт пишет, что не находит файл в по данному адресу, что я полагаю означает некорректность адреса.
Можете помочь? По поиску нашёл разные варианты смены директории и прочего, но не до конца дохожу до этого сам.
Заранее спасибо.
| Код |
|---|
sub трь()
ChDir ("тут проблема")
Workbooks.Open Filename:="Тест3"
Worksheets("Лист1").Unprotect "123"
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("A1:H1").Copy
ChDir ("тут проблема")
Workbooks.Open Filename:="Тест3"
ActiveSheet.Paste Destination:=Range("$A$" & CStr(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1))
Worksheets("Лист1").Protect Password:="123", UserInterfaceOnly:=True
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If i Mod 2 = 0 Then
Range(Cells(i, 1), Cells(i, "S")).Interior.Color = RGB(221, 235, 247)
Range(Cells(i, 1), Cells(i, "S")).Borders.LineStyle = True
Else
Range(Cells(i, 1), Cells(i, "S")).Interior.Color = RGB(255, 217, 102)
Range(Cells(i, 1), Cells(i, "S")).Borders.LineStyle = True
End If
Next i
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub |
Изменено: - 11.08.2017 13:26:05
