Hi, I'm trying to run an excel macro in openoffice. The macro is very simple but i get an error here > Set wk = Excel.ActiveWorkbook.Worksheets(1)
Could someone be so kind to help me in this? Rem Attribute VBA_ModuleType=VBAModule Option VBASupport 1 Option Explicit Sub convertiData() ' ' ConvertiData Macro ' Macro elaborata il 10/09/2003 da Tesmedia ' ' Dim valore Dim rowsTot Dim tmp Dim wk As Worksheet Dim a Dim b Set wk = Excel.ActiveWorkbook.Worksheets(1) rowsTot = 0 For a = 1 To 65536 valore = wk.Cells(a, 1).Text If valore = "" Then Exit For rowsTot = rowsTot + 1 Next a For a = 1 To rowsTot b = 4 Do While b <> 0 tmp = wk.Cells(a, b).Text If tmp <> "" Then tmp = "'" & tmp wk.Cells(a, b).Value = tmp End If If b = 4 Then b = 5 ElseIf b = 5 Then b = 8 ElseIf b = 8 Then b = 10 ElseIf b = 10 Then b = 0 End If Loop Next a End Sub --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
