"SELECT * FROM [" & sheetName & "$]" 改成 100条记录限制

要限制查询结果为前100条记录，您可以在SQL查询语句中添加 `TOP 100` 条件。请使用以下修改后的代码：

Sub ReadDataFromAnotherExcel()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    Dim filePath As String
    Dim sheetName As String
    
    ' 设置源文件路径和工作表名称
    filePath = "C:\Path\To\SourceFile.xlsx"
    sheetName = "Sheet1"
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" _
            & "Data Source=" & filePath & ";" _
            & "Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
    
    ' 打开连接
    conn.Open strConn
    
    ' 构建 SQL 查询语句
    strSQL = "SELECT TOP 100 * FROM [" & sheetName & "$]"
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行查询
    rs.Open strSQL, conn
    
    ' 将查询结果复制到当前工作表的 A1 单元格开始的位置
    Sheet1.Range("A1").CopyFromRecordset rs
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "数据读取完成！"
End Sub

在这个修改后的代码中，我在SQL查询语句中添加了 `TOP 100` 条件，以限制查询结果为前100条记录。

希望这个修改满足了您的需求。如果您有任何其他问题，请随时提问。