使用VBA打开另一个Excel工作簿并获取列

Sub OpenWorkbookAndRetrieveColumn()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 定义文件路径和文件名
    Dim filePath As String
    Dim fileName As String
    
    filePath = "C:\Path\To\Your\File\"
    fileName = "YourWorkbook.xlsx"
    
    ' 打开工作簿
    Set wb = Workbooks.Open(filePath & fileName)
    
    ' 获取工作簿中的第一个工作表
    Set ws = wb.Worksheets(1)
    
    ' 获取列数据
    Set rng = ws.Range("A:A") ' 这里假设要获取A列的数据
    
    ' 在控制台输出列数据
    Dim cell As Range
    For Each cell In rng
        Debug.Print cell.Value
    Next cell
    
    ' 关闭工作簿
    wb.Close SaveChanges:=False
End Sub