返回列表 上一主題 發帖

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

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
1# 跳轉到 »
發表於 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

TOP

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
2#
發表於 2010-10-11 15:49 | 顯示全部帖子
也有可能是在代码所在活頁簿中根本就不存在Worksheets("cc.?")造成的.可以在代码的前面加一句:on error resume next;或先进行判断Worksheets("cc.?")是否存在,再执行代码.

问问题最好有附件.

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題