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

ssj706948 · 发表于 2011-1-12 10:20

回复1960

With .Sheets(1).Cells(1, 1).Resize(UBound(arr), UBound(arr, 2))
.Value = arr
.Borders.LineStyle = xlContinuous '加边框
End With

用在一楼怎改，只加四周边框线

book123 · 发表于 2011-1-26 10:53

原帖由 zhaogang1960 于 2009-10-4 15:43 发表
注释如下:
Private Sub CommandButton1_Click()
Dim rng As Range '声明变量
Set rng = ActiveSheet.UsedRange '活动工作表已经使用区域(就是要复制的区域)赋予区域变量rng
Application.ScreenUpdat ...

谢谢分享。

joinge · 发表于 2011-8-20 16:22

zhaogang1960 发表于 2009-10-4 22:04
测试出来了，看来我没有看懂公式，只好去掉公式了：
Private Sub CommandButton1_Click()
Dim rng As ...

请问新保存的文件如何保持与原文件的格式一样（包括单元格的数值类型，和大小等），谢谢

鸭丫0 · 发表于 2012-5-14 22:16

这正是我要的！谢谢分享

cxh2010 · 发表于 2012-5-14 22:34

zhaogang1960 发表于 2009-10-4 22:04
测试出来了，看来我没有看懂公式，只好去掉公式了：
Private Sub CommandButton1_Click()
Dim rng As ...

能否用Sheet2的A9单元格的内容来命名？为什么下面的代码出错了，

.SaveAs Filename:="D:\" &Sheet2 .[a9] & ".xls

cxh2010 · 发表于 2012-5-14 22:45

此问题已解决了

南昌拉丁 · 发表于 2014-2-12 13:13

cxh2010 发表于 2012-5-14 22:45
此问题已解决了

为什么用这种方式保存的文件都很大呢，有没有办法可以让另存的文件小一些！谢谢！

七彩屋 · 发表于 2014-3-13 18:19

zhaogang1960 的方法学习了

ygslwo · 发表于 2018-4-16 13:30

joinge 发表于 2011-8-20 16:22
请问新保存的文件如何保持与原文件的格式一样（包括单元格的数值类型，和大小等），谢谢

同问。。。。。。。。。。。。。。。

从此以后叫锦鲤 · 发表于 2021-9-24 15:50

zhaogang1960 发表于 2009-10-4 18:13
不知道你需要什么边框，下面代码仅加上了一般边框：
Private Sub CommandButton1_Click()
Dim arr ' ...

大佬我的问题跟这个差不多也根据您写的这个尝试去修改但是失败了。麻烦大神去看下我的贴子呗？

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

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