怎么使用VBA中的SQL方法读取这个路径下“\\cduvmfs03\CDUTemp\Temp\Bin\ProApply\DataBase.xlsx” Sheets("Apply")的所有单元格内容并输出到新表sheet2

要使用VBA中的SQL方法读取指定路径下的Excel文件并输出到新表，可以按照以下步骤进行操作：

1. 打开Excel文件并打开指定的工作表。
2. 创建一个新的工作表（Sheet2）用于存储输出数据。
3. 使用VBA中的`Workbooks.Open`方法打开指定的Excel文件。
4. 使用`Range`对象选择要读取的单元格范围，例如选择整个工作表的所有单元格。
5. 使用`WorksheetFunction`对象对读取的数据进行必要的处理，例如转换为数字或文本格式。
6. 使用`Range.CopyToJSON`方法将读取的数据复制到新表Sheet2中。
7. 关闭Excel文件并保存更改。

下面是一个示例代码，可以帮助你完成上述步骤：

Sub ReadExcelData()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim outputWs As Worksheet
    Dim sourcePath As String
    Dim sourceSheet As String
    Dim outputSheet As String
    Dim dataRange As Range
    Dim outputRange As Range
    Dim i As Long, j As Long
    
    '设置源文件路径和工作表名称
    sourcePath = "\\cduvmfs03\CDUTemp\Temp\Bin\ProApply\DataBase.xlsx"
    sourceSheet = "Apply"
    outputSheet = "Sheet2"
    
    '打开源文件并选择要读取的工作表
    Set wb = Workbooks.Open(sourcePath)
    Set ws = wb.Sheets(sourceSheet)
    Set outputWs = ThisWorkbook.Sheets(outputSheet)
    
    '选择要读取的单元格范围
    Set dataRange = ws.UsedRange
    
    '将数据复制到新表中
    outputRange = outputWs.Range("A1") '指定新表的起始单元格
    i = 1 '假设数据按行存储，第一行是列标题
    For Each cell In dataRange
        j = j + 1 '当前行数加一
        outputRange.Offset(j - 1, i).Value = cell.Value '将单元格值复制到新表中
    Next cell
    
    '关闭源文件并保存更改
    wb.Close SaveChanges:=False
End Sub

请注意，上述代码仅提供了一个基本的框架，你可能需要根据实际情况进行适当的修改和调整。确保将代码中的源文件路径、工作表名称和新表名称替换为你实际使用的值。此外，代码中的数据存储方式假设数据按行存储，第一行是列标题。你可以根据实际情况进行调整。