從Cell到VBA提取日期和時間數據

Question

我有一個Excel文件，該文件的列包含以下格式的日期：yyyy-mm-dd h：mm

我想將日期和時間存儲在兩個單獨的VBA字符串變量中。 我將如何處理？

Answer 1

要獲取字符串形式的值：

Sub ytrewq()
    ary = Split(Range("A1").Text, " ")
    DateAsString = ary(0)
    TimeAsString = ary(1)
End Sub

Answer 2

您可以使用拆分功能提取兩個不同變量中的日期和時間。

Dim aDate() As String
Dim separatedDate As String
Dim separatedTime As String

'Put the value before the " " (space character) in the first case of the array 
'and the value after the " " (space character) in the second case
aDate = Split(Range("Cell where you date is").Value, " ", -1)

'You can now access these values and store them in variables
separatedDate = aDate(0)
separatedTime = aDate(1)