Nhờ giúp đỡ về QueryTables

[luanon]

Nhờ anh chị giúp giùm như sau:
1. Mình có 1 file excel, nhu cầu là file này sẽ update dữ liệu tự động từ web về file để xử lý dữ liệu.
2. Mình đã lấy được dữ liệu về rồi, tuy nhiên, khi Click vô nút update lần thứ 2 thì dữ liệu mới lấy về không đè lên dữ liệu cũ mà nó chèn vào cột kế bên.

==> Mục tiêu: Nhờ anh chị giúp làm sao cho khi Get dữ liệu mới về, thì được ghi đè lên vị trí dữ liệu cũ đã lấy.

Cảm ơn anh chị

 

[Nguyễn Duy Tuân]

Để thay thế QueryTable cũ, bạn phải viết lệnh Delete tất cả Query table cũ. Làm khóe thì bạn chỉ delete đúng cái Query bạn cần thôi. Nhưng mức độ căn bản tôi chỉ ra cho bạn xóa tất, bạn có thể tự chỉnh lại.

1. Viết thêm một macro để xóa tất cả Query Table

Sub DeleteAllQry()

    Dim qry As QueryTable

    For Each qry In ActiveSheet.QueryTables

        qry.ResultRange.ClearContents

        qry.Delete

    Next

End Sub

2. Code Tạo Query Table bạn chỉnh lại như sau

Public Sub GetdataKLKhopLenh(ByVal StockSticker As String, ByVal getondate As String)
    Dim qrytbl As QueryTable
    Dim qrytbls As QueryTables
    Dim Connstr As String
    Dim bflag As Boolean
   
    DeleteAllQry
   
    Connstr = "URL;http://s.cafef.vn/Lich-su-giao-dich-" & StockSticker & "-6.chn?date=" & getondate
   
    Set qrytbls = ActiveSheet.QueryTables
    Set qrytbl = qrytbls.Add(Connection:=Connstr, Destination:=Range("A5"))
        qrytbl.AdjustColumnWidth = True
        qrytbl.FillAdjacentFormulas = True
        qrytbl.FieldNames = True
        qrytbl.RowNumbers = False
        qrytbl.FillAdjacentFormulas = True
        qrytbl.PreserveFormatting = False
        qrytbl.RefreshOnFileOpen = True
        qrytbl.BackgroundQuery = True
        qrytbl.RefreshStyle = xlInsertDeleteCells
        qrytbl.SavePassword = False
        qrytbl.SaveData = True
        qrytbl.RefreshPeriod = 1    '1 minute period to refresh data
        qrytbl.WebSelectionType = xlSpecifiedTables
        qrytbl.WebFormatting = xlWebFormattingNone 'xlWebFormattingAll '
        qrytbl.WebTables = """GirdTable2"",""tblData"""
        qrytbl.WebPreFormattedTextToColumns = False
        qrytbl.WebConsecutiveDelimitersAsOne = True  'false
        qrytbl.WebSingleBlockTextImport = True 'False
        qrytbl.WebDisableDateRecognition = False
        qrytbl.WebDisableRedirections = False
        qrytbl.Refresh BackgroundQuery:=True

End Sub

 

[Nguyễn Duy Tuân]

Bạn nào không biết lập trình VBA mà muốn dùng hàm cập nhật biểu đồ chứng khoán từ CafeF hay các trang khác thì dùng hàm BS_PIC của A-Tools trong Video này nhé

 

[hongfxhp]

Bạn nào không biết lập trình VBA mà muốn dùng hàm cập nhật biểu đồ chứng khoán từ CafeF hay các trang khác thì dùng hàm BS_PIC của A-Tools trong Video này nhé

Nhìn chữ ký của bác thấy bác pro excel vba rồi