以下是一段代码，该代码可用于xlsx文件，但不适用于csv文件，至少我怀疑如此。
代码的目的是找到一个列名，例如ProductType并返回存储所述列名称的列号。
同样，当我在xslx文件类型上运行时，这段代码可以完美地工作，但是在csv文件上运行时却无法工作。
感谢您的帮助。
Sub ma1()
Dim RA As Excel.Workbook
Set RA = Workbooks.Open("G:\depts\Pri\RA.csv")
RA_col = RA.Sheets(1).Cells.Find(What:="ProductType",MatchCase:=True,LookAt:=xlWhole).Column
Debug.Print (RA_col)
End Sub
如果您只在意查找标题行中的列，而不是使用find，则可以简单地遍历第一行以查找匹配项。我试图将其封装到可以调用的函数中。
您提供文件路径，ColumnName和可选的要执行的比较类型。默认情况下，比较是区分大小写的匹配（二进制），但也可以交换为不区分大小写的匹配。
功能
Option Explicit
Public Function GetColumnIndexFromFile(FilePath As String,ColumnName As String,Optional CompareMethod As VbCompareMethod = VbCompareMethod.vbBinaryCompare)
Dim wb As Workbook
Dim ws As Worksheet
Dim Column As Range
Dim Columns As Range
Dim ColumnIndex As Long
Set wb = Workbooks.Open(FilePath)
Set ws = wb.Sheets(1)
With ws
Set Columns = .Range(.Cells(1,1),.Cells(1,.Columns.Count).End(xlToLeft).Column))
End With
For Each Column In Columns
If StrComp(Column.Value2,ColumnName,CompareMethod) = 0 Then
GetColumnIndexFromFile = Column.Column
Exit Function
End If
Next
End Function
用法示例
Public Sub ExampleCall()
Debug.Print GetColumnIndexFromFile("G:\depts\Pri\RA.csv","ProductType")
End Sub