Как заставить Excel обрабатывать даты в CSV как текст в макросе

Question

У меня есть макрос, который позволяет пользователю выбрать файл CSV, а затем манипулирует им. Тем не менее, он рассматривает ячейки, которые содержат такие вещи, как 1/2/12, как дата. Мне нужно сохранить эти строки в виде текста, а не даты.

Я знаю, что могу сделать это: 1) начать новый лист 2) импортировать CSV вместо его открытия. Установите столбец с датами "текст" и закончите.

Вопрос в том, как мне прервать Data> Import, чтобы пользователь мог выбрать файл. После этого макрос должен продолжать устанавливать формат столбцов, завершать импорт и выполнять манипуляции с данными.

Изменить: Вот соответствующий код макроса в его нынешнем виде:

ЧДир "C:\RoomTimerData\"

MyFile = Приложение.GetOpenFilename(«Значения, разделенные запятыми (.csv),.csv»)

Workbooks.Открыть fileName:= MyFile

Answer 1

Обычно в качестве шага 3 из 3 диалогового окна импорта текста выбирается тип данных для каждого импортируемого столбца. Чтобы избежать неправильного форматирования, просто используйте текст в качестве формата, и все хорошо.

Однако вы, кажется, используете макрос VBA для импорта файлов CSV. Итак, я только что записал такой нетленный импорт текста :

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\test.csv", Destination:=Range("$A$1"))
    .Name = "test_1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 850
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(2, 1) 'THIS IS THE MAGIC LINE!
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

Кроме того, посмотрите на этот пример из справки Excel для TextFileColumnDataTypes:

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _
        .Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
        Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
    .TextFileParseType = xlFixedWidth
    .TextFileFixedColumnWidths = Array(5, 4)
    .TextFileColumnDataTypes = _
        Array(xlTextFormat, xlSkipColumn, xlGeneralFormat)
    .Refresh
End With

Это форматы, которые вы можете использовать:

• xlGeneralFormat
• xlTextFormat
• xlSkipColumn
• xlDMYFormat
• xlDYMFormat
• xlEMDFormat
• xlMDYFormat
• xlMYDFormat
• xlYDMFormat
• xlYMDFormat