很多excel文件 每个excel文件有多个工作表 怎么能把所以的excel文件一下打印出来
答案:1 悬赏:30 手机版
解决时间 2021-01-31 02:45
- 提问者网友：杀生予夺
- 2021-01-30 17:10
很多excel文件 每个excel文件有多个工作表 怎么能把所以的excel文件一下打印出来
最佳答案
- 五星知识达人网友：像个废品
- 2021-01-30 18:24
要不要我给你写个宏：
sub 打印文件夹下所有文件()
dim wb as workbook, st as worksheet
dim p$,f$
p="c:\" '文件夹，可能你需要修改，必须以\结尾
f=die(p & "&.xls*")
while f<>""
set wb=workbook.open p & f
for each st in wb.sheets
st.printout
next st
wb.close
f=dir
wend
end sub
sub 打印文件夹下所有文件()
dim wb as workbook, st as worksheet
dim p$,f$
p="c:\" '文件夹，可能你需要修改，必须以\结尾
f=die(p & "&.xls*")
while f<>""
set wb=workbook.open p & f
for each st in wb.sheets
st.printout
next st
wb.close
f=dir
wend
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯