Ubicacion de guardado
Publicado: Vie Dic 10, 2010 3:38 pm
Saludos,
Estoy realizando una macro en excel, recien estoy aprendiendo y bueno me gustaria saber como es la sintaxis de guardado ya que estoy utilizando OPEN, y bueno no se como colocar para que el archivo que se genere, sea guardado donde se encuentra ubicado el file original.
Esta es mi MACRO:
Sub Establecimiento_trabajador()
Sheets("MACRO").Activate
Const DELIMITER As String = "|"
Dim myRecord As Range
Dim myField As Range
Dim sOut As String
Open ("0601" & Range("D5") & Range("D4") & Range("F5") & ".tes") For Output As #1
For Each myRecord In Range("BQ9:BQ" & _
Range("BQ" & Rows.Count).End(xlUp).Row)
With myRecord
For Each myField In Range(.Cells, _
Cells(.Row, Columns.Count).End(xlToLeft))
sOut = "00" & sOut & myField.Text
Next myField
Print #1, Mid(sOut, 2)
sOut = Empty
End With
Next myRecord
Close #1
MsgBox " Archivo creado satisfactoriamente", , ""
End Sub
Agradezco la ayuda de antemano
Saludos
Estoy realizando una macro en excel, recien estoy aprendiendo y bueno me gustaria saber como es la sintaxis de guardado ya que estoy utilizando OPEN, y bueno no se como colocar para que el archivo que se genere, sea guardado donde se encuentra ubicado el file original.
Esta es mi MACRO:
Sub Establecimiento_trabajador()
Sheets("MACRO").Activate
Const DELIMITER As String = "|"
Dim myRecord As Range
Dim myField As Range
Dim sOut As String
Open ("0601" & Range("D5") & Range("D4") & Range("F5") & ".tes") For Output As #1
For Each myRecord In Range("BQ9:BQ" & _
Range("BQ" & Rows.Count).End(xlUp).Row)
With myRecord
For Each myField In Range(.Cells, _
Cells(.Row, Columns.Count).End(xlToLeft))
sOut = "00" & sOut & myField.Text
Next myField
Print #1, Mid(sOut, 2)
sOut = Empty
End With
Next myRecord
Close #1
MsgBox " Archivo creado satisfactoriamente", , ""
End Sub
Agradezco la ayuda de antemano
Saludos