VBA 读取 D:/aa.csv 文件并复制到 Sheet1

以下是一个用 VBA 读取 D:/aa.csv 文件并将其复制到 Sheet1 的示例代码：\n\nvba\nSub ReadCSVFile()\n Dim filePath As String\n Dim wb As Workbook\n Dim ws As Worksheet\n\n ' 设置文件路径\n filePath = "D:/aa.csv"\n\n ' 打开文件\n Set wb = Workbooks.Open(filePath)\n \n ' 选择或添加工作表\n On Error Resume Next\n Set ws = wb.Worksheets("Sheet1")\n On Error GoTo 0\n If ws Is Nothing Then\n Set ws = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))\n ws.Name = "Sheet1"\n End If\n \n ' 将数据复制到 Sheet1\n wb.Sheets(1).UsedRange.Copy ws.Range("A1")\n \n ' 关闭文件（保存更改）\n wb.Close SaveChanges:=True\n \n ' 释放对象\n Set ws = Nothing\n Set wb = Nothing\n\n MsgBox "CSV 文件已成功复制到 Sheet1。"\nEnd Sub\n\n\n请注意，上述代码中的文件路径应与实际的 CSV 文件路径匹配。