麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] Excel vba 錄製巨集問題 [打印本頁]

作者: Michelle-W 時間: 2015-4-30 16:33 標題: 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

作者: bobomi 時間: 2015-5-1 10:12

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

作者: Michelle-W 時間: 2015-5-1 11:48

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

作者: bobomi 時間: 2015-5-1 12:27

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

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

作者: Michelle-W 時間: 2015-5-1 17:15

回復 4# bobomi

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)