毛毛狂的部落格

Workbook 活頁簿

1. Workbooks 活頁簿集合
2. Workbooks("filename") 檔名為filename的活頁簿
3. ActiveWorkbook 正在作用中的活頁簿
4. Sheets 活頁簿中所有工作表
5. Sheets(n) 活頁簿中第n張工作表
6. Worksheet 工作表
7. Worksheets 所有工作表(包括圖表)
8. Worksheets("sheet") 指表名為sheet工作表
9. ActiveSheet 正在作用中的工作表
10. Columns("c1:c2") c1至c2欄(其中c1,c2為A~Z或AA~XFD等欄名)
11. Rows("r1:r2") r1至r2列(其中r1,r2為1~1048576等列名
12. Range("x1:x2") x1至x2間的儲存格(其中x1,x2為儲存格位址名稱)
13. cells(i,j) 儲存格(第i列、第j行)
14. ActiveCell 目前的儲存格
15. Selection 目前所選取的物件

• 範例：
  • Workbooks("Book1").Sheets("Sheet1").Range("A1:D5").Font.Bold = True
  • Worksheets("Sheet1").Cells.ClearContents
  • Worksheets("Sheet1").Rows(1).Font.Bold = True
  • Range("1:1,3:3,8:8")
  • Worksheets("Sheet1").Cells(6, 1).Value = 10
  • Worksheets("Sheet1").[A1:B5].ClearContents
  • ActiveCell.Offset(1, 3).Font.Underline = xlDouble

是否常常EXCEL Key單完成
需要將EXCEL 轉成PDF並且建立一個資料夾呢?
現在可以藉由下列程式碼,來達到一鍵自動化功能

-----------------------------------------------------------------------------------------------------------
Sub 匯出PDF()

'range("L4")=檔案匯出路徑
'range("L1")=匯出檔案名稱

'判斷資料夾是否已存在
f = Dir(Range("L4").Value, vbDirectory)
'如果不存在就建立資料夾
If f = "" Then MkDir (Range("L4").Value)
'設定路徑
ChDir "C:\Users\CR-033\Desktop\123"
'匯出格式設定
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("L4").Value & Range("L1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Dim Foldername As String
'資料夾名稱
Foldername = Range("L4")
'打開資料夾(視窗在畫面上)
Shell "explorer.exe """ & Foldername & "", vbNormalFocus

End Sub

VBA 是一款於VB延伸的語言 

VBA 必須透過 Word or Excel 來使用

Activecell.Value   儲存格的值

ActiveSheet.Name 工作表名稱

Sub 取的資料夾內檔案名稱