vba，可以实现不打开工作簿复制吗？
答案:2 悬赏:30 手机版
解决时间 2021-03-16 10:35
- 提问者网友：沉默菋噵
- 2021-03-15 20:01
vba，可以实现不打开工作簿复制吗？比如，A工作簿是打开的；B工作簿是没打开的。我现在要从A工作簿的某些单元格内容复制到B工作簿怎么实现？
最佳答案
- 五星知识达人网友：杯酒困英雄
- 2021-03-15 21:20
复制内容必须打开，不过既然是VBA来写，可以让VBA打开文件、复制内容、然后关闭文件，例如：
set wb=workbooks.open("b.xlsx")
workbooks("a.xlsx").sheets("sheet1").range("a1")=wb.sheets("sheet1").range("a1")
wb.close
set wb=workbooks.open("b.xlsx")
workbooks("a.xlsx").sheets("sheet1").range("a1")=wb.sheets("sheet1").range("a1")
wb.close
全部回答
- 1楼网友：千杯敬自由
- 2021-03-15 22:26
直接打开这个工作表，用c+w1内容命名，另存为表格就可以了。代码如下：
sub change_the_filename()
dim filename as string
if len(thisworkbook.path) = 3 then
filepath = thisworkbook.path & "c0000.xls"
else
filepath = thisworkbook.path & "\" & "c0000.xls"
end if
workbooks.open filepath
filename = "\c" & range("w1") & ".xls"
activeworkbook.saveas filename:=thisworkbook.path & filename
activewindow.close
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯