网抓学习笔记，通过抓取快递单号读取快递信息，方法：vba，powerquery等

苏子龙

1. 'DataObject是要在vbe-工具-引用-Microsoft Forms X.X object Library
   
2. Sub test()
   
3. Dim strPic$, d As Object, strPic2$
   
4. Application.ScreenUpdating = False
   
5. Set d = New DataObject '学习用这个用这个插入图片
   
6. For i = 1 To 42
   
7.     strPic = "<table><img src=""https://newimg.uumnt.com:446/Pics/2017/1012/09/" & Format(i, "00") & ".jpg"" weight=""120"" height=""200"" />"
   
8.     d.SetText strPic
   
9.     d.PutInClipboard
   
10.     Cells((i Mod 9) + 1, Int(i / 9) + 1).Select
    
11.     ActiveSheet.Paste
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub

复制代码

抓点能活跃气氛的图片，，发现越学学不会