菁菁翔翔2020-11-10 12:48:15

程式碼：

sub 宏1（）

dim p，n，st as worksheet

p=“c：\” ‘檔案所在位置，你可能需要修改，沒必須是\

n=dir（p & “&。xls*”）

do while n“”

with workbooks。open（p & n）

for each st in 。sheets

if st。name=“施工記錄” or st。name=“施工記錄 （2）” or st。name=“施工記錄 （3）” then st。printout

next st

。close

end with

n=dir

loop

end sub

棠溪吖2020-08-15 23:50:38

在“開始序號”和“結束序號”中輸入“備料號”，該表會自動選擇列印期進行批次列印。