Question

我想阅读日期的文本部分，因为它显示为比较它在哪里。日期格式在单元格中显示为＆＃34; 19 Dec＆＃34;这是＆＃34; 12/19/2016＆＃34;的格式化版本。我怎样才能阅读＆＃34; Dec＆＃34;在文字？我写这篇文章是为了从外部工作簿中读取而我无法控制该工作簿的格式。我有下面的部分代码。我正在处理的两条主要线路是＆＃34; Alpha ......＆＃34;和＆＃34;欧米茄......＆＃34;我还想过用另一种方式做另一种方式，用＃34; ActiveSheet.Range ...＆＃34;任何帮助将不胜感激。谢谢。

Sub DataImport()
   Workbooks.Open "\\Issues\Inventory\PA2016.xlsx"
Worksheets("Total Year").Activate
Alpha = Right(Cells(300, 10), 3)
Omega = Right(Cells(600, 10), 3)

'ActiveSheet.Range(Right(Cells(300, 10), 3), Right(Cells(600, 10), 3)).Select

Debug.Print Alpha
Debug.Print Omega
End Sub

VBA - 阅读显示的日期文本

0 个答案: