вопросы по Эксель

[ShamanK]

в последнюю строку нужного столбца не нужно...
в столбце каждая строка это день, файл с историей больше чем за 10 дней ))

[ShamanK]

уважаемый EducatedFool

при старте вашего кода

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                                   (ByVal pCaller As Long, ByVal szURL As String, _
                                    ByVal szFileName As String, ByVal dwReserved As Long, _
                                    ByVal lpfnCB As Long) As Long

Function DownLoadFile(FromPathName As String, ToPathName As String) As Boolean
    DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function

Sub Main()
    Dim ссылка As String, Filename As String
    ссылка = "http://ichart.finance.yahoo.com/table.csv?s=A&d=9&e=19&f=2009&g=d&a=10&b=18&c=1999&ignore=.csv"
    Filename = "C:\WINDOWS\Temp\файл.csv"
    On Error Resume Next: Kill Filename

    If DownLoadFile(ссылка, Filename) Then
        Dim wb As Workbook
        Set wb = Workbooks.Open(Filename)
        ' читаем данные из файла
        'wb.Close False
    Else
        MsgBox "Не удалось загрузить файл :(", vbCritical
    End If
End Sub

выползает вот такая ошибка

Constants, fixed-length strings, arrays, user-defined types and Deklare statements not allowed as Public members of object modules

и выделяется этот текст кода

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                                   (ByVal pCaller As Long, ByVal szURL As String, _
                                    ByVal szFileName As String, ByVal dwReserved As Long, _
                                    ByVal lpfnCB As Long) As Long

в чем проблема не могу понять.

[EducatedFool]

Код надо вставлять не в модуль листа или книги, а в стандартный модуль (контекстное меню Insert - Module)

[ShamanK]

Сообщение от EducatedFool

Код надо вставлять не в модуль листа или книги, а в стандартный модуль (контекстное меню Insert - Module)

я уже вставил, все работает, правда поскольку я работал с кодом внутри листа, то теперь бьюсь головой об стенку как вызвать модуль кнопкой расположенной на листе.. ну вот такой я даун