Bạn bôi đen và copy bình thường thôi.
Uhm, import từ web tôi chưa sử dụng bao giờ.AK em đang muốn làm để update theo ngày nên việc ngày nào cũng copy thì thủ công quá ạ
AK em đang muốn làm để update theo ngày nên việc ngày nào cũng copy thì thủ công quá ạ
Mình ngồi buồn buồn như con chuồn chuồn bay thấp bay cao...tải về vọc chơi thấy nó báo cái hình sau . sau khi chọn OK thì nó thoát và lấy được tỷ giá luôn
Xem trong code có thú thích từng dòng. Tìm dòng này
Vẫn vậy Anh. hay đêm qua thức tới 2h lận vọc code sáng nay chập chờn không ngủ được vọc Tiếp thấy vẫn cứ chuồn chuồn vậy đó anh
Có gì đâu, tại phiên bản IE cũ quá. Tải InternetExplore mới về sẽ được
Chắc tại xịn quá nên nghỉ cho coi luôn
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Function Open_FireFox(ByVal CT As String, ByVal Path As String)
ShellExecute 0, "open", CT, Path, "", 1
End Function
Sub Main()
Open_FireFox "C:\Program Files (x86)\Mozilla Firefox\Firefox.exe", _
"http://sbv.gov.vn/portal/faces/vi/vim/vipages_trangchu/qlnh/tygia/tygiacheo"
End Subvẫn vậy. nhưng phát sinh khác khi xoá dữ liệu chạy lại lần 2
Khó quá bỏ qua cho đỡ mất thời gian. Phương châm của mình là khó quá thì....bỏ cho khoẻ.
Code bài 13 cũng ngon lắm nha. Có thể dùng để mở linh bằng VBA mượt lắm mà ta.
Anh hải viết cho code đó chạy được rồi Anh. rất tuyệt vời code anh hải viết trên máy đó là Wi64 nên có dòng (x86) Em xoá dòng này đi thì Ok rồi
