※ 引述《ptguitar (佩蒂吉他)》之铭言： : 软体: excel : 版本: 2007 上次问过只有三个文字档案 现在是有很多文字档案要一起汇入 我改写上次程式 不过卡在无法关闭档案 跟回圈不会继续 不知道要怎麽改... 感谢各位 Sub 实验汇入文字档() Dim thisbook$ thisbook = ThisWorkbook.Name buf = Dir("D:\ttt\*.txt") If buf = "" Then MsgBox "找不到档案，请记得复制到指定资料夹(目前路径\ttt\项下)" Exit Sub Else End If tpbuf = "D:\ttt\" & buf cnt = 1 Do While buf <> "" Workbooks.Open (tpbuf) ActiveSheet.UsedRange.Copy Workbooks(thisbook).Activate Sheets("设定").Range("A" & cnt).Select Selection.PasteSpecial Paste:=xlPasteValues cnt = Sheets("设定").Range("A1").End(xlDown).Row + 1 Workbooks(buf).Close buf = Dir() Loop End Sub 档案如下 https://drive.google.com/open?id=0BwCgrQhGgaw7MlpFNFNMUFlZV0E --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.77 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1490758006.A.EB5.html