Как составить цикл архивирования всех xls в папке,каждый в отдельный файл с отдельным паролем?

Question

[fawor1t]

Привет всем! Пытался решить задачу bat скриптом и это успешно удалось,но появилась причина считывать содержимое ячейки xls и тут batch занемог :(
Помогите пожалуйста составить цикл перебора всех файлов xls в определенной папке:
для каждого файла:
-открыть ,считать содержимое ячейки (например R4C36) и записать в переменную1
-открыть из папки txt файл с именем переменной1
-записать содержимое txt (1 строку в переменную2 ,2 строку в переменную3)
-запустить архиватор где пароль переменная2 ,имя файла переменная3)

Comments

[h8nor]

считывать содержимое ячейки xls

цикл перебора всех файлов xls в определенной папке: для каждого файла

Вы пароли в файле храните? Опасно.

Можно скриптами (vbscript) читать содержимое книги, что можно запихнуть в bat:

Set fl = CreateObject("Excel.Application")
With fl.Workbooks.Open(oFile)
  ' Do Something... '
  .Close
End With

Answer 1

[fawor1t]

Пораскинул мозгами, прислушался к факту что пароли нечего хранить отдельно и сделал следующее на excel-vba

Dim sFolder
Dim Ofile

Sub Workbook_Open()
   sFolder = "С:\01\xls\"

Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each Ofile In oFSO.GetFolder(sFolder).Files
  If UCase(oFSO.GetExtensionName(Ofile.Name)) = "XLS" Then
    ProcessFiles oFSO, Ofile
  End If
  
Next

Set oFSO = Nothing

End Sub
Sub ProcessFiles(FSO, File)

Dim excel

Workbooks.Open Filename:=Ofile
excel = ActiveCell.Cells(11, 1).Value

ActiveWorkbook.Close

Windows("start.xlsm").Activate
    Sheets("Пароли").Select
a = Range("A1:B10").Find(excel).Row
b = Range("A1:B10").Find(excel).Column


pass = Sheets("Пароли").Cells(a, b + 1).Value
mail = Sheets("Пароли").Cells(a, b + 2).Value

FolderName = "С:\01\zip\"
PathZipProgram = "C:\Program Files\7-Zip\"
smail = FolderName + mail + ".zip"

ShellStr = PathZipProgram & "7z.exe a -tzip -p" & pass & "" & " " & smail & " " & Ofile & ""

Shell ShellStr




End Sub