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

帖子: 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呢?

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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版本可行

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each a In .Range(.[E4], .[E4].End(xlDown))
d(a.Value) = "" '取得所有不重複分店
Next
For Each ky In d.keys
.Range("B4").AutoFilter field:=4, Criteria1:=ky
If Dir("D:\" & ky & ".pdf") <> "" Then Kill "D:\" & ky & ".pdf" '同名檔案刪除
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & ky & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True '另存成PDF檔案
Next
If .FilterMode = True Then .ShowAllData '顯示所有資料
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 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]

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

5^#

發表於 2015-8-1 09:14 | 只看該作者

回復 4# missbb 3

另外, 想將檔名變為A 201507, 改了下面的碼, 但檔名仍然是A, 為甚麼呢?

If Dir("D:\" & ky & "201507" & ".pdf") <> "" Then Kill "D:\" & ky & "201507" & ".pdf" '同名檔案刪除
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

6^#

發表於 2015-8-1 23:39 | 只看該作者

回復 3# Hsieh

有勞再協助!

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

7^#

發表於 2015-8-2 09:25 | 只看該作者

回復 5# missbb

      If Dir("D:\" & ky & "201507.pdf") <> "" Then Kill "D:\" & ky & "201507.pdf"  '同名檔案刪除
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

      "D:\" & ky & "201507.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=True  '另存成PDF檔案
Next

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

8^#

發表於 2015-8-2 12:02 | 只看該作者

回復 7# starry1314

你好, 但我加入了新程式碼, 仍然有問題, 可幫忙看看嗎?

VBA Attendance Data Report to PDF 20150801 test.rar (129.66 KB)

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

9^#

發表於 2015-8-2 12:13 | 只看該作者

回復 8# missbb

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each a In .Range(.[E4], .[E4].End(xlDown))
d(a.Value) = "" '取得所有不重複分店
Next
For Each ky In d.keys
.Range("B4").AutoFilter field:=4, Criteria1:=ky
If Dir("D:\" & ky & "201507.pdf") <> "" Then Kill "D:\" & ky & "201507.pdf" '同名檔案刪除
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & ky & "201507.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True '另存成PDF檔案
Next
If .FilterMode = True Then .ShowAllData '顯示所有資料
End With
End Sub

複製代碼

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

10^#

發表於 2015-8-2 12:28 | 只看該作者

回復 9# starry1314 1

感謝, 但問題是一轉PDF就是113頁, 是選定範圍的問題嗎?
另如何設定邊界?是在轉之前做好了設定才轉或是在VBA碼內設定?