buenas, lo que pasa es que con esta aplicacion deseo subir puntos, y el programa es una maravilla.. pero al tratar de pas
ar los puntos a autocad me salta el mensaje ''error 1004'' y me dice que no encuentra la ruta de acceso...
y esto es lo que me muestra el depurador
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 20/11/00 por jhr
'
'
MsgBox "Asegurese de que todos los puntos tienen codido, y que no hay ninguna fila en blanco. No elimine ni filas ni columnas, elimine el contenido de estas si es necesario."
MsgBox "Se crearan dos archivos en el directorio raiz C:\ ;un fichero con extension 'dxf' y otro con extension 'xls', ambos con el mismo nombre que aparece en la casilla 'Nombre del Fichero', y despues se cerrara la aplicación. Los camibios quedarán guardados en el fichero excel creado en c:\"
buenas, lo que pasa es que con esta aplicacion deseo subir puntos, y el programa es una maravilla.. pero al tratar de pas
ar los puntos a autocad me salta el mensaje ''error 1004'' y me dice que no encuentra la ruta de acceso...
y esto es lo que me muestra el depurador
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 20/11/00 por jhr
'
'
MsgBox "Asegurese de que todos los puntos tienen codido, y que no hay ninguna fila en blanco. No elimine ni filas ni columnas, elimine el contenido de estas si es necesario."
MsgBox "Se crearan dos archivos en el directorio raiz C:\ ;un fichero con extension 'dxf' y otro con extension 'xls', ambos con el mismo nombre que aparece en la casilla 'Nombre del Fichero', y despues se cerrara la aplicación. Los camibios quedarán guardados en el fichero excel creado en c:\"
ActiveWorkbook.SaveAs Filename:="C:" & Sheets("OPCIONES").Range("A2").Text & "homero.xls"
Sheets("DXF").Visible = True
Sheets("TEMP").Visible = True
Sheets("COORDENADAS").Select
f = Range("F2").Value
Sheets("TEMP").Select
Range("A2:BH2").Select
Selection.Copy
Range("A3:BH" & f).Select
ActiveSheet.Paste
Sheets("COORDENADAS").Select
f = Range("F2").Value
For i = 1 To f
x = 5 + (i * 60) - 60
Sheets("TEMP").Select
Range("A" & i, "BH" & i).Select
Selection.Copy
Sheets("DXF").Select
Range("A" & x).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next i
Sheets("TEMP").Select
Range("A2:BH" & f).Select
Selection.ClearContents
Range("A1").Select
Sheets("DXF").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("B1:B4").Select
Range("B4").Activate
Application.CutCopyMode = False
Selection.Cut
Range("A4").Select
Selection.End(xlDown).Select
x = 5 + (f * 60)
Range("A" & x).Select
ActiveSheet.Paste
Range("A1").Select
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" & Sheets("OPCIONES").Range("A2").Text & ".dxf", FileFormat:=xlText, _
CreateBackup:=False
ActiveWindow.SelectedSheets.Visible = False
Sheets("TEMP").Select
ActiveWindow.SelectedSheets.Visible = False
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub