[發問] 一個工作表按條件存為不同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呢?

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

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

3^#

發表於 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

4^#

發表於 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

5^#

發表於 2015-8-1 23:39 | 顯示全部帖子

回復 3# Hsieh

有勞再協助!

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

6^#

發表於 2015-8-2 12:02 | 顯示全部帖子

回復 7# starry1314

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

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

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

7^#

發表於 2015-8-2 12:28 | 顯示全部帖子

回復 9# starry1314 1

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

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

8^#

發表於 2015-8-2 13:32 | 顯示全部帖子

回復 11# starry1314

成功, 多謝!:'(

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

9^#

發表於 2015-8-4 14:06 | 顯示全部帖子

各位,有新問題, 因想另設一個輸入的選擇, 已定如下, 如有兩個問題未做到:
(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