excel vba代码: Sub makeTxt() For i = 1 To 1088'从第1行到1088行(最后一行) On Error Resume Next'出现错误时继续运行脚本 Open "d:\" & Cells(i, 1) & ".txt" For Append As #1'新建文本文档到D盘下,并命名为句柄1,文本文档的文件为excel表格中的第一列中的内容 Print #1, Cells(i, 2)'写入excel表格中的第二列到…
function setClipBoard(str) Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("clip") Set oIn = oExec.stdIn oIn.WriteLine str oIn.Close WScript.Sleep Loop Set oIn = Nothing Set oExec = Nothing end function dim fso d…