Excel - Enviar una Hoja de Calculo Oculta por Correo

   
Vista:

Enviar una Hoja de Calculo Oculta por Correo

Publicado por Nelson Torres net10_2@yahoo.com (62 intervenciones) el 25/05/2012 00:46:37
Que tal!!!

Tengo el siguiente inconveniente. Le estoy llevando la contabilidad a un negocio de comidas rápidas, programe una macro para llevar a cabo dicho proceso, pero necesito enviar a mi correo el archivo plano correspondiente a las ventas diarias, inventarios y demás para procesarlo en un software contable, el problema es que no sé como hacerle para enviar esa hoja de calculo de forma oculta ya que si llegase a ser visto el contenido del archivo mi trabajo no haría falta. Tengo una macro que envía a través de gmail mails con archivos adjuntos ya que la pc donde la opero no cuenta con lotus o outlook, pero hasta donde entiendo se debe guardar a la hoja en una ubicación especifica, luego ingresar la ruta al código para que este envié el archivo. Para aclarar, no me conviene guardar la hoja de calculo con protección porque hay una persona que puede crackear las contraseñas de las hojas a través de una macro.

En resumen, necesito adjuntar la hoja de calculo desde el libro en donde estoy ejecutando la macro de forma oculta usando el código de envió a través de una cuenta en gmail.

Gracias!

Saludos!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Enviar una Hoja de Calculo Oculta por Correo

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 25/05/2012 02:20:19
al menos a mí me suena confuso y raro...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar una Hoja de Calculo Oculta por Correo

Publicado por Nelson Torres net10_2@yahoo.com (62 intervenciones) el 25/05/2012 06:21:24
Simple, comencemos de nuevo, necesito una saber como puedo enviar una hoja de calculo usando gmail directamente del libro que estoy usando.

Gracias !

Saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

Enviar una Hoja de Calculo Oculta por Correo

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 25/05/2012 13:31:12
podrías copiar la hoja a un libro nuevo, guardarlo temporalmente, enviarlo y eliminarlo.
otra opción es guardar el contenido de la hoja (celda x celda) en un archivo .txt
y luego hacer lo mismo (enviar y eliminar)

para escribir en un archivo:

1
2
3
4
hFile = FreeFile
Open "FileName.txt" For Output As #hFile
Print #hFile, Range("A1").Value
Close #hFile


Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar una Hoja de Calculo Oculta por Correo

Publicado por Nelson Torres net10_2@yahoo.com (62 intervenciones) el 25/05/2012 16:35:27
Que tal!

Eso es precisamente lo que no quiero hacer, guardar el documento para que la información quede expuesta. Repito: Lo que quiero es enviar la hoja de calculo directamente desde el libro.

Gracias!!

Saludos!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar una Hoja de Calculo Oculta por Correo

Publicado por enrique54 (90 intervenciones) el 25/05/2012 20:21:08
Hola
porque no creas un archivo con dos hojas
en una de lla va la informacion que necesitas
esta hoja la ocultas y la otra asi sin datos se puede ver
como si fuera un correo de prueba enviado de una hoja en blanco
cuando tu lo uses pues sabes que lo debes desocultar
porque casi todo mundo busca la proteccion pero menos buscan lo oculto

es una idea claro....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar una Hoja de Calculo Oculta por Correo

Publicado por Nelson Torres net10_2@yahoo.com (62 intervenciones) el 27/05/2012 01:34:42
Miren la siguiente macro que encontré en la red:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Sub EnviarHojaActiva()
'Este código funciona en las versiones 97-2010
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim I As Long
 
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    Set Sourcewb = ActiveWorkbook
 
    'Copia la hoja a un libro nuevo
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
 
    'Determina la versión de Excel y la extensión del archivo
    With Destwb
        If Val(Application.Version) < 12 Then
            'Estamos utilizando 97-2003...
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            'Estamos utilizando 2007-2010. Salimos de la macro cuando respondemos
            'NO en el cuadro de diálogo de seguridad que vemos cuando copiamos
            'una hoja desde un archivo xlsm con las macros deshabilitadas.
            If Sourcewb.Name = .Name Then
                With Application
                    .ScreenUpdating = True
                    .EnableEvents = True
                End With
                MsgBox "Has respondido no en el cuadro de diálogo de seguridad"
                Exit Sub
            Else
                Select Case Sourcewb.FileFormat
                Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
                Case 52:
                    If .HasVBProject Then
                        FileExtStr = ".xlsm": FileFormatNum = 52
                    Else
                        FileExtStr = ".xlsx": FileFormatNum = 51
                    End If
                Case 56: FileExtStr = ".xls": FileFormatNum = 56
                Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
                End Select
            End If
        End If
    End With
 
    '    'Eliminamos las comillas de las siguiente líneas
    '    'si queremos sustituir las fórmulas por valores
    '    With Destwb.Sheets(1).UsedRange
    '        .Cells.Copy
    '        .Cells.PasteSpecial xlPasteValues
    '        .Cells(1).Select
    '    End With
    '    Application.CutCopyMode = False
 
    'Grabamos la hoja que enviaremos por correo
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Parte de " & Sourcewb.Name & " " _
                 & Format(Now, "dd-mmm-yy h-mm-ss")
 
    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
        On Error Resume Next
        For I = 1 To 3
        ' Modifica el correo del destinatario y el asunto
            .SendMail "correo@midominio", "Este es el asunto"
            If Err.Number = 0 Then Exit For
        Next I
        On Error GoTo 0
        .Close SaveChanges:=False
    End With
 
    'Elimina el archivo temporal que se ha creado
    Kill TempFilePath & TempFileName & FileExtStr
 
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Ahora cuando modifico el código acomodándolo a mi macro en la linea de AddAttachment TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum y también sin FileFormat:=FileFormatNum no consigo que el archivo se adjunte. Por otro lado, no consigo eliminar el archivo temporal con la linea Kill TempFilePath & TempFileName & FileExtStr. Pueden ayudarme?.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

Enviar una Hoja de Calculo Oculta por Correo

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 27/05/2012 13:43:31
qué curioso, estás haciendo lo que dijiste que no querías hacer...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar una Hoja de Calculo Oculta por Correo

Publicado por Nelson Torres net10_2@yahoo.com (62 intervenciones) el 27/05/2012 18:33:10
Asi es ya que al parecer no es posible adjuntar la hoja directamente, sin embargo no consigo adjuntar el archivo y luego eliminarlo de su ubicacion.

Saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar