六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

vba打开工作薄、修改工作薄、保存另存退出工作薄

Admin | 2010-4-11 10:33:51 | ReadNums | 14015 | 标签 六合开奖结果现场直播 | 打印本页
     

  ①打开指定位置的工作薄

  Dim fname As String
  fname = "D:\测试.xls"
  Workbooks.Open Filename:=fname, ReadOnly:=True '以只读方式打开

  ②保存工作薄

  ActiveWorkbook.Save

  ③保存每个工作薄并退出Excel

  For Each wb In Application.Workbooks
    wb.Save
  Next wb
  Application.Quit

  ④另存工作薄的多种方法

  第一种方法:ActiveWorkbook.SaveAs "<工作簿名>.xls" 

  第二种方法:

  Dim oldName As String, newName As String
  Dim folderName As String, fname As String
  oldName = ActiveWorkbook.Name
  newName = "new" & oldName
  MsgBox "将<" & oldName & ">以<" & newName & ">的名称保存"
  folderName = Application.DefaultFilePath
  fname = folderName & "\" & newName
  ActiveWorkbook.SaveAs fname
  End Sub
  示例说明:本示例将当前工作簿以一个新名(即new加原名)保存在默认文件夹中。

  第三种方法

  ActiveWorkbook.SaveAs CreateBackup:=True '本示例将在当前文件夹中建立工作簿的备份


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日