.Name = ShName(i - 1).Range("B1").Resize(1, UBound(Arr) + 1) = Arr .Range("A2") = "品名"End With Next .SaveAs Filename:=ThisWorkbook.Path & "\" & "库存.xlsx".Close Savechanges:=True End With Set Nowbook = Nothing Application.SheetsInNewWorkbook = myNewWorkbook End Sub 代码...
Dim Wb As Workbook Dim i, a, b, d, c, e Application.ScreenUpdating = False MP = ActiveWorkbook.Path MN = Dir(MP & "\" & "*.xls")AW = ActiveWorkbook.Name Num = 0 e = 1 Do While MN <> ""If MN <> AW Then Set Wb = Workbooks.Open(MP & "\" & MN)a = a + 1 With ...
.Name = ShName(i - 1).Range("B1").Resize(1, UBound(Arr) + 1) = Arr .Range("A2") = "品名"End With Next .SaveAs Filename:=ThisWorkbook.Path & "\" & "库存.xls".Close Savechanges:=True End With Set Nowbook = Nothing Application.SheetsInNewWorkbook = myNewWorkbook End Sub 代码解...
With[对象].[属性]=[数据].[方法]'其他属性和方法 End With With结构里,对象的属性和方法均有点 (.)符号开始,后接对象的属性名和方法名。 With 结构实例 现在看一个实际的例子,需要将工作簿中 Sheet1 工作表设置新名称,然后设置标签颜色为黑色,最后隐藏工作表。 如果不用 With 结构,代码如下: 代码语言:ja...
Workbook对象是一个Microsoft Excel 工作簿。有Name、Path等属性。有SaveAs等方法。有Open、Activate等事件。 ThisWorkbook属性返回运行Visual Basic代码的工作簿。当Visual Basic代码是加载宏的组成部分时,返回加载宏的工作簿,而非调用该加载宏的工作簿。 使用Workbooks(index)(其中 index 是工作簿名称或索引号)可返回一...
.SaveAs Filename:=ThisWorkbook.Path & "\" & "库存.xlsx" .Close Savechanges:=True End With Set Nowbook = Nothing Application.SheetsInNewWorkbook = myNewWorkbook End Sub 代码窗口: 代码解析:mynz_26()过程使用Add方法建立新的工作簿并对新建工作簿进行操作。
Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx")AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> ""If MyName <> AWbName Then Set Wb...
而这里ActiveWorkbook是一个对象类型,所以不能省略Set。至于什么是对象,什么是基本数据类型,那就说来话长了。。。可以简单理解为对象是一堆基本数据类型捆绑在一起之后的高级数据类型。这里用cwb这个变量记录下当前激活的workbook是为了后面能让程序找到它,不然后面打开多个excel之后,程序怎么知道我要操作哪一个?而Set ...
Sub 给文件添加模块() Dim wb As Workbook, ph As String Application.DisplayAlerts = False ph = ThisWorkbook.Path & "\" Set wb = Workbooks.Open(ph & "test.xls") '打开指定工作簿wb ThisWorkbook.VBProject.VBComponents("A").Export ph & "A.bas" '从当前工作簿导出模块A Windows(wb.Name).Vis...
Wb.Close False ‘关闭该workbook并不保存,True则为保存 End With ’with end with语句可以省略运行对象,直接.Cells() End If MyName = Dir '第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.xls 文件 Loop Range("A1").Select ...