用户登陆
站点统计
最新评论
日志搜索
其他信息
Excel 2010 导出工作表 VBA（去掉公式） [ 日期：2014-09-11 ] 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