作者:乔山办公网日期:
返回目录:excel表格制作
sub test()
set wb=workbooks.open("D:\其它百度excel文档专属.xls")
tmp=wb.worksheets(1).[c2]
wb.close 0
msgbox tmp
end sub
Sub YANG()
Workbooks.Open ThisWorkbook.Path & "\NIDA.xlsx" '打开度同目录下文问件
Sheets("②Count Table").Range("A5:KH1500").Copy Workbooks("NIDA.xlsm").Sheets("②Count Table").Range("A5:A5:KH1500") '拷贝数据答版
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub
里面的错权误在 Range("A5:A5:KH1500") '拷贝数据
应该是 Range("A5:KH1500") '拷贝数据