URL数据表放在A列,代码种设置10000行数据,其实很慢,大量数据用python实现。 Sub Macro1() Dim source As Range, req As Object, url$ Dim rc As Integer Set req = CreateObject("Msxml2.ServerXMLHTTP.6.0") Sheets(" ...
Sub bod() Dim nm$ For I = 1 To 100 '行数范围 n = n + 1 nm = ThisWorkbook.Path & "\" & Application.Trim(Cells(I, 1)) & ".txt" '记事本文件导出到Excel所在目录,A列为文件名 Open nm For Output As #I Print #I ...