mbmc.net
当前位置:首页 >> vBA打开指定工作簿 >>

vBA打开指定工作簿

以下代码可以实现输入工作表名称,按回车或点击确定后跳转至当前工作簿的该工作表 Sub 跳转()Dim sn As StringDim x As ...

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

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

这个简单,在workbook_open事件里面写一句话就行了 Sheet1.Activate

Sub s() With ThisWorkbook.Sheets(1) Set wb = Workbooks.Open(ThisWorkbook.Path & "\127.xlsx") wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1) wb.Close Set wb = Workbooks.Open(ThisWorkbook.Path & "\1...

参考下面的代码: Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Application.ScreenUpdating = False If MsgBox("需要操作的数据表是:EXCEL2003 格式,请选择:是!" & Chr(13) & "" & Chr(13) & "需要操作的数据表是:EXCEL2...

1.首先打开excel。 2.然后找到office按钮,点击。 3.出来后选择excel选项。 4.在excel选项中选择信任中心。 5.接着选择信任中心设置。 6.进入后找到宏设置并点击。 7.在出来的设置中选择启用所有宏。 8.设置完成后确定即可。

懂点vba的看了下面的步骤就懂了。 1、Dim Wb As Workbook 2、 Dim Temp As String 3、 Temp = ThisWorkbook.Path & "\xxxx.xls" 4、Set Wb = GetObject(Temp) 5、 Wb.Windows(1).Visible = False 6、Wb.Sheets(1).cells(1,1)="xxxxx" 7、Wb.Wind...

请参照百度文库《不打开工作簿取得其他工作簿数据的几种方法》http://wenku.baidu.com/view/16048d09bed5b9f3f90f1c22.html 一般而言,应该都是要打开的,只是在后台打开工作簿,读取数据后再关闭,工作簿不会出现在交互界面,对用户而言似乎是...

现有工作簿test,如何在不打开的情况下,将其中Sheet1中的指定区域“A1:L12”复制到新工作簿中的Sheet1中? 谢谢高手赐教! 用数组公式吧,不过只能取值: Sub Macro1() With [A1:L12] .FormulaArray = "='" & ThisWorkbook.Path & "\[test.xls]She...

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