|
大师们,您好,前段时间买了教材,收益不少,只是还不能贯通!
前几天写了个程序,程序前面所有问题已经解决,就是到后面时遇到问题。用VBA程序新建excel,然后复制不同的内容到每个新建的excel文件,然后保存,之后新建下个excel,问题是保存第一个可以,到第二个时候就跟第一次保存的重名了,如何解决??感激不尽!
更深一点,如果用原始excel中的某一列内容命名,如何做?
本帖最后由 zjdh 于 2013-7-9 21:08 编辑
DIM I
Sub .........
'.............
'.............
I=I+1
NAM = ThisWorkbook.Sheets(1).Cells(I, 1).Value
ActiveWorkbook.SaveAs Filename:="D:\" & NAM & ".xls", FileFormat:=xlExcel8
ActiveWindow.Close
I = I + 1
End Sub
|
|