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

wyt981

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

zhaogang1960

请测试:
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

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

zhaogang1960

不好意思，写的时候忙记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

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

zhaogang1960

注释如下:
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

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

wyt981

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

wyt981

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

lb_bn

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