¨Ï¥ÎVBA§ì¨úºô¶¸ê®Æ¡A¤j¬ù¤£¨ì5µ§´N·|·í±¼¡A¨D¸Ñ
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 1# clio
¥u§ì
https://www.digikey.tw/products/en?keywords=%22CRL2010-JW-1R00ELF-ND%22
³Ñ¤U½Ð¦Û¦æקï
test.zip (15.43 KB)
|
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 3# clio
¤@µ§¡A¦hµ§¡AµL¸ê®Æ¡A¥i¥Îºô¶¤W¦³´XÓtable§PÂ_
¤U¤è¬O¦hµ§- Sub test()
- Cells.ClearContents
- '³]©w¤Þ¥Î¶µ¥Ø microsoft html object library
- Dim bPostData() As Byte
- Dim URL, strurlHeaders As String
- Dim i, j As Integer
- Dim hDoc As New MSHTML.HTMLDocument
- Dim objIE As Object
- spath = ThisWorkbook.Path
- URL = "https://www.digikey.tw/products/en?keywords=ULN2003AFWG"
- ' Stop
- strurlHeaders = "Content-Type: application/x-www-form-urlencoded"
- Set objIE = CreateObject("InternetExplorer.Application")
- With objIE
- .Visible = True
- .Navigate URL, , , bPostData, strurlHeaders
- Do While .readyState <> 4: DoEvents: Loop
- Set hTable = .Document.getElementsByTagName("table")(0)
- With ActiveSheet
- For i = 0 To hTable.Rows.Length - 1
- For j = 0 To hTable.Rows(i).Cells.Length - 1
- .Cells(i + 1, j + 1) = hTable.Rows(i).Cells(j).innerText
- Next
- Next
- End With
- End With
- objIE.Quit
- Set objIE = Nothing
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¥»©«³Ì«á¥Ñ joey0415 ©ó 2019-8-29 21:10 ½s¿è
¦^´_ 7# clio
ª½±µ½Õ¥ÎApplication.Wait
VBA¤ºªºApplication Object ¦³ Wait ¥i¨Ñ¨Ï¥Î¡AYn¼È°±1¬í¡A¥i½s½X¡G
Application.Wait Now + TimeValue("00:00:01")
¥[¤Wµ¥«Ý®É¶¡¸Õ¸Õ
¦³ªººô¯¸nµ¥
¬í¼Æ¤£¤@©w
¤½¶}¸ê°T¯¸goodinfoµ¥¡Aª¦¤Ó§Ö³£·|Âêip
¦pªGÁÙ¤£¦æ
¦A½Ð¯q§Oªº°ª¤â |
|
|
|
|
|
|