Имам разработен ГФО... но не мисля, че точно той е подхоящ за демонстратор на възможностите ми. Бих ви го предоставил, но на адекватна цена.

Както лека демонстрация ви предлагам ето това макро за Ексел:


----

Sub ER()

Dim wksEr As Worksheet, objWeb As QueryTable
Dim strStartDate As String, strEndDate As String, strEr As String * 3

strStartDate = InputBox("Start Date:", "Start Date")
strEndDate = InputBox("End Date:", "End Date")
strEr = InputBox("Currency:", "Currency")

Application.ScreenUpdating = False

On Error Resume Next
Application.DisplayAlerts = False
Sheets(strEr).Delete
Application.DisplayAlerts = True
On Error GoTo 0

Set wksEr = Worksheets.Add
wksEr.Name = strEr
wksEr.Activate

Set objWeb = ActiveSheet.QueryTables.Add(Connection:="URL;http://www.bnb.bg/bnb/rates.nsf/aMakeTable?OpenAgent&startDate=" & strStartDate & "&endDate=" & strEndDate & "&lang=1&val&" & strEr, Destination:=Range("a1"))

With objWeb
.Name = "ERS"
.BackgroundQuery = False
.TablesOnlyFromHTML = True
.WebTables = "3"
.Refresh BackgroundQuery:=False
.SaveData = True
End With

ActiveSheet.QueryTables.Item("ERS").Delete
Application.ScreenUpdating = True

End Sub

----

Внимание - червения текст от кода трябва да се въведе на един ред! а не на няколко както излиза тук...

Служи за сваляне в Ексел на валутни курсове от сайта на БНБ - при стартиране ви пита за начална и крайна дата и код на валутата която искате да свалите, като датите се указват във формат ден/месец/година с четири цифри... След като му подадете трите параметъра прави връзка със сайта на БНБ, създава нов лист в работната книга и поставя в него данните от сайта на БНБ.

Съвсем базова разработка е, дори не прави проверка за правилността на данните които му подавате, има много детайли които могат да се доизпипат и подобрят.

Редактирано от Дaчko на 23.01.09 16:50.