Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2050|回复: 3

[已解决]VBA中新建了多个excel 如何保存

[复制链接]
发表于 2013-7-9 20:05 | 显示全部楼层 |阅读模式
大师们,您好,前段时间买了教材,收益不少,只是还不能贯通!
前几天写了个程序,程序前面所有问题已经解决,就是到后面时遇到问题。用VBA程序新建excel,然后复制不同的内容到每个新建的excel文件,然后保存,之后新建下个excel,问题是保存第一个可以,到第二个时候就跟第一次保存的重名了,如何解决??感激不尽!
更深一点,如果用原始excel中的某一列内容命名,如何做?
最佳答案
2013-7-9 21:03
本帖最后由 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
 楼主| 发表于 2013-7-9 20:25 | 显示全部楼层
Set wb = Workbooks.Add
wb.Sheets("sheet1").Range("a1") = " "
ActiveSheet.Paste
Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="D:\b.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close就是这句 保存时候的名字让我不知道怎么处理
回复

使用道具 举报

发表于 2013-7-9 21:03 | 显示全部楼层    本楼为最佳答案   
本帖最后由 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
回复

使用道具 举报

 楼主| 发表于 2013-7-11 23:44 | 显示全部楼层
zjdh 发表于 2013-7-9 21:03
DIM I
Sub .........
  '.............

大师,太牛了,非常感谢,感激不尽!可惜我新手没分给你,下次回答,一定多给您分。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:23 , Processed in 0.346306 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表