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

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

13^#

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

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

12^#

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

回復 11# starry1314

成功, 多謝!:'(

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

11^#

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

回復 10# missbb

先在EXCEL設定好比較快,上方【版面配置】可調整

帖子: 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碼內設定?

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

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

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

6^#

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

回復 3# Hsieh

有勞再協助!

帖子: 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:= _