Microsoft Excel FAQ (Часть 1) - [13] :: Программы :: Компьютерный форум Ru.Board

saym101
прямой реализации не знаю, но вот из интернета взять курс можно в формате XML (например с ЦБР читать), а на этом форуме обсуждалось тут и тут,
а Excel, вроде, умеет с XML работать...

Добавлено
saym101 и вдогонку:

Код:

Sub Get_Kurs()
Dim FN As String
Dim Kurs As Currency
Dim XMLWB, LastRow As Object
Dim CurrentDate As Date
CurrentDate = Now

FN = "http://www.cbr.ru/scripts/XML_dynamic.asp?VAL_NM_RQ=R01235&date_req1="
FN = FN + Format(CurrentDate - 7, "dd\/mm\/yyyy")
FN = FN + "&date_req2="
FN = FN + Format(CurrentDate, "dd\/mm\/yyyy")

Set XMLWB = Application.Workbooks.OpenXML(FileName:=FN)
Set LastRow = XMLWB.ActiveSheet.Rows.SpecialCells(xlLastCell).EntireRow
Kurs = LastRow.Cells(9)
XMLWB.Close
ActiveSheet.Range("A1").Value = Kurs

End Sub

не судите строго, я не знаю (и не очень люблю VBA :)

Добавлено
Roma79
Там не все так просто... Как определить четные или нечетные, если они там не только по вертикали, но и по горизонтали разбиваются.
Но если надо только по вертикали, то попробуй так:
для нечетных

Код:

For i = 1 To Int(ActiveSheet.HPageBreaks.Count + 1) Step 2
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1
Next i

и для четных

Код:

For i = 2 To Int(ActiveSheet.HPageBreaks.Count + 1) Step 2
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1
Next i

Добавлено
EXTERMINATOR
опиши подроднее формат, а то так не ясно где и чего...

Модерирует : gyra, Maz
Widok (01-04-2006 15:33): лимит страниц. переезжаем сюда.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100