whateverlover,Спасибо! не получается пока использовать макрос по импорту csv. Использовал запись макроса: *часть с выбором файла у которого в названии invited*
Не понимаю как:
1) Указать прееменное имя в назвнаии csv
2) Указать переменный путь к csv
3) Указать динамически разное значение в .TextFilePlatform = 1252 (в данном файле 12523 строки, в другом будет меньше)
| Код |
|---|
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\testfolder\_invited_20210830_104005.csv" _
, Destination:=Range("$A$1"))
.CommandType = 0
.Name = "_invited_20210830_104005.csv"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub |
1) Указать прееменное имя в назвнаии csv
2) Указать переменный путь к csv
3) Указать динамически разное значение в .TextFilePlatform = 1252 (в данном файле 12523 строки, в другом будет меньше)
