Открыть файл, разделить ячейку на 1000, сохранить файл, закрыть файл. Как?

[Ник Харди]

Макрос должен запускаться из внешнего файла (Макрос.xls).
Спрашивать, откуда ему взять файл для обработки.

Далее ячейку а1 он должен делить на 1000.
Сохранять файл.


Основная сложность, с которой я столкнулся - не получается задать ячейке во ВНЕШНЕЙ (открытой) книге значение этой же ячейки, деленное на 1000.
Почему-то макрос всё время обращается к той книге, в которой сам макрос и содержится (Макрос.xls).

[doober]

А текст макроса посмотреть можно?

[Ник Харди]

У нас теплоэнергетическая компания, потому не удивляйтесь наиминованиям Тепло Своё и Котёл 1.

Sub Transport_from_1()

'Спросим, из какой папки взять файлы

With Application.FileDialog(msoFileDialo gFolderPicker)
.Title = "Укажите рабочую папку": .Show
If .SelectedItems.Count = 0 Then
Exit Sub
Else
path = .SelectedItems(1) & "\"
End If
End With


file = Dir(path & "*.xlsx")
Do While file <> ""
Application.Workbooks.Open (path & "\" & file)


'С каким листом в открытой книге работаем?
listname = "Топливо форма"

'С какой по какую строчку обрабатывать (jFirst, jEnd).
jFirst = 6
jEnd = 17

'И через сколько строк перескакивать
StepInt = 5


'Вызываем функцию деления
Call Svoyo


'Сохранение книги в текущую папку под новым именем
ActiveWorkbook.SaveAs ActiveWorkbook.path & "\" & file & "_1.1.xlsm"

'Переходим к новому файлу в директории
file = Dir
Loop


'Когда обработаем все файлы - позакрываем книжки
ThisWorkbook.Close (savechanges = False)
ActiveWorkbook.Close (savechanges = False)

End Sub


----------------------------------------------------------
Sub Svoyo()

'Какие ячейки будем делить?

'Котёл 1
'Со строчки 80 по 110, пожалуйста.
FirstCell = 80: EndCell = 110
'Вызываем программу деления
Summer

'Котёл 2
FirstCell = 119: EndCell = 149
Summer

'Котёл 3

FirstCell = 158: EndCell = 188
Summer
'Котёл 4

FirstCell = 197: EndCell = 227
Summer


'Котёл 5

FirstCell = 236: EndCell = 266
Summer


'Котёл 6

FirstCell = 275: EndCell = 305
Summer


'Котёл 7
FirstCell = 314: EndCell = 344
Summer

'Котёл 8
FirstCell = 353: EndCell = 383
Summer


'Котёл 9

FirstCell = 392: EndCell = 422
Summer
'Котёл 10

FirstCell = 431: EndCell = 461
Summer

End Sub

-------------------------------------------------------------
Sub Summer()
Dim j As Integer, temp As Integer
For j = jFirst To jEnd
For k = FirstCell To EndCell Step StepInt
ActiveWorkbook.Sheets(listname).Cel ls = ActiveWorkbook.Sheets(listname).Cel ls / 1000
Next k
Next j

End Sub

[Ник Харди]

В Sub Summer опечатка:

ActiveWorkbook.Sheets(listname).Cel ls на самом деле выглядит как ActiveWorkbook.Sheets(listname).Cel ls(k, j)

[IgorGO]

и до знака равно и после него?
макрос хороший и должен записывать в книгу (path & "\" & file)

[Ник Харди]

И до знака и после, разумеется.
То есть

ЯЧЕЙКА = Ячейка, деленная на 1000

В целом, макрос у меня уже пашет, но там один нюанс - выдает ошибку, мол значение скрыто. Хотя оно вполне даже видимо.

[IgorGO]

видимо Sub Svoyo можно переписать так:
----------------------------------------------------------

Sub Svoyo()
  dim i as long
  'Котёл 1 до 10
  for i = 1 to 10
    FirstCell = 41+i*39: EndCell = 71+i*39
    'Вызываем программу деления
    Summer
  next i
End Sub

Номер ошибки? в какой строке?

[Hugo121]

Summer какой то непонятный... Цикл в цикле по неопределённым переменным (0 to 0), где все ячейки делятся на 1000...
Хотя вероятно не делятся - т.к. имя листа неизвестно.
Файл бы глянуть.