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