我是VBA宏的新手，我具有以下要求
从文件夹位置打开CSV文件，搜索范围为A1：Z50的文本。假设该文本为“员工姓名”
如果识别出文本，则文本的值将在同一行之后2列
例如，雇员姓名在G10中，则值在J10中。例如，雇员姓名在H10中，则值在K10中。
必须复制雇员值n粘贴到新的excel中。超过100个CSV文件... 因此它应该自动打开一个CSV格式-）员工值必须复制n并粘贴到新的xls中...
注意：CSV文件中只有一个名为“雇员姓名”的文本。
由于是新手，所以我尝试打开多个CSV。它有效，但无法继续进行。
新的xls必须包含详细信息：
Employee Name
----------
Raj
----------
John
到目前为止的代码：
Sub OpenData()
Dim oDocument As Object
FName = "D:\Projects\xyz\\Filename"
fnURL = ConvertToURL(FName + ".csv")
'Create new document and import data
oDocument = StarDesktop.LoadComponentFromURL(fnURL, "_blank", 0, Array( _
MakePropertyValue("FilterName", "Text - txt - csv (StarCalc)"), _
MakePropertyValue("FilterOptions", "59/MRG,34,0,1,7/2/8/2/9/2/10/2")))
End Sub