Programa parra traduzir Macro VBA para JAVA

27 de agosto de 2012 5 respostas

Jobson_Yonaha_Gimene 27 de agosto de 2012

Boa tarde pessoal do GUJ, Eu gostaria de saber se alguém conhece um programa que possa traduzir ou converter o Macro VBA do Excel para a linguagem Java. É que eu tenho varias planilhas no Excel que esta na linguagem Macro VBA e gostaria de transformar estas planilhas que estão em VBA em linguagem Java e assim criar um programa igual as planilhas que eu estou usando. Obs.: eu não sei programar em Macro VBA, estas planilhas que eu estou usando eu baixei da internet mais gostaria de transforma-la em um programa do Java. Já procurei no Google mais não achei vai que alguém ai consegue achar né. Bom então alguém ai pode me ajudar? Bom desde já muito muito muito OBRIGADO a todos que me ajudarem! 8) Abaixo esta uma das planilhas em que estou usando. :arrow:

Private Sub Worksheet_Activate()
If (click = 1) Then
  If (Sheets(1).Range("A2") = 0 Or Sheets(1).Range("A3") <> "mrygpmd12v@jsordr") Then
   With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = False
    End With
    Sheets(3).ScrollArea = "A4:J95"
'    Range("C7").Select
  End If
    click = 0
End If
  contartimes  
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If (Target.Column = 3 And Sheets(3).Range("A3") = 0) Then
     contartimes
   End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If (Target.Column = 3 And Sheets(3).Range("A3") = 0) Then
   contartimes
  End If
End Sub

Private Sub Worksheet_Deactivate()
On Error Resume Next
contartimes2
Sheets(14).Range("N6:N69").Value = Sheets(3).Range("C8:C71").Value
Sheets(6).Range("T1").Value = Sheets(3).Range("E7").Value
Sheets(14).Calculate
Sheets(6).Calculate
End Sub

Private Sub contartimes()
Dim linha As Integer
Dim cont As Integer
Sheets(3).Range("A3") = 1
For linha = 1 To 64
  If (Sheets(3).Cells(linha + 7, 3) <> "") Then
    cont = cont + 1
  End If
Next linha
Sheets(3).Range("E7") = cont
Sheets(3).Range("A3") = 0
End Sub

Private Sub contartimes2()
Dim linha As Integer
Dim cont As Integer
Dim time(64) As String
Sheets(3).Range("A3") = 1
For linha = 1 To 64
  If (Sheets(3).Cells(linha + 7, 3) <> "") Then
    cont = cont + 1
    time(cont) = Sheets(3).Cells(linha + 7, 3)
  End If
Next linha
For linha = 1 To 64
  If (linha <= cont) Then
     Sheets(3).Cells(linha + 7, 3) = time(linha)
  Else
     Sheets(3).Cells(linha + 7, 3) = ""
  End If
Next linha
Sheets(3).Range("E7") = cont
Sheets(3).Range("A3") = 0
End Sub

a pedidos eu mudei o jeito de postar o código fonte

5 Respostas

marcio_de_jesus_sant 27 de ago. de 2012

Boa Tarde Jobson, coloque o código nas tag code Private Sub Worksheet_Activate() If (click = 1) Then If (Sheets(1).Range("A2") = 0 Or Sheets(1).Range("A3") <> "mrygpmd12v@jsordr") Then With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = False End With Que assim fica mais fácil para quem for analisar o seu código, porque da forma que você colocou ninguém ira olhar. E se você tiver paciência em pesquisar aqui no fórum tem algumas dica de integrar excel com java pesquise com calma que você encontrara. Mesmo não sendo o que você deseja já te da uma luz.

entanglement 27 de ago. de 2012

Acho que há algumas empresas nos EUA ou na Índia que são especializadas em fazer esse tipo de conversão - obviamente elas não disponibilizam seus programas para quem quiser usar, é lógico - e imagino que alguma coisa dessa conversão seja manual, já que nem todos os recursos do VBA estão disponíveis para o Java.
Como você deve ter poucos desses programas, então vale a pena aprender um pouco de VBA.

marciobarroso 27 de ago. de 2012

Dá uma olhada em uma API chamada COM4J

Ela não faz o que você quer, porém, você programa JAVA utilizando os mesmos nomes de recursos e classes usados no VB ou VBA.

No final das contas, você acaba colando o código VBA dentro de um método e sai somente ajustando alguns detalhes.

A programação utilizando esta biblioteca fica muito parecida com o VBA.

Boa sorte

jmmenezes 27 de ago. de 2012

Não sei se da para interagir com o Excel usando Java.
Pois estes programas estão manipulando elementos da planilha.

O ideal nesse caso é entender o que o programa faz e reescrever em Java.

Jobson_Yonaha_Gimene 27 de ago. de 2012

muito obrigado pela ajuda
mais ainda estou com esperança que tenha algum programa que de para converter ou traduzir a linguagem macro vba do excel para a linguagem Java.
obrigado de novo a todos

Criado 27 de agosto de 2012

Ultima resposta 27 de ago. de 2012

Respostas 5

Participantes 5

5 Respostas

Topicos relacionados