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 發表在 痞客邦                    留言(0) 人氣()
                    
     
        
    
            E-mail轉寄