Hola
Tengo otro problemilla con Guardar Como... El problema es que si coloco un archivo que no está en la carpeta igualmente me envía el mensaje ¿Desea sobreescribirlo? El código completo es éste:
Dim ruta As String
Dim archivo As String
If SSTab1 = 0 Then
'abrimos el cuadro de dialogo de guardar archivo
CommonDialog1.ShowSave
If CommonDialog1.FileTitle = "" Then
MsgBox "Debe escribir el nombre de archivo a guardar", vbInformation, "Error"
'Salimos de la rutina ya que no hay nada que guardar
Exit Sub
Else
'Creamos un archivo con la sentencia OutPut, pasandole la ruta con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1
rutacompleta = CommonDialog1.FileName
'Escribimos en el archivo el contenido del Text1
Print #1, Text1
'Cerramos el archivo
Close #1
ruta = Left(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\", , vbTextCompare))
archivo = CommonDialog1.FileTitle
If BuscaArchivo(ruta, archivo) = True Then
rpta = MsgBox("El archivo ya existe, ¿Sobreescribirlo?", vbYesNo, "Advertencia")
End If
If rpta = vbYes Then
'Module2.conexionBD
'sql = "SELECT * FROM RETENCION WHERE periodo_mes = " & Combo1(0) & " and periodo_año = " & Combo2(0) & " and declaracion = 'primera'"
'Set rs = con.Execute(sql)
'If rs.EOF = True And rs.BOF = True Then
'Else
'Do While rs.EOF = False
'rs.MoveFirst
'mes = rs.Fields("periodo_mes").Value
'año = rs.Fields("periodo_año").Value
'rif = rs.Fields("rif_contribuyente").Value
'factura = rs.Fields("n_factura").Value
'Control = rs.Fields("n_control").Value
'monto = rs.Fields("monto_retencion").Value
'porcentaje = rs.Fields("porcentaje").Value
'abrimos el archivo con FSO para escribir el documento xml
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ofich = FSO.CreateTextFile(rutacompleta, True)
variable = "<?xml version =" & Chr(34) & "1.0" & Chr(34) & " encoding =" & Chr(34) & "utf-8" & Chr(34) & "?>"
ofich.writeline (variable)
ofich.writeline ("<RelacionRetencionesISRL RifAgente=" & Chr(34) & "J002938897" & Chr(34) & " Periodo=" & Chr(34) & "AAAAMM" & Chr(34) & ">")
ofich.writeline ("<DetalleRetencion>")
ofich.writeline ("<RifRetenido>m98</RifRetenido>")
ofich.writeline ("<NumeroFactura>mmm</NumeroFactura>")
ofich.writeline ("<NumeroControl>mmm</NumeroControl>")
ofich.writeline ("<CodigoConcepto>mmm</CodigoConcepto>")
ofich.writeline ("<MontoOperacion>mmm</MontoOperacion>")
ofich.writeline ("<PorcentajeRetencion>mmm</PorcentajeRetencion>")
ofich.writeline ("</DetalleRetencion>")
ofich.writeline ("</RelacionRetencionesISRL>")
ofich.Close
Set ofich = Nothing
'rs.MoveNext
'Loop
'rs = Nothing
'End If
Else
Exit Sub
End If
End If
End If