[Iska]

fawor1t, не хватает малости — упаковать в архив примеры файлов .xls и .txt, и приложить его к сообщению. Их содержимое важно для понимания работы кода и его отладки.

1) При переборе через For Each oFile In oFSO.GetFolder(sFolder).Files , oFile является ли переменной которая содержит имя файла ? »

Свойство .Files класса Folder возвращает коллекцию объектов типа File:

Скрытый текст

Код:

Option Explicit

Dim objFSO
Dim objFolder
Dim objFile

Set objFSO    = WScript.CreateObject("Scripting.FileSystemObject")
WScript.Echo TypeName(objFSO)

Set objFolder = objFSO.GetFolder("c:\")
WScript.Echo TypeName(objFolder)

WScript.Echo TypeName(objFolder.Files)

For Each objFile In objFolder.Files
	WScript.Echo TypeName(objFile)
	
	Exit For
Next

Set objFSO = Nothing

WScript.Quit 0

Код: C:\Мои проекты\0098>0003.vbs FileSystemObject Folder Files File

Кроме того, в VB/VBScript/VBA есть две особенности — неявное преобразование типов и использование свойства по умолчанию. У класса File свойством по умолчанию является свойство .Path (можно посмотреть любым браузером объектов: WSH: браузеры объектов автоматизации (OLE/COM/Automation) — Серый форум). Посему две выделенные строки в таком коде:

Код:

With WScript.CreateObject("Scripting.FileSystemObject")
	WScript.Echo .GetFile("C:\Windows\System32\notepad.exe").Path
	WScript.Echo .GetFile("C:\Windows\System32\notepad.exe")
End With

дадут один и тот же результат.

Ответ на вопрос — переменная oFile содержит объект типа File.

2) Если да,то как использовать значение oFile в пути открытии книги? Workbooks.Open "C:\???.xls" ' »

Код:

Workbooks.Open oFile.Path

но код надо править: следует запоминать ссылку на открытую методом .Open() Рабочую книгу и работать именно с ней, а не играться в игры с Workbooks(1).

4) какой правильный синтаксис указания переменной в пути? & CStr(переменная) верно ли? "U:\ZP\zip\& CStr(переменная) &.zip" »

Смотря что за переменная. Общий принцип:

Код:

"U:\ZP\zip\" & Переменная & ".zip"

CStr() нужна только для преобразования значения переменной в строковое представление в случае потребности.

5) Действительно ли этим var oWshShell = new ActiveXObject("WScript.Shell") можно запустить exe файл с параметрами? »

Можно. Но Вы взяли синтаксис из JScript. Это другой язык.

[megaloman]

fawor1t,

При наличии отсутствия Вашей реакции на вопросы, в первом приближении вариант скрипта

Код:

ExtIn = "xls"               'Расширение Excel-файла
RangeIn = "C4"              'Адрес клетки, где хранится имя текстового файла с паролем и именем файла для архивации

BoxIn = "Z:\Box_In"         ' Папка с Excel-файлами
BoxTxt = "Z:\Box_In"        ' Папка с текстовыми файлами в Windows кодировке 1251
BoxFrom = "Z:\Soft_In"      ' Папка с файлами, которые надо упаковать
BoxArc = "Z:\Soft_Arc"      ' Папка с упакованными файлами

TimeErr = 20                    ' Время отображения сообщения об ошибке
Arc = """C:\Program Files\7-Zip\7zG.exe"" a -tzip -p"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WShell = CreateObject("WScript.Shell")

On Error Resume Next
Set InBox = FSO.GetFolder(BoxIn)

If Err.Number <> 0 Then
    LL = WShell.Popup("Папка" + vbCrLf + vbCrLf + BoxIn + vbCrLf + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description, 0, "Открытие папки", 16)
    On Error GoTo 0
Else

    Set XL = CreateObject("Excel.Application")
'   XL.Visible = True
    XL.Visible = False

    On Error GoTo 0
    Set AllFiles = InBox.Files

    For Each File In AllFiles
        XlsName = BoxIn + "\" + File.Name
        If LCase(FSO.GetExtensionName(XlsName)) = LCase(ExtIn) Then

            Set XLbook = XL.Workbooks.Open(XlsName)
            TxtName = BoxTxt + "\" + CStr(XL.Range(RangeIn).Value)
            XLbook.Close

            On Error Resume Next
            Set iTxt = FSO.OpenTextFile(TxtName, 1)
            If Err.Number <> 0 Then
                LL = WShell.Popup(XlsName + vbCrLf + vbCrLf + "Файл" + vbCrLf + TxtName + vbCrLf + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description, TimeErr, "Открытие файла", 48)
            Else
                Pass = Trim(iTxt.ReadLine)
                If iTxt.AtEndOfLine Then
                    LL = WShell.Popup(XlsName + vbCrLf + vbCrLf + "В файле" + vbCrLf + TxtName + vbCrLf + vbCrLf + "Не хватает данных", TimeErr, "Ошибка", 48)
                Else
                    ForArcFile = Trim(iTxt.ReadLine)
                    If FSO.FileExists(BoxFrom + "\" + ForArcFile) Then
                        LL = WShell.Run(Arc + Pass + " """ + BoxArc + "\" + ForArcFile + ".zip"" """ + BoxFrom + "\" + ForArcFile + """", 1, True)
                    Else
                        LL = WShell.Popup(XlsName + vbCrLf + TxtName + vbCrLf + vbCrLf + "Нет файла" + vbCrLf + BoxFrom + "\" + ForArcFile, TimeErr, "Ошибка", 48)
                    End If
                End If
                iTxt.Close
            End If
            On Error GoTo 0

        End If
    Next

    XL.Quit
End If

[Iska]

megaloman, повторюсь, лучше использовать возвращаемую ссылку, т.е., не:

Код:

XL.Workbooks.Open XlsName
…
XL.ActiveWorkbook.Close
…

а:

Код:

Set objWorkbook = XL.Workbooks.Open(XlsName)
…
objWorkbook.Close
…

[fawor1t]

Привет всем еще раз,увы вчера не смог зайти на форум ,но в итоге решил задачу сам. Разве что пароли из хранения в файлах перенес в файл эксель . Спасибо за ответы благодаря им познакомлюс с 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