Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2019 - 11 48
     12
3456789
10111213141516
17181920212223
24252627282930


站点统计

最新日志
Windows Phone 8 如何获取手机屏幕的物理尺寸 批量横断面绘制 RoadHdm V4.1
晴天 Excel 2010 导出工作表 VBA(去掉公式)   [ 日期:2014-09-11 ]
Sub SaveAsSheet() 
    
    Dim AtAPP As Excel.Application
    Dim AtBook As Excel.Workbook
    Dim AtSheet As Excel.Worksheet
    Dim flieName As String
    
    ActiveSheet.Copy
    Set AtBook = Excel.ActiveWorkbook
    Set AtSheet = ActiveSheet
        AtSheet.Cells.Select
        Selection.Copy
        AtSheet.Cells.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("A1").Select
    flieName = Application.GetSaveAsFilename(fileFilter:="Excel files (*.xls),*.xls,All files (*.*),*.*")
    If flieName <> "False" Then
        AtBook.SaveAs flieName, FileFormat:=xlExcel8
        ActiveWindow.Close
    Else
        ActiveWindow.Close False
    End If
    
End Sub





[阅读字体大小: ]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=81
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=81&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情