mdsk.net
当前位置:首页 >> EXCEL VBA中怎么把另外一个EXCEL文件的shEEt1完全(... >>

EXCEL VBA中怎么把另外一个EXCEL文件的shEEt1完全(...

按ALT+F11,插入一个模块,输入下列代码.即可 Sub copyAll() fname = "C:\Book2.xls" '需要复制的excel文件地址及文件名,你自己修改 Set d = GetObject(fname) '打开文件 d.sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '将sheet1完全复...

VBA一个语句能实现复制,语句如下: WorkBooks("Book1.XLS").Sheets("Sheet1").Range("B1:C4").Copy WorkBooks("Book2.XLS").Sheets("Sheet1").Range("A1:B4")

Sub 物料() Dim wb Set wb = Workbooks.Open("F:\2017\汇总\物料.xls") wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("物料").Range("a1") wb.Close False MsgBox "物料更新完毕" End Sub 段代码打"F:\2017\汇总\物料.xls"工作簿并sheet1数...

这个应该不叫“发送”,而是写入到或记录到其它工作薄 首先,要写入到其它的工作薄,就必须用代码打开那个工作薄,要打开那个工作薄,就必须知道那个工作薄的完事的路径和名称。如: workbooks("这里是完事的路径和名称").open 或者,调用windows...

参考vlookup公式的用法,图例是要对D2输入对应的数字,解释=VLOOKUP(A:A,H:K,2,0)的含义: vlookup()接收4个参数,图中分别是A:A,H:K,2,0。A:A代表以第一列为要查找的值,H:K代表搜索的范围是H列到K列,2代表取出H:K列中的第二列(左起),因为...

sheet2.[a1:c3].value=sheet1.[a1:c3].value 或者自行录制一段复制sheet1内容,然后选择性粘贴-数值的宏也可以

Sub test() With Workbooks("book1.xls").Sheets("sheet1") r = .Range("c65536").End(xlUp).Row - 4 '从第2行到c列最后一个有数据的可见单元格向上3行的行数 Workbooks("book2.xls").Sheets("sheet1").Range("c2").Resize(r, 1).Value = .Range...

具体要看你的是什么操作,如果是筛选,合并之类的操作,可以通过宏录制,直接录制出的操作代码,将代码中的sheet1改成sheet2!!!具体需要什么操作,你要说一下才能给你代码

Sub Copy_Data()Dim wb As Workbook, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name = "Sheet1" '假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\报表-*.xls", ...

能写成这样,还有什么完不成? 部分代码: Dim xlsheet As Excel.Worksheet Dim xlbook As Excel.Workbook ll = ListBox1.ListIndex Set xlbook = ThisWorkbook.Application.Workbooks.Add(ListBox1.List(ll)) Set xlsheet = xlbook.Worksheets(...

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