Eu estou usando o pedaço de código para exportar valores monetários para o Excel:
If RsExcel.Fields("vTotal").Value > 0 Then
svTotal = RsExcel.Fields("vTotal").Value
svTotal = Format(svTotal, "##,##0.00")
Else
svTotal = ""
End If
Porém, quando o Excel abre, os registros que contém "vírgula" são exportados como Contábil e, por isso, não reconhecidos como números em uma eventual soma.
O meu campo da tabela é: vTotal e é "campo calculado" com formato de saída "moeda"
mesmo assim ele não exporta corretamente.
Variável "svTotal"
Eu tentei usar isto: svTotal = Format(svTotal, "##,##0.00") mas não dá certo
Alguém pode me ajudar por favor?
obrigado de verdade.
If RsExcel.Fields("vTotal").Value > 0 Then
svTotal = RsExcel.Fields("vTotal").Value
svTotal = Format(svTotal, "##,##0.00")
Else
svTotal = ""
End If
Porém, quando o Excel abre, os registros que contém "vírgula" são exportados como Contábil e, por isso, não reconhecidos como números em uma eventual soma.
O meu campo da tabela é: vTotal e é "campo calculado" com formato de saída "moeda"
mesmo assim ele não exporta corretamente.
Variável "svTotal"
Eu tentei usar isto: svTotal = Format(svTotal, "##,##0.00") mas não dá certo
Alguém pode me ajudar por favor?
obrigado de verdade.