12
返回列表 上一主題 發帖

[發問] 一個工作表按條件存為不同PDF

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
4# 跳轉到 »
發表於 2015-8-1 08:57 | 只看該作者
本帖最後由 missbb 於 2015-8-1 09:08 編輯

回復 3# Hsieh


多謝回覆, 已可以將A分店及B分店變成PDF, 但每個PDF有114頁, 因為向下的空白列都一併變成了PDF.
1)請問如何可以去除A分店的空白列?
2) 另如何可以調整成一頁, 直向A4呢? (另附件) PDF 樣辦.pdf (41.75 KB)
3)有沒有在PDF插入指定電連結的方法?

有勞:'( [attach]21598[/attach][attach]21598[/attach]

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2015-7-30 23:15 | 只看該作者
回復 2# missbb
2007版是否已有另存成PDF檔功能?
以下在2010版本可行
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With ActiveSheet
  4. For Each a In .Range(.[E4], .[E4].End(xlDown))
  5.   d(a.Value) = ""         '取得所有不重複分店
  6. Next
  7. For Each ky In d.keys
  8.      .Range("B4").AutoFilter field:=4, Criteria1:=ky
  9.      If Dir("D:\" & ky & ".pdf") <> "" Then Kill "D:\" & ky & ".pdf"  '同名檔案刪除
  10.      .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  11.         "D:\" & ky & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  12.         IgnorePrintAreas:=False, OpenAfterPublish:=True  '另存成PDF檔案
  13. Next
  14. If .FilterMode = True Then .ShowAllData '顯示所有資料
  15. End With
  16. End Sub
複製代碼
學海無涯_不恥下問

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
2#
發表於 2015-7-28 22:45 | 只看該作者
Attendance Data Report TEST5.rar (135.12 KB) 回復 1# missbb


我可以將SHOP A及SHOP B進行篩選, 但是不知如何:
1)將A, B等SHOP成為變數, 再以迴圈完成, 因為其實有30 SHOP, 要設立ARRAY(1,2,3.....30)嗎?
2) 如何可以一次過經將不同SHOP獨立存為成30個PDF呢?

已看了書但確實領會不了, 求教!:'(

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題