使用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。

如果您希望在下一個位置導入下一個導入，請根據自己的喜好調整它。

正如評論中所述，您可以更改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 - 他們可能不總是相同的
• ...

但這還不是這個問題的一部分。畢竟，所有你想知道的是：

是否有無論如何不覆蓋已經導入的數據？

我希望我能夠充分回答這個問題。