Sub tracuu()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = False
ie.navigate "[URL="http://www.gdt.gov.vn/index.jsp?sid=7&scr=1024&progid=26051"]http://www.gdt.gov.vn/index.jsp?sid=7&scr=1024&progid=26051[/URL]"
Do Until ie.readyState = READYSTATE_COMPLETE
Loop
For Each ieForm In ie.document.forms
If InStr(ieForm.innerText, "doanh") <> 0 Then
ieForm(0).Value = Range("a1")
ieForm.submit
Exit For
End If
Next
ie.Visible = True
End SubOption Explicit
Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", vWebFile, False 'Mo trang web voi phuong thuc get
oXMLHTTP.Send
Do While oXMLHTTP.readyState <> 4
DoEvents
Loop
oResp = oXMLHTTP.responseBody 'tra ve ket qua
'ghi file ra o cung
vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oResp
Close #vFF
Set oXMLHTTP = Nothing
End Function
Sub ghifile()
SaveWebFile "[URL="http://rdy.somee.com/vp.xls"]http://rdy.somee.com/vp.xls[/URL]", "C:\vp.xls"
End Sub
Còn vụ này thì em nghĩ có lẻ phải hỏi ý kiến tác giả: RuadangyeuHôm nay thì mình đã load được filexem phim.zip nhưng khi mở thì ko Conect được phần xem phim (nhạc thì mở được), hay tại máy mình bị chặn nhỉ?
nguyen huong giang đã viết:Hôm nay thì mình đã load được filexem phim.zip nhưng khi mở thì ko Conect được phần xem phim (nhạc thì mở được), hay tại máy mình bị chặn nhỉ?
chương trình của pác ruadangyeu hay, nhưng phải chi có một nút Brown để duyệt đế các ổ đĩa hoặc ở Desktop thì hay biết mấy, vì em có một số bài hát nằm trong máy em muốn nghe trên excel thì thế nào nhỉ! có ai biết không nhỉ
