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 |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
