麻辣家族討論版版 » Excel程式區 » 請問如何選取部分活頁表執行另一巨集,並轉成PDF檔,謝謝!!

返回列表下一主題上一主題發帖

[發問] 請問如何選取部分活頁表執行另一巨集,並轉成PDF檔,謝謝!!

　暱稱: 小費費

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 88
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-10-8
最後登錄: 2015-1-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-10-11 02:21 | 只看該作者

[發問] 請問如何選取部分活頁表執行另一巨集,並轉成PDF檔,謝謝!!

各位大大,大家好,我是VB新手,
請教各位高手前輩,
小妹的excel包含了以下幾個sheet: AA,BB,CC.1.2.3.4.5.....K (K表示一數字,但每次使用此excel時會產生的K值不一定)
而1~K這些數字同時在AA活頁表的A5,A6,A7...以此類推(由於AA活頁表A1~A4有其他資料,所以A5=1,A6=2....)
請問以下二個問題:
1.請問如何使1~K活頁表均執行另一巨集Macro甲?
2.請問如何選取1~K活頁表並儲存成PDF檔?

以上二段請分成二部分
懇請賜教,謝謝各位~~!!

樓主熱帖

收藏

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

2^#

發表於 2010-10-11 12:03 | 只看該作者

大致的框架:
Dim rng As Range
Dim sSht As String, sWk As String
With Worksheets("AA")
      For Each rng In .Range("a5:a" & .[a65536].End(xlUp).Row)
         sSht = "CC." & rng.Value
         With Worksheets(sSht)
            Macro甲
            sWk = ThisWorkbook.Path & "\" & sSht
            If Dir(sWk) <> "" Then Kill sWk
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sWk, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
         End With
      Next
End With

　暱稱: 小費費

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 88
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-10-8
最後登錄: 2015-1-23

3^#

發表於 2010-10-11 14:49 | 只看該作者

Dear et5323大大,非常感謝您的回覆,
我試run之後,發現在 With Worksheets(sSht) 發生錯誤,請問應如何修改呢?
謝謝

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-10-11 15:02 | 只看該作者

回復 3# yafeii
問題在Macro甲執行時是否將作用中的活頁簿轉移到另一個活頁簿中會造成錯誤的
建議加上活頁簿的名稱試試看
With Workbooks("???").Worksheets(sSht)

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

5^#

發表於 2010-10-11 15:49 | 只看該作者

也有可能是在代码所在活頁簿中根本就不存在Worksheets("cc.?")造成的.可以在代码的前面加一句:on error resume next;或先进行判断Worksheets("cc.?")是否存在,再执行代码.

问问题最好有附件.

　暱稱: 小費費

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 88
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-10-8
最後登錄: 2015-1-23

6^#

發表於 2010-10-12 00:08 | 只看該作者

感謝et5323及GBKEE,受益很多..

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題