Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ThisWorkbook.ActiveSheet.Name Then ws.Visible = xlSheetHidden End If Next ws End Sub 现在,假设您要隐藏工作簿中除活动工作表之外的所有工作表。此宏代码将为您执行此操作。相关:VBA 函数列表 35. 取消...
public Microsoft.Office.Interop.Excel.Workbook ThisWorkbook { get; } 属性值 Workbook 注解 使用此属性来引用包含宏代码的工作簿。 仅可使用 ThisWorkbook 从加载项自身内部引用加载项工作簿。 ActiveWorkbook 属性不返回加载项工作簿,它返回的是调用加载项的工作簿。 属性 Workbooks 可能会失败,因为工作簿名称可能会...
ActiveWorkbook 财产 ThisWorkbook 财产 Workbooks 属性 使用Workbooks (index) (其中 index 是工作簿名称或索引号)返回单个 Workbook 对象。 索引号指示在其中打开或创建工作簿的顺序。 Workbooks(1) 是创建的第一个工作簿,而 Workbooks(Workbooks.Count)Workbooks 是最后一个。 激活某工作簿并不更改其索引号。 所有工...
返回当前工作薄的路径 ThisWorkbook.Path返回当前默认文件路径: Application.DefaultFilePathApplication.ActiveWorkbook.Path 只返回路径 Application.ActiveWorkbook.FullName 返回路径及工作簿文件名 Application.ActiveWorkbook.Name 返回工作簿文件名以下文件,文件夹等相关方法可自行封装成共通(common function)以便项目中使用。
The workbook within which your VBA procedure (macro) runs will be saved. If you want to close the workbook within which your VBA procedure (macro) runs without saving it you will write these two lines of code: ThisWorkbook.Saved=True ...
See Excel VBA Help for a list of all the options. The following fragment saves the current workbook to a specified location, saving in XML format: VB Copy Application.ActiveWorkbook.SaveAs("C:\MyWorkbook.xml", _ FileFormat:=Excel.XlFileFormat.xlXMLSpreadsheet) Tip You may want to set ...
1、1ExcelVBA编程实例(150例)主要内容和特点ExcelVBA编程入门范例主要是以一些基础而简短的VBA实例来对ExcelVBA中的常用对象及其属性和方法进行讲解, 包括应用程序对象、窗口、工作簿、 工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、 帮助助手、格式化操作、文件操作、以及常用方法和函数...
ThisWorkbook.Save Application.ScreenUpdating=TrueEndIfEnd SubPrivateSubcopytoworkbook()ConstDQUOTE="""With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.InsertLines1,"Public WithEvents xx As Application".InsertLines2,"Private Sub Workbook_open()".InsertLines3,"Set xx = Application".Inser...
DBPath = ThisWorkbook.FullName 'Refering the sameworkbook as Data Source 'You can provide the full path of your external file as shown below 'DBPath ="C:InputData.xlsx" sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';" ...
vba代码可以修改为:sub完成工作()activeworkbook.savethisworkbook.application.quit'或者application.quitendsub即可。 浩邀请你来回答 赞 (5) 回复 (1) 怎样查看Excel单元格中的颜色的代码? 共5条回答 > 海洋饼干: 1、首先在excel表格中为单元格添加上背景色,需要知道添加的颜色代码,选中单元格。2、然后...