VBA "Scientific"非标准数字格式

Question

由于不明原因(我需要匹配古代 Fortran 代码中使用的某些格式)，我需要使用 VBA(到文本文件)从 Excel 输出一些非标准科学记数法的数字。
例如如果 x = 6000000
普通VBA:

  mystring = Format(x, "0.000E+00")

产生

  "6.000E+06"

我需要一种生产方式

  "0.600E+07"

反而。我想不出使用 Format 函数来做到这一点的方法。这可能吗？

Answer 1

这应该这样做:

Dim x As Double
    x = 6000000
Dim myString As String
myString = "0" & VBA.Format(x, ".0000E+00")
Debug.Print myString