Set fso = CreateObject("Scripting.FileSystemObject")
fd = fso.GetFolder(".").Path
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.open(fd&"\测试.xls")
objBook.worksheets(1).activate  '设置第1个工作表为活动工作表
Set objSheet = objBook.activeSheet
For i=5 To 65535  '从第5行开始遍历
    If objSheet.Cells(i, 5).value = "" Then Exit For
    En = objSheet.Cells(i, 5).value  'E列
    Hn = objSheet.Cells(i, 8).value  'H列
    msgbox En &".pdf --> "& Trim(Hn)
    'If not fso.folderExists(Hn) Then fso.CreateFolder Trim(Hn)
    'If fso.fileExists(En&".pdf") Then CreateObject("Wscript.Shell").run "cmd /c move """&En&".pdf"" """&Trim(Hn)&"\""",0
Next
objBook.Close
objExcel.Quit
复制代码

Option Explicit

Dim objExcel, objWorkbook, objWorksheet
Dim strFilePath, strSheetName, strOutputFile
Dim intRow, intLastRow, intColumn
Dim objFSO, objStream

' 设置 Excel 文件路径、表名和输出文件路径
strFilePath = "D:\Birds\DaoChu\鸟种数据导出.xlsx"
strSheetName = "鸟种数据导出"
strOutputFile = "BirdName01.txt"

' 创建 Excel 对象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False

' 打开工作簿和工作表
Set objWorkbook = objExcel.Workbooks.Open(strFilePath)
Set objWorksheet = objWorkbook.Sheets(strSheetName)

' 获取最后一行的索引
intLastRow = objWorksheet.Cells(objWorksheet.Rows.Count, 2).End(-4162).Row

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 创建输出文件流
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "UTF-8"
objStream.Open
objStream.Type = 2 ' Text

' 从第2行开始逐行读取数据并写入文件
For intRow = 2 To intLastRow
    ' 获取第2列（B列）的数据
    Dim birdName
    birdName = objWorksheet.Cells(intRow, 2).Value
    
    ' 将数据写入文件流
    objStream.WriteText birdName & vbCrLf
Next

' 保存文件流到文本文件
objStream.SaveToFile strOutputFile, 2 ' Overwrite

' 关闭文件和清理对象
objStream.Close
Set objStream = Nothing
Set objFSO = Nothing

' 关闭工作簿和 Excel
objWorkbook.Close
objExcel.Quit

' 清理对象
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
复制代码

powershell -c "$connection=\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='鸟种数据导出.xlsx';Extended Properties='Excel 12.0 Xml;HDR=YES';\";$dataTable=New-Object System.Data.DataTable;(New-Object System.Data.OleDb.OleDbDataAdapter(\"SELECT * FROM [鸟种数据导出$]\",$connection)).Fill($dataTable)|out-null;$dataTable.Rows|%%{$_[1]}|sc 1.txt"
复制代码

PS D:\Birds\DaoChu> powershell -c "$connection=\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='鸟种数据导出.xlsx';Extended Properties='Excel 12.0 Xml;HDR=YES';\";$dataTable=New-Object System.Data.DataTable;(New-Object System.Data.OleDb.OleDbDataAdapter(\"SELECT * FROM [鸟种数据导出$]\",$connection)).Fill($dataTable)|out-null;$dataTable.Rows|%%{$_[1]}|sc 1.txt"
所在位置 行:1 字符: 75
+ ...  "$connection=\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='鸟种数据导出 ...
+                                                                  ~
Data 节缺少自己的语句块。
    + CategoryInfo          : ParserError: (:) [], ParentContainsErrorRecordException
    + FullyQualifiedErrorId : MissingStatementBlockForDataSection
复制代码

D:\Birds\DaoChu>powershell -c "$connection=\"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='鸟种数据导出.xlsx';Extended Properties='Excel 12.0 Xml;HDR=YES';\";$dataTable=New-Object System.Data.DataTable;(New-Object System.Data.OleDb.OleDbDataAdapter(\"SELECT * FROM [鸟种数据导出$]\",$connection)).Fill($dataTable)|out-null;$dataTable.Rows|%%{$_[1]}|sc 1.txt"
%% : 无法将“%%”项识别为 cmdlet、函数、脚本文件或可运行程序的名称。请检查名称的拼写，如果包括路径，请确保路径正确，然
后再试一次。
所在位置 行:1 字符: 294
+ ... ]",$connection)).Fill($dataTable)|out-null;$dataTable.Rows|%%{$_[1]}| ...
+                                                                ~~
    + CategoryInfo          : ObjectNotFound: (%%:String) [], CommandNotFoundException
    + FullyQualifiedErrorId : CommandNotFoundException
复制代码

$connection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='鸟种数据导出.xlsx';Extended Properties='Excel 12.0 Xml;HDR=YES';"
$dataTable = New-Object System.Data.DataTable
$adapter = New-Object System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [鸟种数据导出$]", $connection)
$adapter.Fill($dataTable) | Out-Null

$outputFile = "1.txt"
$startingRow = 2

for ($i = $startingRow - 1; $i -lt $dataTable.Rows.Count; $i++) {
    $value = $dataTable.Rows[$i][1]  # 第二列为索引 1
    $value | Out-File -FilePath $outputFile -Append -Encoding UTF8
}
复制代码

$connection="Provider=Microsoft.ACE.OLEDB.12.0;Data Source='鸟种数据导出.xlsx';Extended Properties='Excel 12.0 Xml;HDR=YES';";$dataTable=New-Object System.Data.DataTable;(New-Object System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [鸟种数据导出$]",$connection)).Fill($dataTable)|Out-Null;$outputFile="1.txt";$startingRow=2;for($i=$startingRow-1;$i -lt $dataTable.Rows.Count;$i++){$value=$dataTable.Rows[$i][1];$value|Out-File -FilePath $outputFile -Append -Encoding UTF8;}
复制代码

powershell -c "$connection='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=''鸟种数据导出.xlsx'';Extended Properties=''Excel 12.0 Xml;HDR=YES''';$dataTable=New-Object System.Data.DataTable;(New-Object System.Data.OleDb.OleDbDataAdapter('SELECT * FROM [鸟种数据导出$]',$connection)).Fill($dataTable)|Out-Null;$outputFile='1.txt';$startingRow=2;for($i=$startingRow-1;$i -lt $dataTable.Rows.Count;$i++){$value=$dataTable.Rows[$i][1];$value|Out-File -FilePath $outputFile -Append -Encoding UTF8;}"
复制代码