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

missbb

Attendance Data Report 存分店PDF.rar (134.62 KB)

下載次數: 4

2015-7-27 20:10

有一個出勤表內有不同分店員工出勤資料, 求教如何以VBA按條件SAVE為以分店名為名的PDF.
現時要每個分店選定範圍才SAVE PDF, 非常慢及浪費時間.
有勞協助!:L :'(

missbb

Attendance Data Report TEST5.rar (135.12 KB)

下載次數: 11

2015-7-28 22:41

回復 1# missbb


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

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

missbb

回復 3# Hsieh


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

下載次數: 3

2015-8-1 09:02

3)有沒有在PDF插入指定電連結的方法?

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

missbb

回復 4# missbb 3

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

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

missbb

回復 3# Hsieh

有勞再協助!

missbb

回復 7# starry1314

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

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

下載次數: 4

2015-8-2 12:01

missbb

回復 9# starry1314 1

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

下載 (49.86 KB)

2015-8-2 12:28

missbb

回復 11# starry1314


    成功, 多謝!:'(

missbb

各位,有新問題, 因想另設一個輸入的選擇, 已定如下, 如有兩個問題未做到:
(1)  以ＳＨＯＰ２　輸入Ａ，　另F輸入"201507", 想PDF FILE會轉為＂Ａ　201507".PFD但出現錯誤
(2) 在轉PDF後, 如何返回EXCEL, 因為要將每個PDF逐個關閉.

Sub in_box2()
'
Dim shop2 As String
Dim f As String

'
    shop2 = InputBox("Enter your shop code")
    f = InputBox("Enter month of the report")
    Range("B4").AutoFilter Field:=4, Criteria1:=shop2
    Range("B4").CurrentRegion.Select
   
ChDir "C:\Users\Desktop\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "C:\Users\Desktop\" & f & "2015.pdf"), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
'
   
End Sub