用 VBA 找 硬碟上 的檔案 (code)

Sub LoopThroughXLS()
    Dim sFName As String
    sFName = Dir(”*.xls”)
    Do While Len(sFName) > 0
        Debug.Print sFName
        sFName = Dir
    Loop
End Sub

簡單用 vba 寫 txt 檔 (文字檔)

Sub Print_Test()
Dim record As String
Open "C:myfile.txt" For Output As #1
 record = ""
Print #1, record
record = "GOOD GOOD"
Print #1, record
Print #1, ""
Close #1
End Sub

VBA 加入外部 activeX 項目 或 Library (EXCEL2003)

(1) 在工具 , 選取 , VB 編輯器

(2)在 VB 編輯器內 , 選工具 , 設定引項目

(3) 選擇要使用項目