Bom dia a todos!
Estou tentando integrar o excel a outro software (o EES - Engineering Equation Solver) através de um código em vba.
Meu programa copia determinadas colunas de uma tabela, transfere para o outro programa, realiza os cálculos, copia os resultados e cola nas colunas correspondentes da minha tabela no excel. O próprio site de ajuda do EES disponibiliza um programa de exemplo para operação, que estou usando como base.
O problema é que o meu programa retorna valores decimais e o excel não está reconhecendo a vírgula dos dados colados! O estranho é que dados decimais copiados do excel para o EES são interpretados corretamente e se eu copio e colo os dados do EES manualmente na planilha o número vem com a vírgula corretamente!
Meu excel já está ajustado para reconhecer vírgula como separador decimal, igual ao EES. O código segue abaixo:
Private Sub cmdDDE_Click()
Dim ChNumber As Integer
Dim myShell As String
ChNumber = -1
myShell = frmEESDDE.txtApp.Text
On Error Resume Next
'Copy selected rows into clipboard
Range("B2:G1401").Select
Selection.Copy
Shell_R = Shell(myShell, 1)
If Shell_R <> "" Then
'Initiate DDE
ChNumber = Application.DDEInitiate(app:="ees", topic:="")
If ChNumber <> -1 Then
'Open EES
Application.DDEExecute ChannelNumber, "[Open C:\EES\Tablesolve.ees]"
'Paste data
Application.DDEExecute ChannelNumber, "[Paste Parametric 'Table 1' R1 C1]"
'Solve parametrictable
Application.DDEExecute ChannelNumber, "[SOLVETABLE 'TABLE 1' Rows=1..1400]"
'Copy results
Application.DDEExecute ChannelNumber, "[COPY ParametricTable 'Table 1' R1 C7:R1400 C14]"
'Choose separators
Application.DecimalSeparator = ","
Application.ThousandsSeparator = "."
Application.UseSystemSeparators = False
'Paste results from EES into EXCEL
Application.Paste Destination:=Worksheets("Sheet1").Range("H2:O1440")
Application.UseSystemSeparators = True
'Quit EES and Terminate DDE
DDEExecute ChNumber, "QUIT"
Application.DDETerminate ChNumber
Else
MsgBox "Unable to initiate connection to EES", vbExclamation, "EES DDE"
End If
frmEESDDE.Hide
Else
MsgBox "The application, " & myShell & ", was not found", vbExclamation, "EES DDE"
End If
End Sub
PS = Notem que eu já tentei usar o comando Application.DecimalSeparator = "," mas não deu certo. Meu resultado de, por exemplo, "15,47" aparece no excel como "1,55E+12" ou como "1547421377050".
Desde já agradeço pela ajuda!
Shell "notepad.exe", vbNormalFocus SendKeys "^V"
PS= não tenho mt experiência com VBA.