nsjd.net
当前位置:首页 >> EXCEL VBA指定shEEt >>

EXCEL VBA指定shEEt

因为sheets(2)是第二个sheet,包含工作表、图表等在内的。 如果确定是第二个工作表,可以用worksheets(2),或者直接用名字sheets("sheets2")。 再不然可以用sheets(2).codename看看工作表的名称然后直接用sheetx(不是name属性,是(名称)属性)

sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说明:共四个参数 参数1-数...

Sub CopySelectedSheets() '定义新工作簿名称为NewBookName Dim NewBookName As String '获取原工作簿(这里的名字是text.xls)第一张表格里的A1单元格内的值作为NewBookName的值 NewBookName = Workbooks("text.xls").Worksheets(1).Range("a1")....

workbooks.open "d:\我的数据表.xls" workbooks(workbooks.count).worksheets("Sheet1").activate '第一个引号内放完整路径及文件名,第二个引号内放工作表名

Dim arrarr = Range("a1:d10") ' 需要复制数值的区域,保存结果到数组里面With workbooks.open("a.xlsx") '打开指定的另外的文件 .Sheets("sheet1").Range("a10:d20") = arr '复制值到另外的区域 .Save .CloseEnd With文件必须要打开才可以修改...

sub nn() Workbooks.Open Filename:="C:\Documents and Settings\Excel\Example.xls " workbooks("Example.xls").worksheets(1) '对工作表1的引用就可以了 end sub 这些语句都不用去记,你通过录制宏就可以完全获得这种语句

Private Sub CommandButton2_Click()Dim str5 As String Dim x As Long For x = 2 To 10 If Sheet3.Cells(x, 2).Value = "" Then Exit Sub str5 = Sheet3.Cells(x, 10).Value If str5 = "AIRC" Then Sheet1.Visible =1 '显示工作表 NextEnd SubI...

1. 一步搞定之代码 Sub 提取所有工作表名称() for x=1 to sheets.count cells(x,1)=sheets(x).name next x End Sub 如图,按照顺序来就可以啦。 方法/步骤 1.分步阅读 首先我们打开一个工作样表作为例子。 2. 工作表标签名即是工作表的名称,在...

代码如下: Sub 分开存为工作薄() Dim Sh As Worksheet Dim Wk1 As Workbook Dim Wk2 As Workbook Dim iPath As String Application.ScreenUpdating = False ‘将屏幕更新关闭 Application.DisplayAlerts = False iPath = ThisWorkbook.Path & "\...

随机数的公式已写好了?

网站首页 | 网站地图
All rights reserved Powered by www.nsjd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com