Get Data from Multiple CSV Text Files into Excel Worksheet
How to get data from multiple CSV or text files into Excel worksheet automatically with VBA.
Details also available at https://www.exceltrainingvideos.com/get-data-from-multiple-csv-or-text-files-into-excel-worksheet/
Below is the complete VBA code:
Option Explicit
Const sPath = "C:\diya-takyar\"
Const delim = ","
Sub MergeDataFromMultipleCSVFiles()
'declare a few variables
Dim sFile As String
Dim sRecord As String
Dim arrRecord()
Dim fNum As Integer
Dim RowCounter As Long
Dim i As Long
'--- INPUT
On Error GoTo errhandler
sFile = Dir(sPath & "*.txt")
RowCounter = 0
'run loop
Do While sFile NOT EQUAL TO ""
fNum = FreeFile
Open sPath & sFile For Input As #fNum
'--- PROCESS
Do While Not EOF(fNum)
Line Input #fNum, sRecord
sRecord = sFile & delim & sRecord
RowCounter = RowCounter + 1
ReDim Preserve arrRecord(1 To RowCounter)
arrRecord(RowCounter) = Split(sRecord, delim)
Loop
Close #fNum
sFile = Dir()
Loop
'--- OUTPUT
With ThisWorkbook.Sheets("Sheet1").Range("A1")
For i = 1 To RowCounter
.Offset(i - 1).Resize(, UBound(arrRecord(i)) + 1).Value = arrRecord(i)
Next i
End With
errExit:
Reset
Exit Sub
errhandler:
Resume errExit
End Sub
NOTE: Replace NOT EQUAL TO with angular brackets.
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «Get Data from Multiple CSV Text Files into Excel Worksheet», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.