UC知道EXCEL Macro 宏执行错误，"Compile Error: expected sub function or property"
来源：百度知道 编辑：UC知道 时间：2024/06/15 02:12:14
我用Module 模式创建了一个EXCEL宏 代码如下：
Public Sub testFX()
On Error GoTo EH
Dim objectCurrencyRow(11) As String 'ÓÃÓڼǼĿ±ê»ãÂʵÄÐÐÁбí
Dim objectCurrencyColumn(11) As String 'ÓÃÓڼǼĿ±ê»ãÂʵÄÁÐÁбí
Dim objectResult(11) As Long '¼Ç¼ÿ´Î¼ÆËã½á¹ûÖµ
Dim sourceCurrency 'ÓÃÓڼǼԴ»ãÂʵÄÁбíÊýÖµ
' initializing the sourceCurrency
Set sourceCurrency = CreateObject(Scripting.Dictionary)
sourceCurrency.Add "
Public Sub testFX()
On Error GoTo EH
Dim objectCurrencyRow(11) As String 'ÓÃÓڼǼĿ±ê»ãÂʵÄÐÐÁбí
Dim objectCurrencyColumn(11) As String 'ÓÃÓڼǼĿ±ê»ãÂʵÄÁÐÁбí
Dim objectResult(11) As Long '¼Ç¼ÿ´Î¼ÆËã½á¹ûÖµ
Dim sourceCurrency 'ÓÃÓڼǼԴ»ãÂʵÄÁбíÊýÖµ
' initializing the sourceCurrency
Set sourceCurrency = CreateObject(Scripting.Dictionary)
sourceCurrency.Add "
错误点：
1.CreateObject(Scripting.Dictionary)
要加引号。
2.sourceCurrency "GBP", 1 / Cells(i, 2)
少了方法
正解如下：
Public Sub testFX()
On Error GoTo EH
Dim objectCurrencyRow(11) As String 'OAOU?CA?A?±e≫aAEμADDAD±i
Dim objectCurrencyColumn(11) As String 'OAOU?CA?A?±e≫aAEμAADAD±i
Dim objectResult(11) As Long '?CA?A?´I?AEa?a1uOμ
Dim sourceCurrency 'OAOU?CA?O´≫aAEμAAD±iEyOμ
' initializing the sourceCurrency
Set sourceCurrency = CreateObject("Scripting.Dictionary")
sourceCurrency.Add "USD", 1 'Add some keys and items
Sheets("source").Select
For i = 2 To 12
If i <> 4 Then
sourceCurrency.Add Cells(i, 2), Cells(i, 4)
Else
sourceCurrency.Add "GBP", 1 / Cells(i, 2)
End If
Next i
' initializing the objectCurrencyColumn/objectCurrencyRow
Sheets("FX Rate&q