Batya
|
Posted: Wed Feb 24, 2021 18:46 Post subject: |
|
|
Из другой ветки:
Monarch-LFV wrote: | Возникла необходимость вытаскивать содержимое определеной ячейки в файле Excel (например "Лист1!C12") |
Эх, давно не брал я шашки в руки
Code: | '=================================================
' Script for WinScriptAdv content plugin
' Возвращает значение ячейки Excel
'=================================================
'========== Изменяемые параметры =================
Const Addr = "Лист1!C12" ' Адрес ячейки
'=================================================
content = Result(filename, Addr)
Function GetCellValue(pXl, pFile, pAddr)
pXl.Visible = False
pXl.DisplayAlerts = False
Call pXl.Workbooks.Open(pFile, , True)
GetCellValue = pXL.Range(pAddr)
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 |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|