Как импортировать текст в формат времени?

Question

У меня есть текстовые файлы из регистратора данных в таком формате, как этот

hh:mm, Data, Data

, который мне нужно импортировать в Excel.

Я не могу на всю жизньиз меня выяснить, как заставить Excel импортировать часть чч: мм как (24-часовой формат) время вместо текста.Является ли это возможным?Если нет, то есть ли какой-нибудь прямой способ преобразования столбца текста чч: мм в формат времени Excel?(Я знаю, что могу написать формулу преобразования, но уже должно быть что-то встроенное, верно?)

Excel 2008 на OS X

Answer 1

Не уверен, что есть хороший способ сделать это с помощью кнопки, но

=TIMEVALUE(A1)

, где A1 - ваша дата, должна помочь.

Answer 2

Если все время отформатировано как чч: мм, это должно быть довольно просто.

A       B           C            D
22:15   =LEFT(A1,2) =RIGHT(A1,2) =TIME(B2,C1,0)

Все, что вы здесь делаете, - это берете текст (столбец A) и выделяете часы (столбец B) и минуты (столбец C) и используете функцию TIME для их объединения.

Вы можете даже сделать это в одной формуле:

=TIME(LEFT(A1,2),RIGHT(A1,2),0)

Answer 3

Слишком поздно форматировать столбец как время после импорта, но это должно быть возможно как часть импорта при применении ОТ ТЕКСТА .

Хотя это и не показано в ссылке, шаг 3 из 3 должен позволить вам установить для соответствующего формата данных столбца значение Общие, а полдень импорта, например, как 0.5 отображается как 12:00.

Answer 4

Предположим, у меня есть файл с именем Time.txt с одним столбцом раз следующим образом:

22:13
09:25
12:20

Я хотел бы прочитать их в Excel S / Sheet и поместить их в диапазоне от A1 до A3и отформатируйте их как hh:mm:ss.Этот код показывает, как этого можно достичь:

(Примечание: вам нужно добавить ссылку на Microsoft Scripting Runtime, чтобы заставить это работать. В редакторе VB: Инструменты > Ссылки > Microsoft Scripting Runtime )

Sub GetTimesFromFile()

Dim oFSO As New Scripting.FileSystemObject
Dim targetFile As Object
Set targetFile = oFSO.OpenTextFile("C:\Time.txt") //Change for your file path as appropriate

Dim cellCount As Long
cellCount = 1

Do Until targetFile.AtEndOfStream
    Cells(cellCount, 1) = targetFile.ReadLine
    Cells(cellCount, 1).NumberFormat = "hh:mm:ss" //Time format I want
    cellCount = cellCount + 1
Loop

End Sub