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

vBA打开指定工作簿

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

For i = 1 To Workbooks.count If Workbooks(i).Name = ActiveWorkbook.Name Then MsgBox i //i即序号 End IfNext

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

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...

Sheet1.Activate '激活sheet1,但是无效 你这个语句是激活的代码所有在工作簿的Sheet1,要激活新工作簿的Sheet1应该这样写: ActiveWorkbook.Sheets(1).Activate

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

Sub UsingTheFormula() Dim Temp As String Temp = "'" & ThisWorkbook.Path & "\[abc.xls]Sheet1'!" With Sheet1.Range("A1:C1") '取abc.xls工作簿Sheet1工作表("A1:C1")单元格数据 .FormulaR1C1 = "=" & Temp & "RC" .Range("A2:C2") = .Value...

如果能确保文件夹下类似2006-08-**.xls 或者2006-08-**.xlsx的文件只有一个,可用把如下代码 Sub xx()Dim yy, mm, pth, fn, iyy = [f3]pth = "D:\" & yy & "\"For i = [f4] To 12 fn = Dir(pth & yy & "-" & Format(i, "00") & "-*.*") If fn ""...

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