VBA freak
Guest
|
 Posted: Mon Feb 16, 2004 2:00 am Post subject: Can anybody put this macro in VBA into OOobasic ?????? |
 |
|
Goodmorning I have a macro written in VBA but i want hem to work in Open office but I know nothing about the programming language of the Open office can someone help me to put this macro into OOobasic ????
thanx in advance VBA freak
| Code: | Sub CopyData()
'* deze macro copieert de query-gegevens naar dit bestand *
'************************************************************
Dim BestandBron, BestandDoel As Variant
BestandBron = "Basistabellen Stockwaardering (ora).xls"
BestandDoel = "Basistabellen (ora).xls"
ResetSheets
Sheets("Artikels").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("Kostprijzen").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Windows(BestandBron).Activate
Sheets("BASIS1").Select
Cells.Select
Selection.Copy
Windows(BestandDoel).Activate
Sheets("Artikels").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Windows(BestandBron).Activate
Sheets("BASIS2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows(BestandDoel).Activate
Sheets("Kostprijzen").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
|
[/code] |
|
