Tengo un archivo con macros en formato .xls, el archivo abre sin problemas en el LibreOffice Cal, al ejecutar cualquiera de los macros aparece error de ejecucion de Basic 423, y de ahi no pasa, como se podria solucionar eso? son 3 las macros que me dan este error, el primero es:
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Limpiar_Celdas()
’
’ Limpiar_Celdas Macro
’ Macro grabada el 24/02/2012 por .
’
’
Range(“A1:L14”).Select
Range(“L14”).Activate
Selection.ClearContents
Selection.QueryTable.Delete (el error que me da es “error de ejecucion de Basic 423”)
Range(“A1”).Select
End Sub
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub importar()
ubica = “A1”
With ActiveSheet.QueryTables.Add(Connection:= _
“TEXT;C:\encaje\encaje.txt” _
, Destination:=Range(ubica)) 'AQUI DEBES SEÑALAR LA RUTA DONDE ESTA TU ARCHIVO DE DATOS ORIGEN
.Name = “importar_datos_excel_1” (el error que me da es “error de ejecucion de Basic 423”)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileFixedColumnWidths = Array(4, 4, 3, 2, 2, 2, 9, 17, 2, 1)
.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat)
.Refresh
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Calcular_Encaje()
’
’ Calcular_Encaje Macro
’ Macro grabada el 02/03/2012 por .
’
’
Range(“N4”).Select
ActiveSheet.Paste
Range(“O4”).Select
ActiveCell.FormulaR1C1 = _
“=((SUMPRODUCT((R[-3]C[-13]:R[16]C[-13]=6900)(R[-3]C[-12]:R[16]C[-12]=156)(R[-3]C[-10]:R[16]C[-10]=71)(R[-3]C[-7]:R[16]C[-7])))/100)"
Range(“O5”).Select
ActiveCell.FormulaR1C1 = _
"=((SUMPRODUCT((R[-4]C[-13]:R[16]C[-13]=6900)(R[-4]C[-12]:R[16]C[-12]=156)(R[-4]C[-10]:R[16]C[-10]=73)(R[-4]C[-7]:R[16]C[-7])))/100)”
Range(“Q4”).Select
ActiveCell.FormulaR1C1 = “=RC[-3]*18%”
Range(“Q6”).Select
ActiveCell.FormulaR1C1 = “=RC[-3]*18%”
Range(“Q7”).Select
End Sub
Sub Formatear_y_Calcular()
’
’ Formatear_y_Calcular Macro
’ Macro grabada el 02/03/2012 por .
’
’
Columns(“B:B”).Select
Selection.TextToColumns Destination:=Range(“B1”), DataType:=xlDelimited, _ (“error de ejecucion de Basic 423”)
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = “0”
Columns(“C:C”).Select
Selection.TextToColumns Destination:=Range(“C1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = “0”
Columns(“D:D”).Select
Selection.TextToColumns Destination:=Range(“D1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = “0”
Columns(“E:E”).Select
Selection.TextToColumns Destination:=Range(“E1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = “0”
Columns(“F:F”).Select
Selection.TextToColumns Destination:=Range(“F1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = “0”
Columns(“H:H”).Select
Selection.TextToColumns Destination:=Range(“H1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = “0”
Columns(“N:N”).ColumnWidth = 16.14
Columns(“N:N”).ColumnWidth = 17.14
Range(“N4”).Select
ActiveCell.FormulaR1C1 = _
“=((SUMPRODUCT((R[-3]C[-12]:R[17]C[-12]=6900)(R[-3]C[-11]:R[17]C[-11]=156)(R[-3]C[-9]:R[17]C[-9]=73)(R[-3]C[-6]:R[17]C[-6])))/100)"
Range(“N4”).Select
ActiveCell.FormulaR1C1 = _
"=((SUMPRODUCT((R[-3]C[-12]:R[17]C[-12]=6900)(R[-3]C[-11]:R[17]C[-11]=156)(R[-3]C[-9]:R[17]C[-9]=73)(R[-3]C[-6]:R[17]C[-6])))/100)”
Range(“N4”).Select
ActiveCell.FormulaR1C1 = _
“=((SUMPRODUCT((R[-3]C[-12]:R[17]C[-12]=6900)(R[-3]C[-11]:R[17]C[-11]=38)(R[-3]C[-9]:R[17]C[-9]=10)(R[-3]C[-6]:R[17]C[-6])))/100)"
Range(“N4”).Select
ActiveCell.FormulaR1C1 = _
"=((SUMPRODUCT((R[-3]C[-12]:R[17]C[-12]=6900)(R[-3]C[-11]:R[17]C[-11]=138)(R[-3]C[-9]:R[17]C[-9]=10)(R[-3]C[-6]:R[17]C[-6])))/100)”
Range(“N5”).Select
End Sub