根据单据名称通过vba将单据上传到excel中

Dim wb As Workbook
Set wb = Workbooks.Add

Dim fileDialog As FileDialog
Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
fileDialog.AllowMultiSelect = False
If fileDialog.Show = -1 Then
    Dim filePath As String
    filePath = fileDialog.SelectedItems(1)
End If

If Right(filePath, 4) = ".csv" Then
    Dim csvData As String
    Open filePath For Input As #1
    csvData = Input$(LOF(1), #1)
    Close #1
    ' 处理CSV数据，将其分割为行和列
    Dim rows() As String
    rows = Split(csvData, vbNewLine)
    Dim rowIdx As Long
    For rowIdx = LBound(rows) To UBound(rows)
        Dim columns() As String
        columns = Split(rows(rowIdx), ",")
        Dim colIdx As Long
        For colIdx = LBound(columns) To UBound(columns)
            ' 将数据写入Excel单元格
            wb.Sheets(1).Cells(rowIdx + 1, colIdx + 1).Value = columns(colIdx)
        Next colIdx
    Next rowIdx
End If

wb.SaveAs "保存路径"
wb.Close