使用 VBA 将数据从 .csv 导入 excel 文档

Question

想知道您是否可以帮助解决 VBA 问题。在不知道自己在做什么的情况下，我拼凑了以下内容：

Sub Import_Raw_Stripe_data()

    Dim fileDialog As fileDialog
    Dim strPathFile As String
    Dim strFileName As String
    Dim strPath As String
    Dim dialogTitle As String
    Dim Tworkbook As Workbook
    Dim Sworkbook As Workbook


dialogueTitle = "Select File to Import"
Set fileDialogue = Application.fileDialog(msoFileDialogFilePicker)
With fileDialogue
    .InitialFileName = "L:\Downloads"
    .AllowMultiSelect = False
    .Filters.Clear
    .Title = dialogueTitle

    If .Show = False Then
        MsgBox "No file selected."
        Exit Sub
    End If
    strPathFile = .SelectedItems(1)
End With

Set Sworkbook = Workbooks.Open(fileName:=strPathFile)
Set Tworkbook = ThisWorkbook



End Sub

据我所知，它会在 excel 中打开一个文件对话框，允许用户选择一个文档然后打开它。

我想做的是：

1) 打开一个文件对话框并选择一个 .csv 文件以将数据从（完整？）导入到一个 .xlsm 主文件（包含多个工作表）。

2) 从 .csv 中选择某些列（在本例中为列 A、Q、R 和 S），将它们复制并导入到名为“Raw Stripe Data”的主 excel 文件的第二张表中。

在此问题上的任何帮助将不胜感激。

更新：我设法找到以下代码：

Sub load_csv()
    Dim fStr As String

    With Application.fileDialog(msoFileDialogFilePicker)
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "Cancel Selected"
            Exit Sub
        End If
        'fStr is the file path and name of the file you selected.
        fStr = .SelectedItems(1)
    End With

    With ThisWorkbook.Sheets("Stripe Raw Data").QueryTables.Add(Connection:= _
    "TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("Stripe Raw Data").Range("$A$1"))
        .Name = "CAPTURE"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        ActiveWorkbook.Save



    End With

End Sub

这很好用——但有没有办法让它不覆盖已经导入的数据？ （例如，如果我使用它两次，则第二次导入会覆盖第一次）。

Answer 1

ThisWorkbook.Sheets("Stripe Raw Data").Range("$A$1") 指定导入数据的写入位置，即工作表的第一个单元格Stripe Raw Data。

如果您想在另一个位置进行下一次导入，请根据自己的喜好调整。

如 cmets 中所述，您可以更改 load_csv() 以将输出目标作为参数。如果还把Sub改成Function，就可以返回导入的行数：

Function load_csv(rngDestination As Range) As Long
    '...

    With ThisWorkbook.Sheets("Stripe Raw Data").QueryTables.Add(Connection:= _
    "TEXT;" & fStr, Destination:=rng)

        '...

        .Refresh BackgroundQuery:=False
        load_csv = .ResultRange.Rows.Count

        '...

End Function

现在您可以重复调用load_csv 并为其提供输出应开始的范围，例如：

Dim rngOutput As Range
Dim lngRows As Long

Set rngOutput = ThisWorkbook.Sheets("Stripe Raw Data").Range("$A$1")

lngRows = load_csv(rngOutput) ' load first file
lngRows = lngRows + load_csv(rngOutput.Offset(lngRows)) ' load second file
lngRows = lngRows + load_csv(rngOutput.Offset(lngRows)) ' load third file
lngRows = lngRows + load_csv(rngOutput.Offset(lngRows)) ' load fourth file

还有很大的改进空间：

• 删除重复的标题
• 创建循环而不是显式调用 load_csv 四次
• 更好地控制用户选择文件（多选）
• 将导入的数据与 QueryTable 断开连接，以减少导入后的依赖关系
• 不导入 ThisWorkbook 但之后保存 ActiveWorkbook - 它们可能并不总是相同
• ...

但这不是这个问题的一部分。毕竟，你只想知道：

有没有办法让它不覆盖已经导入的数据？

我希望我能用上面的内容来充分回答这个问题。