iTree 598手機通訊EXCEL巨集程式，可以轉換Worksheet通訊錄為VCF格式

iTree 598手機通訊EXCEL巨集程式，可以轉換Worksheet通訊錄為VCF格式。
1. 執行巨集"ChangeIntoVCF"可以將"SendOut"活頁通訊錄轉為"Output"活頁VCF格式通訊錄。
2. 將Output"活頁VCF格式通訊錄資料轉貼成文字檔的VCF檔案。
3. 神腦國際網站下載的iTree598手機通訊編輯軟體，確認後儲存。下載網址: iTree598軟體下載
4. 再利用藍芽傳輸VCF檔案到iTree 598，藍芽傳輸通訊錄說明檔案，請由神腦國際網站下載。
5. EXCEL檔案下載網址iTree598PhoneBook檔案
6. 巨集程式內容:
Sub ChangeIntoVCF()
Dim sName As String
Dim sPhone As String
Dim nDo As Integer
ii = 0
Do While True
ii = ii + 1
sName = Worksheets("SendOut").Cells(ii, 1).Value
sPhone = Worksheets("SendOut").Cells(ii, 2).Value
sName = Trim(sName)
If Len(sName) = 0 Then Exit Do
For jj = 1 To 8
Worksheets("Output").Cells(8 * (ii - 1) + 1, 1).Value = "BEGIN:VCARD"
Worksheets("Output").Cells(8 * (ii - 1) + 2, 1).Value = "VERSION:2.1"
Worksheets("Output").Cells(8 * (ii - 1) + 3, 1).Value = "N;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:;" & sName & ";;;"
Worksheets("Output").Cells(8 * (ii - 1) + 4, 1).Value = "FN:" & sName
Worksheets("Output").Cells(8 * (ii - 1) + 5, 1).Value = "TEL;CELL:" & sPhone
Worksheets("Output").Cells(8 * (ii - 1) + 6, 1).Value = "TEL;WORK:"
Worksheets("Output").Cells(8 * (ii - 1) + 7, 1).Value = "TEL;HOME:"
Worksheets("Output").Cells(8 * (ii - 1) + 8, 1).Value = "End:VCARD"
Next
Loop
End Sub