保存工作表区域内容，用指定单元格内容命名

wyt981 · 发表于 2009-10-4 14:42

新手求助：如何用指定单元格的内容命名保存新的工作簿，附件表里有要求，谢谢了。

zhaogang1960 · 发表于 2009-10-4 15:01

请测试:
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Workbooks.Add(xlWBATWorksheet)
      rng.Copy .Sheets(1).Cells(1, 1)
      .SaveAs Filename:=ThisWorkbook.Path & "\" & [a2] & ".xls"
      .Close
End With
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

wyt981 · 发表于 2009-10-4 15:18

楼上大侠好厉害啊，可以保持所需的内容了。再问下如何将该表保存到D盘的某个文件夹呢，代码如何添加呢谢谢。

zhaogang1960 · 发表于 2009-10-4 15:25

不好意思，写的时候忙记D盘了：
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Workbooks.Add(xlWBATWorksheet)
      rng.Copy .Sheets(1).Cells(1, 1)
      .SaveAs Filename:="D:\" & [a2] & ".xls" '保存在D盘
'       .SaveAs Filename:="D:\新建文件夹\" & [a2] & ".xls"'文件夹请自己修改，新建文件夹是否存在没有作判断,请确保它存在
      .Close
End With
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

wyt981 · 发表于 2009-10-4 15:33

非常感谢楼上大侠帮助，OK了。很好用，就是看不懂代码的含义，大侠有空的话，在每行代码边上注释下，给俺科普下，哈哈，要求有点多哈。

zhaogang1960 · 发表于 2009-10-4 15:43

注释如下:
Private Sub CommandButton1_Click()
Dim rng As Range '声明变量
Set rng = ActiveSheet.UsedRange '活动工作表已经使用区域(就是要复制的区域)赋予区域变量rng
Application.ScreenUpdating = False '关闭屏幕刷新,以加快运行速度
Application.DisplayAlerts = False '关闭警告，如果D盘已经存在要保存的工作簿，就覆盖该工作簿而不显示警告框
With Workbooks.Add(xlWBATWorksheet) '新建一个只有1张工作表的工作簿
      rng.Copy .Sheets(1).Cells(1, 1) '把要复制的区域复制到新建工作簿的表1
      .SaveAs Filename:="D:\" & [a2] & ".xls" '保存在D盘'另存为D盘，此语句可以通过录制宏(另存为)获得
'       .SaveAs Filename:="D:\新建文件夹\" & [a2] & ".xls"'文件夹请自己修改，新建文件夹是否存在没有作判断,请确保它存在
      .Close '关闭新建工作簿
End With
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

wyt981 · 发表于 2009-10-4 16:50

非常感谢，学习了。在活学活用时发现个问题--将代码运用到别的文件里，保存的表打开时显示"此工作簿包含到其他数据源的链接"对话框。能否在代码里添加以消除呢

wyt981 · 发表于 2009-10-4 16:57

Set rng = ActiveSheet.UsedRange '活动工作表已经使用区域(就是要复制的区域)赋予区域变量rng
这句代码能否定义一个固定的区域,如A2:F10,以免将区域外的按钮、图标等也复制进去了。

wyt981 · 发表于 2009-10-4 17:05

Set rng = ActiveSheet.UsedRange '活动工作表已经使用区域(就是要复制的区域)赋予区域变量rng
这句代码能否定义一个固定的区域,如A2:F10,以免将区域外的按钮、图标等也复制进去了。
用Set rng = ActiveSheet.Range (“a2:f10”)就可以了，哈哈，解决了一个问题

，其他的问题还要大侠解决了。

lb_bn · 发表于 2009-10-4 17:12

可以在thisworkbook的属性里设置,neverupdate

		自动登录	找回密码
密码			免费注册

[求助] 保存工作表区域内容，用指定单元格内容命名

回复 5楼 wyt981 的帖子

评分

回复 7楼 wyt981 的帖子