VBA使用.Formula in Excel在Range.Value爲空時返回0

Question

如果.Formula = "='C:\data\[adxl364.xls]ADXL364_QC'!A1"的結果爲空，它會在我的Worksheet中返回值0。

如果Cell爲空時，我應該在代碼中添加什麼，以便不返回值0？

Sub GetRange() 
    With Range("A:Z") 
     .Formula = "='C:\data\[adxl364.xls]ADXL364_QC'!A1" 
     .Formula = .Value 
    End With 
End Sub 

Answer 1

您可以使用函數：=IF(ISBLANK('C:\data\[adxl364.xls]ADXL364_QC'!A1);"";'C:\data\[adxl364.xls]ADXL364_QC'!A1)

Answer 2

您需要修改公式返回一個空字符串時，」 ..！A1" 不= 0

Sub GetRange() 
    With Range("A:Z") 
     .Formula = "=If('C:\data\[adxl364.xls]ADXL364_QC'!A1 > 0,'C:\data\[adxl364.xls]ADXL364_QC'!A1,Text(,))" 
     .Formula = .Value 
    End With 
End Sub 

---

我用文字（）返回一個空字符串，而不是雙引號增加了一倍（如「」，「」）：

"=If('C:\data\[adxl364.xls]ADXL364_QC'!A1 > 0,'C:\data\[adxl364.xls]ADXL364_QC'!A1,"""")"