返回列表 上一主題 發帖

[發問] Excel vba 錄製巨集問題

[發問] Excel vba 錄製巨集問題

各位前輩好!~
我是剛接觸VBA不久的初學者,
我在錄製巨集的過程中碰到問題
在這個網頁中http://patft.uspto.gov/netahtml/PTO/search-adv.htm
打入關鍵字ttl/mouse and abst/Function
搜尋後,我以錄製巨集的方式匯入excel,
通常第一頁匯入是OK的,
第二頁後會出現太複雜無法錄製(似乎因為網址太長),
所以我直接複製第一頁的巨集,並將網址更改成第二頁的網址後,成功匯入!
第三頁(最後一頁)
以上面方式操作,執行後excel整個會轉不停,最後無回應
我實在找不出原因來...
或是各位前輩有其他vba撰寫方式,可以將每次搜尋結果(每次搜尋結果可能會變動)匯入excel
請各位前輩指點迷津~~非常感謝!!

以下是我的第一頁程式碼,2.3頁只有更改網址而已
Sub 第一頁()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&u=%2Fnetahtml%2FPTO%2Fsearch-adv.htm&r=0&f=S&l=50&d=PTXT&RS=%28TTL%2Fmouse+AND+ABST%2FFunction%29&Refine=Refine+Search&Query=ttl%2Fmouse+and+abst%2FFunction" _
        , Destination:=Range("$A$1"))
        .Name = _
        "nph-Parser?Sect1=PTO2&Sect2=HITOFF&u=%2Fnetahtml%2FPTO%2Fsearch-adv.htm&r=0&f=S&l=50&d=PTXT&RS=%28TTL%2Fmouse+AND+ABST%2FFunction%29&Refine=Refine+Search&Query=ttl%2Fmouse+and+abst%2FFunction"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

試過 excel 2000 , excel 2010 都可以成功匯入3頁
沒有發生不良反應

TOP

回復 2# bobomi
謝謝您的回覆。
我分開跑是可行的,但是把三頁的程式碼合併之後,就會無回應。
想請問您是如何執行的?

TOP

我把三頁的程式碼合併在一個SUB直接跑完

不然你試試把
.BackgroundQuery = True
改成
.BackgroundQuery = 0
看看有無好轉

TOP

回復 4# bobomi

一樣當掉耶! 我是用EXCEL 2007  
不知道有沒有關係...:L
擷取.JPG

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題