Batya
|
Posted: Thu Feb 25, 2021 19:28 Post subject: |
|
|
Monarch-LFV
Без проблем:
Code: | '=================================================
' Script for WinScriptAdv content plugin
' Возвращает значение последней ячейки Excel в указанном столбце
'=================================================
'========== Изменяемые параметры =================
Const Addr = "Лист1!C" ' Адрес ячейки без строки
'=================================================
content = Result(filename, Addr)
Function GetCellValue(pXl, pFile, pAddr)
Dim lRow, lSh
pXl.Visible = False
pXl.DisplayAlerts = False
Call pXl.Workbooks.Open(pFile, , True)
If InStr(pAddr, "!") > 0 Then
Set lSh = pXl.Worksheets(Left(pAddr, InStr(pAddr, "!") - 1))
Else
Set lSh = pXl.ActiveSheet
End If
lRow = lSh.UsedRange.Find("*", , , , , 2).Row
GetCellValue = lSh.Range(pAddr & CStr(lRow))
Set lSh = Nothing
End Function
Function Result(pFile, byVal pAddr)
Dim objXL
Set objXL = CreateObject("Excel.Application")
On Error Resume Next
Result = GetCellValue(objXL, pFile, pAddr)
On Error Goto 0
objXL.Quit()
Set objXL = Nothing
End Function |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|