|
回复 12楼 wyt981 的帖子
不知道你需要什么边框,下面代码仅加上了一般边框:
Private Sub CommandButton1_Click()
Dim arr '声明变量
arr = Range("A1:D15") '请自己调整区域大小
Application.ScreenUpdating = False '关闭屏幕刷新,以加快运行速度
Application.DisplayAlerts = False '关闭警告,如果D盘已经存在要保存的工作簿,就覆盖该工作簿而不显示警告框
With Workbooks.Add(xlWBATWorksheet) '新建一个只有1张工作表的工作簿
With .Sheets(1).Cells(1, 1).Resize(UBound(arr), UBound(arr, 2))
.Value = arr
.Borders.LineStyle = xlContinuous '加边框
End With
.SaveAs Filename:="D:\" & [a2] & ".xls" '保存在D盘'另存为D盘,此语句可以通过录制宏(另存为)获得
' .SaveAs Filename:="D:\新建文件夹\" & [a2] & ".xls"'文件夹请自己修改,新建文件夹是否存在没有作判断,请确保它存在
.Close '关闭新建工作簿
End With
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub |
|