Sub Email_Check()
brr = Selection
Dim conn As New Connection
'conn.Open "User ID=XXXX;Password=XXXX;Data Source=XXXXX;Provider=XXXXX"
'conn.Open "Provider=OraOLEDB.Oracle.1;User ID=XXXXX;Password=XXXX;Data Source=XXXXX;Persist Security Info=True"
conn.Open "User ID=XXXX;Password=XXXX;Data Source=XXXXX;Provider=XXXXXX"
'conn.Open "Provider=OraOLEDB.Oracle.1;User ID=XXXXXX;Password=XXXX;Data SourceXXXX;Persist Security Info=True"
'Dim Voyage, PORT As String
'Voyage = "'" & Voyage.TextBox1.Value & "'" '=Voyage.TextBox1.Value
'PORT = "'" & Voyage.TextBox2.Value & "'" '=Voyage.TextBox2.Value
Dim sql, BOL As String
For x = 1 To UBound(brr)
'PORT_DISCH, JOURNEY_SUMMARY.JOB_REFERENCE,ADDRESS_TYPE,CONTACT_NUMB
vba_emailcheck
最新推荐文章于 2021-11-09 11:24:31 发布
本文探讨了如何利用VBA(Visual Basic for Applications)编写宏,实现对电子邮件地址有效性的检查。通过VBA代码,可以验证邮件地址是否符合标准格式,从而在Excel或其他Office应用程序中确保数据质量。
摘要由CSDN通过智能技术生成