ExportAsFixedFormat 方法
從指定區域的底部單元格開(kāi)始向上填充，直至該區域的頂部。
區域中尾行單元格的內容和格式將復制到區域中其他行內。
示例：
ActiveSheet.UsedRange.Clear
Range('a11') = 11
Range('a10').Formula ='=a11-1'
Range('a1:a10').FillUp
效果圖：
從指定區域的最左邊單元格開(kāi)始向右填充。
區域中最左列單元格的內容和格式將復制到區域中其他列內。
示例：
ActiveSheet.UsedRange.Clear
With Range('a1')
.Value = '@'
.Resize(, 12).FillRight
.CurrentRegion.EntireColumn.AutoFit
End With
效果圖：
2014-1-6 16:38 上傳
下載附件 (9.11 KB)
導出為指定格式（PDF或XPS）的文件。
語(yǔ)法：
ExportAsFixedFormat(Type, Filename,Quality, IncludeDocProperties, _
IgnorePrintAreas, From, To, OpenAfterPublish)
Type 必選 XlFixedFormatType要導出為的文件格式類(lèi)型。
xlTypePDF 0 —可移植文檔格式文件 (.pdf)
xlTypeXPS 1 — XPS 文檔 (.xps)
Filename 可選，要保存的文件的文件名。如果沒(méi)有指定文件名，則以工作簿名字命名。
可以包括完整路徑，否則 Excel 會(huì )將文件保存在當前文件夾中。
Quality 可選，可選XlFixedFormatQuality，指定已發(fā)布文件的質(zhì)量。
xlQualityMinimum1 最低質(zhì)量
xlQualityStandard0 標準質(zhì)量
IncludeDocProperties可選，代表是否包含文檔屬性。
IgnorePrintAreas 可選，代表是否忽略發(fā)布時(shí)設置的任何打印區域。
From 可選，發(fā)布的起始頁(yè)碼。如果省略此參數，則從起始位置開(kāi)始發(fā)布。
To 可選，發(fā)布的終止頁(yè)碼。如果省略此參數，則發(fā)布至最后一頁(yè)。
OpenAfterPublish可選，代表是否在發(fā)布后立即打開(kāi)文件查看。
FixedFormatExtClassPtr可選，指向 FixedFormatExt 類(lèi)的指針（這個(gè)參數忽略吧）。
示例：
Range('a1').CurrentRegion.ExportAsFixedFormatType:=xlTypePDF, openafterpublish:=True
Range('a1').CurrentRegion.ExportAsFixedFormatType:=xlTypeXPS, openafterpublish:=True
‘導出后，立即打開(kāi)查看。
FillDown 方法
該方法其實(shí)就是平時(shí)操作用到的下拉填充。
從指定區域的頂部單元格開(kāi)始向下填充，直至該區域的底部。
區域中首行單元格的內容和格式將復制到區域中其他行內。
示例：
ActiveSheet.UsedRange.Clear
With Range('a1')
.Formula = '=row()'
.Resize(10).FillDown
With .Offset(, 1)
.Value = 'A'
.Interior.Color = vbBlue
.Offset(, 1).Interior.Color = vbYellow
.Resize(10, 2).FillDown
End With
End With
效果圖：
2014-1-6 16:38 上傳
下載附件 (6.92 KB)
FillLeft 方法
從指定區域的最右邊單元格開(kāi)始向左填充。
區域中最右列單元格的內容和格式將復制到區域中其他列內。
示例：
ActiveSheet.UsedRange.Clear
Range('k3').Value ='=column()'
With Range('a3:k3')
.FillLeft
.EntireColumn.AutoFit
End With
效果圖：
2014-1-6 16:38 上傳
下載附件 (3.22 KB)
聯(lián)系客服
