通过遍历当前应用程序所有已打开的工作簿文件(Workbooks集合)，判断指定名称的工作簿是否打开，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub WorkbookIsOpen_1() #002 Dim Wb As Workbook #003 Dim myWb As String #004 myWb = Excel Home.xls #005 For Each Wb ...

VBA中使用Open方法打开一个工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub Openfile() #002 Dim x As Integer #003 For x = 1 To Workbooks.Count #004 If Workbooks(x).Name = 123.xls Then #005 MsgBox 123工作簿已经打开! #006 Exit Sub #007 End If #008 Ne...

在VBA中使用Add方法新建工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub AddNowbook() #002 Dim Nowbook As Workbook #003 Dim ShName As Variant #004 Dim Arr As Variant #005 Dim i As Integer #006 Dim myNewWorkbook As Integer #007 myNewWorkbook = Appli...

使用ThisWorkbook属性返回当前宏代码运行的工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub WbQuote_4() #002 ThisWorkbook.Save #003End Sub 代码解析： WbQuote_4过程使用Save方法保存当前宏代码运行的工作簿所做的更改。 ThisWorkbook属性返回一个Workbook对...

VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法。 40-1 使用工作簿的名称 工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub WbQuote_1() #002 MsgBox 路径为： Wo...

在Excel中却没有提供打印奇数页和偶数页的功能，用户可以使用VBA在Excel中实现该功能，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub PrintOddPage() #002 Dim TotalPg As Integer #003 TotalPg = ExecuteExcel4Macro(GET.DOCUMENT(50)) #004 For i = 1 To TotalPg Ste...

在实际应用中，Excel编制的报表、表格、程序等，往往在单元格中设置了公式、函数、自定义格式等，为了防止在使用过程中修改或无意中修改这些设置，一般使用Excel的工作表保护功能来保护这些设置。 但是程序中可能会使用代码对受保护的工作表进行操作，此时如果没有解除...

如果希望限制工作表中滚动的区域，可以通过设置WorkSheet对象的ScrollArea属性来实现。ScrollArea属性使用以A1样式的区域引用形式（字符串类型）返回或设置工作表允许滚动的区域。当设置了工作表滚动区域之后，用户不能选定滚动区域之外的单元格，但仍然可以选定区域之...

通过当前选择的单元格区域的单元格数目与行数或列数相比较，判断用户是否选中了整行或整列，如下面的代码所示。 复制内容到剪贴板 代码: #001Private Sub Worksheet_SelectionChange(ByVal Target As Range) #002 If Target.Rows.Count = 1 Then #003 If Target.Columns.Coun...

如果需要删除如图所示的工作表区域中特定内容所在的行，可以使用定位的方法快速删除，无需使用For...Next循环对单元格逐个进行判断。 示例代码如下： 复制内容到剪贴板 代码: #001Sub SpecialDelete() #002 Dim R As Integer #003 With Sheet1 #004 R = .Range(a65536).End(...