1樓：楓葉卡了
sub 批量列印檔案()
dim str as string, myfile as string
str = dir("d:\777\*.xls", vbreadonly) '注意路徑為h盤根目錄下。如果想列印excel檔案，用*.xls
while str <>判斷檔名是否存在。
str"d:\777\" str '開啟檔案。
with workbooks(str)
for i = 1 to 3
sheets(i).activate
copies:=1
close false '關閉檔案不儲存。
end with
str = dir
wendend sub
2樓：帳號已登出
sub 批量列印xls檔案sheet1sheet2sheet3()dim str$, myfile$, idir$idir = d:\777\" 這裡改動excel檔案所在資料夾。
str = dir(idir & xls", vbreadonly)while str <>
idir & str
with workbooks(str)
for i = 1 to 3
with .sheets(i)
activate
printout
end with
close false
end with
str = dir
wendend sub
請教，在excel vba中如何列印指定的工作表？謝謝。
3樓：惠企百科
1、用重新命名方式將sheet5的名稱修改為了「測試表單」，但在vbaproject中，前面的名字依然叫sheet5。
2、點選 vbaproject下面的sheet3，下面對應出現sheet3的屬性，我們能夠看到屬性中 乙個叫「名稱」，就是工作表的codename，另外乙個name，就是平時大家所見的sheet 的名字。
3、在「名稱」屬性中輸入新的名稱，直接對codename進行修改。
4、工作表的codename就是工作表在vbe工程中所在部件的名稱，通過修改vbe工程中所在部件的名稱來達到修改工作表的codename的目的。
5、執行，輸入新的codename以後，系統給出提示「未信任到vb工程訪問，請在信任選項中勾選vb工程訪問」。
6、點選開發工具|巨集安全性，開啟巨集安全性配置視窗。
7、勾選「信任對vba工程物件模型的訪問」，然後點選確定。
8、重新執行，成功將sheet1修改為testaaa。
請教，在excel vba中如何列印指定的工作表？謝謝。
4樓：網友
假設想列印當前工作簿中的sheet2工作表，**如下：
sheets("sheet2").printout
5樓：天意
把你需要列印的內容選中，然後點列印，列印時選擇只列印選中內容！
6樓：陸陸阿缸
sheets(array("sheet1", "sheet2")).printout 可以將你要列印的合進去。
7樓：網友
請補充問題，什麼是vba？
求助EXCEL的大神，求助 求助 EXCEL大神
建議乙個客戶乙個工作表，不需要分月，按日期 品名 規格 單價 數量 金額 回款 餘額等項做記錄單，然後生成數量月度彙總表 銷售收入月度彙總表 應收款項月度彙總表等即可。用金蝶智慧型記更簡單方便吧，免費的。雖然excel也可以，你不熟悉，不方便。第乙個表是由公式的 第二個表沒有哦 求助 求助 exce...
如何Excel使用規劃求解，如何利用excel的規劃求解功能尋找最佳方案
點工具，點載入巨集，如果沒有安裝規劃求解，選該項。點確定安裝好了後，你有幾個專不等式組和屬 對應變數的範圍，要求乙個含該變數的等的最大值或最小值你可以設變數x，y對就的單元格是a1，b1，他們的係數 a2，b2，等式 c1 a1 a2 b1 b2 約束條件 5 x 6 y 12,3 x 4 y 8,...
高分請求EXCEL公式，最好不要VBA
不用vba，公式應該不好寫，我用vba給你寫 你複製，貼上在模組吧。自定的函式，直接套用公式 aaa a1,b1 function aaa rng1 as range,rng2 as range if rng1.count 1 and rng2.count 1 then arr split rng1...