close 
'定義webURL字串變數
Dim webURL As String
'webURL為要匯入的網址
webURL = "URL;http://xxx.xxx.xxx.xxx/123.htm"
With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
' xlOverwriteCells 表示覆蓋欄位
        .RefreshStyle = xlOverwriteCells
' 抓取網頁的第三個表格作為匯入資料
        .WebTables = "3"
        .Refresh BackgroundQuery:=False
End With

            

                        


    

        

            

                            

        

        

            arrow
        

        

            arrow
        

        
    
    
    
    
    
            
    

    



                        

    
    
    
            
    
    
    
        
    
            
    全站熱搜
    
        
    
        
    
        
    
    
    

    




                            
                
    
                        
                        

    
    
    創作者介紹
    

    
    
        
            創作者 alyoou 的頭像
        
        
    
            alyoou
            
    電腦學習園地
    
            
        
    
                    
            
    

    


                                                    
                                                            
    
        
                
    

    
    
        
    
    
    
    
        
    
            alyoou 發表在 痞客邦                    留言(0) 人氣()
                    
     
        
    
            E-mail轉寄