使用文本而不是价值

Question

的

在excel-vba创建变量数组，你可以从一系列创建一个变量数组，像这样：

Dim x As Variant 

x = Range("A1:Z1").Value 

这显然放置.Value属性到数组。我试图做同样的事情，但获得单元格的.Text属性，但我不认为这是可能的。

Dim x As Variant 

x = Range("A1:Z1").Text '// <~~ type mismatch 

---

的原因如下，我有数据行，像这样：

|------A------|------B------|------C------| 
1| 01-Jan-2003 27-Feb-2005 15-Sep-2015 

我要输出的行到一个文本文件使用管道分隔符，目前我米使用此：

With WorksheetFunction 
    x = .Transpose(.Transpose(Cells(1, 1).Resize(1, 3).Value)) 
End With 

Print #1, Join(x, "|") 

其中一期工程，但它变得如此的输出看起来像它的格式为DD/MM/YYYY的.Value此：

01/01/2003|27/02/2005|15/09/2015 

---

问：我可以保留而不必解析/回路的阵列的第一中的每个值使用这种方法的格式化？

Answer 1

不是非常优雅，我不确定这会大量工作，但它避免了一个循环。您可以将最终输出放入一个字符串并替换：

Dim x As Variant, y As String 

x = Range("A1:Z1") 

With WorksheetFunction 
    x = .Transpose(.Transpose(ActiveSheet.Cells(1, 1).Resize(1, 5).Value)) 
End With 

y = Join(x, "|") 

y = Replace(y, "/01/", "-Jan-") 
y = Replace(y, "/02/", "-Feb-") 
y = Replace(y, "/03/", "-Mar-") 
y = Replace(y, "/04/", "-Apr-") 
y = Replace(y, "/05/", "-May-") 
y = Replace(y, "/06/", "-Jun-") 
y = Replace(y, "/07/", "-Jul-") 
y = Replace(y, "/08/", "-Aug-") 
y = Replace(y, "/09/", "-Sep-") 
y = Replace(y, "/10/", "-Oct-") 
y = Replace(y, "/11/", "-Nov-") 
y = Replace(y, "/12/", "-Dec-") 

Debug.print y