Snasui Excel Forum

อยากทราบ จากสูตรนี้ จะตั้งค่าเบอร์มือถือให้มี0นำหน้า หรือ ครบ 10 ตัว ก่อนที่จะป็นไฟล์VCf แก้ไขบรทัดไหนอย่างไรครับ


Private Sub Create_VCF()
'Open a File in Specific Path in Output or Append mode
Dim FileNum As Integer
Dim iRow As Double
iRow = 2
FileNum = FreeFile
OutFilePath = "D:\OutputVCF.VCF"
Open OutFilePath For Output As FileNum

'Loop through Excel Sheet each row and write it to VCF File
While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> ""
LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1))
FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2))
PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3))

Print #FileNum, "BEGIN:VCARD"
Print #FileNum, "VERSION:3.0"
Print #FileNum, "N:" & LName & ";" & FName & ";;;"
Print #FileNum, "FN:" & LName & " " & FName
Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
Print #FileNum, "END:VCARD"
iRow = iRow + 1
Wend

'Close The File
Close #FileNum
MsgBox "Contacts Converted to Saved To: " & OutFilePath & "
End Sub


เพราะใช้ contact
import และ export
และบีบอัดไฟล์ ค่อนข้างใช้เวลานาน

เห็นจากยูทูบ ว่าวีธีนี้ ใช้เวลาน้อย แต่ผลลัพธ์ที่ได้ไม่ตรงกับที่ต้องการครับ


ขอถามปัญหาสักหน่อย ได้ติดตามอ่านปัญหาที่เหมือนเพื่อนสมาชิกท่านอื่น
ขอบคุณครับ
เอก

กรุณา Update Profile โดยระบุ Version ของ Excel ที่ใช้ตาม Link นี้ด้วยครับ https://snasui.com/viewtopic.php?f=6&p=103177#p103177

การสอบถามปัญหา VBA กรุณาเขียน Code ตามรูปแบบที่กำหนดไว้ในข้อ 5 ด้านบน พร้อมแนบไฟล์ประกอบด้วยจะได้สะดวกต่อการทดสอบของเพื่อนสมาชิกครับ