使用VB脚本读取excel中特定列的所有行

Question

我有一个包含我们所有客户信息的电子表格。所以我们有客户 1、2、3、4、5，每个客户都有一个 EMAIL_ADDRESS 列，其中包含一个或多个电子邮件地址。我需要读取所有这些地址并以某种形式或方式输出它们。我们有AJ标记的列Email_Addresses，我需要为每个客户或行提取所有电子邮件。

我找到了这个代码

Dim xlApp 
Dim xlBook 
Dim xlSheet 
Set xlApp = CreateObject("Excel.Application") 
xlApp.visible = true 
Set xlBook = xlApp.Workbooks.open("D:\Macro\BirthDay.xls") 
Set xlSheet = xlBook.Worksheets("Sheet1") 
MsgBox  xlSheet.Cells(1, A1).Value

但是我的问题是我如何获得这个或一些代码来读取 Email_Address Column 中的所有行AJ。

Answer 1

'ReadExcel Using Search                    
Set objExcel = Wscript.CreateObject("Excel.Application")   
Set objWorkbook = objExcel.Workbooks.Open("D:\VBScriptTrainee\Email.xlsx")   
objExcel.visible=True
rowCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Rows.count
colCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Columns.count  
Msgbox("Rows    :" & rowCount)
Msgbox("Columns :" & colCount) 
a=inputbox("Enter the serial number","Search") 
 intRow = 2
 intCol = 2
  for intRow=2 to rowCount  step 1
     if ( CInt(a) = CInt(objExcel.Cells(intRow, 1).Value) ) then        
       for intCol=1 to colCount step 1  
           c = c & "    " & (objExcel.Cells(intRow, intCol).Value) 
        next 
           sp=Split(c,";")
            b=ubound(sp)
         for i=0 to b
            Msgbox(sp(i))
         Next
     End if
        c=null
  next
'objExcel.Quit