html & VBA
как при помощи VBA написать html , чтоб эта страница скачивала на комп того кто открыл её , файл с web сервера ?
все очень просто,создай чистый лист в Excele,размести на нем кнопку,вот ее код
Private Sub CommandButton1_Click()
Open (Application.ActiveWorkbook.Path & "\get_file.html") For Output As 1
Print #1, "<html><head>"
Print #1, "<title>Untitled</title>"
Print #1, "<style>a:hover{color:red};</style>"
Print #1, "</head><body bgcolor='#00FF00' text='#000000' link='#0000FF'>"
Print #1, "Скачать файл"
Print #1, "</body></html>"
Close #1
MsgBox "Файл создан", vbInformation, "Ку-Ку!!!"
End Sub
Private Sub CommandButton1_Click()
Open (Application.ActiveWorkbook.Path & "\get_file.html") For Output As 1
Print #1, "<html><head>"
Print #1, "<title>Untitled</title>"
Print #1, "<style>a:hover{color:red};</style>"
Print #1, "</head><body bgcolor='#00FF00' text='#000000' link='#0000FF'>"
Print #1, "Скачать файл"
Print #1, "</body></html>"
Close #1
MsgBox "Файл создан", vbInformation, "Ку-Ку!!!"
End Sub