Я тут по нажимал на какие-то кнопки, и получилось это:
Судя по всему, я записал макрос
Ладно, справился, пойду, возьму с полки пирожок.
Только не понятно, а как теперь все вернуть как было?
Ведь при сохранении в txt, я могу указать только табуляцию. А потом ее придется менять на | средствами блокнота.
А хочется-то, чтоб лениво было. чтобы бац-бац и в дамках.
| Код |
|---|
Sub проба()
'
' проба Макрос
'
'
Cells.Select
Selection.NumberFormat = "@"
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\-------\db_index.txt" _
, Destination:=Range("$A$1"))
.Name = "db_index"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1251
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 9.71
End Sub
|
Судя по всему, я записал макрос
Ладно, справился, пойду, возьму с полки пирожок.
Только не понятно, а как теперь все вернуть как было?
Ведь при сохранении в txt, я могу указать только табуляцию. А потом ее придется менять на | средствами блокнота.
А хочется-то, чтоб лениво было. чтобы бац-бац и в дамках.
