Importuj pliki CSV w programie Excel


Chciałbym prosić o pomoc w następujących sprawach:
Mam pliki CSV eksportowane z aplikacji oprogramowania, które muszę importować do programu Excel do analizy danych. 40-50 CSV są generowane codziennie. W tej chwili robię to ręcznie przez "Uzyskaj zewnętrzne dane z tekstu". Kod nagrany podczas importu jest: 
With ActiveSheet.QueryTables.Add(Connection:= _

 "TEXT;SYSTEM:Users:catalin:Documents:LINELLA:WH Analytics:data:pick 01-18:050:Inquiry closed lists SKU_0142.csv" _

 , Destination:=Range("A1704"))

 .Name = "Inquiry closed lists SKU_0142"

 .FieldNames = True

 .RowNumbers = False

 .FillAdjacentFormulas = False

 .RefreshOnFileOpen = False

 .BackgroundQuery = True

 .RefreshStyle = xlInsertDeleteCells

 .SavePassword = False

 .SaveData = True

 .AdjustColumnWidth = True

 .TextFilePromptOnRefresh = False

 .TextFilePlatform = xlMacintosh

 .TextFileStartRow = 1

 .TextFileParseType = xlDelimited

 .TextFileTextQualifier = xlTextQualifierDoubleQuote

 .TextFileConsecutiveDelimiter = False

 .TextFileTabDelimiter = True

 .TextFileSemicolonDelimiter = False

 .TextFileCommaDelimiter = False

 .TextFileSpaceDelimiter = False

 .TextFileOtherDelimiter = ";"

 .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)

 .Refresh BackgroundQuery:=False

 .UseListObject = False

End With

Selection.End(xlDown).Select

Range("A1710").Select

Chcę mieć możliwość automatycznego importowania wszystkich plików CSV z wybranego folderu, w którym umieściłem nowe pliki i uruchomić proces importu. Każdy plik musi zostać wstawiony natychmiast po ostatniej linii poprzednich plików.
Twoja pomoc będzie bardzo wdzięczna.
2021-03-02 Dodaj komentarz
Udostępnij to

Nie znaleziono powiązanych wyników

    Zaproszony:
    Anonimowy użytkownik

    Anonimowy użytkownik

    Potwierdzenie od:

    Umieść nagrany kod do funkcji, zastępując nazwę pliku statycznego zmiennej, a następnie wywołaj tę funkcję dla każdego pliku
    *. CSV
    w folderze. Aby pracować poniżej, musisz zapisać plik za pomocą tego makra w tym samym folderze, co pliki CSV. Dla mojego szybkiego testu musiałem zastąpić separator z ; na 
    ,  i usuń ostatnią linię  .uselistObject = false . 
    
 
    Sub ImportAllCSV()
    
 Dim FName As Variant, R As Long
    
 R = 1
    
 FName = Dir("*.csv")
    
 Do While FName <> ""
    
 ImportCsvFile FName, ActiveSheet.Cells(R, 1)
    
 R = ActiveSheet.UsedRange.Rows.Count + 1
    
 FName = Dir
    
 Loop
    
End SubSub ImportCsvFile(FileName As Variant, Position As Range)
    
 With ActiveSheet.QueryTables.Add(Connection:= _
    
 "TEXT;" & FileName _
    
 , Destination:=Position)
    
 .Name = Replace(FileName, ".csv", "")
    
 .FieldNames = True
    
 .RowNumbers = False
    
 .FillAdjacentFormulas = False
    
 .RefreshOnFileOpen = False
    
 .BackgroundQuery = True
    
 .RefreshStyle = xlInsertDeleteCells
    
 .SavePassword = False
    
 .SaveData = True
    
 .AdjustColumnWidth = True
    
 .TextFilePromptOnRefresh = False
    
 .TextFilePlatform = xlMacintosh
    
 .TextFileStartRow = 1
    
 .TextFileParseType = xlDelimited
    
 .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
 .TextFileConsecutiveDelimiter = False
    
 .TextFileTabDelimiter = True
    
 .TextFileSemicolonDelimiter = False
    
 .TextFileCommaDelimiter = False
    
 .TextFileSpaceDelimiter = False
    
 .TextFileOtherDelimiter = ","
    
 .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    
 .Refresh BackgroundQuery:=False
    
 End With
    
End Sub
    2021-03-02 0 0
    Udostępnij to
    Dlaczego jest złożony? 0 odpowiedzi zostało zwiniętych

    Aby odpowiedzieć na pytania, Zaloguj się lub Zarejestruj się

    Polityka prywatności: https://zweryfikowac.pl/Polityka-prywatnosci.pdf
    Copyright © 2023, All Rights Reserved