请教在VBA如何能使迅雷自动导入下载列表下载，谢谢！

ak47ok

在VBA中能否通过代码使迅雷自动导入下载列表来下载文件，谢谢！
我试写了以下代码没有反应。
Shell ("F:\00\th\Thunder.exe D:\下载.lst")

aman1516

貌似这样并不能导入下载列表吧

ak47ok

aman1516 发表于 2015-8-27 00:34
貌似这样并不能导入下载列表吧

知否怎样能导入，谢谢！
Sub 过程()
Dim ar, br()
rr = Cells(Rows.Count, 2).End(3).Row
cc = Cells(21, Columns.Count).End(1).Column
     ar = Range("b21:f" & rr)
    df = Range("a21:a" & rr)
     ReDim br(1 To 10, 1 To UBound(ar, 2))
  For i = 1 To UBound(ar)
    n = 11 - df(i, 1)
    For j = 1 To UBound(ar, 2)
      If ar(i, j) = 1 Then
        br(n, j) = br(n, j) + 1
      End If
    Next
  Next
    Range("b3").Resize(UBound(br), UBound(br, 2)) = br

End Sub