|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
lijian8003 发表于 2013-3-17 17:01
上传附件,为使体积达到能够上传要求,已简略。数据文本“K_QWS.txt ”放在“D:\QWS\数据”这个文件夹里 ...
用程序导入文本文件,再运行工作簿中的程序:- Sub 循环打开工作簿并运行它的宏()
- Dim p$, f$, s$(), srr&(), i&, j&, a
- Application.ScreenUpdating = False
- Open "D:\QWS\数据\K_QWS.txt" For Input As #1
- s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
- Close #1
- ReDim srr(UBound(s), 63)
- For i = 0 To UBound(s)
- a = Split(s(i), " ")
- For j = 0 To 63
- srr(i, j) = a(j)
- Next
- Next
- p = ThisWorkbook.Path & ""
- f = Dir(p & "*.xls*")
- Do While f <> ""
- If f <> ThisWorkbook.Name Then
- With Workbooks.Open(p & f, 0)
- .ActiveSheet.[FE1].Resize(i, 64) = srr
- Application.Run "'" & f & "'!模块1.Macro1"
- .Close True '关闭保存
- End With
- End If
- f = Dir
- Loop
- Application.ScreenUpdating = True
- MsgBox "ok"
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|