Visual Basic - Guardar archivos de Excel en VB

Life is soft - evento anual de software empresarial
 
Vista:

Guardar archivos de Excel en VB

Publicado por Enrique (3 intervenciones) el 28/11/2000 00:00:00
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\Resp-01.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
True, CreateBackup:=False

Esta expresión de Visual Basic me guarda el archivo en C:\Mis documentos con el nombre que le di el de Resp-01.xls. Ahora al ejecutar por segunda vez la macro me dice que ya existe el archivo, que si quiero sobreescribirlo, ESO ES LO QUE NO QUIERO QUE SALGA, como le hago, para que directamente me lo grave sin que excel me pregunte nada.
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

Aqui tienes la respuesta a tus sufrimientos.

Publicado por Josema (1 intervención) el 29/11/2000 00:00:00
Todo se descarga desde un Grid donde estan los datos.

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
Private Sub Command9_Click()
Dim colu As Long
Dim rw As Long
Dim i As Long
Dim CentiRW As Long
Dim ef1 As New ExcelFile
Dim NameExcel As String
 
 
 
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrEXCEL
' Establecer los indicadores
CommonDialog1.Flags = cdlOFNHideReadOnly
' Establecer los filtros
CommonDialog1.Filter = "Todos los archivos (*.XLS)|*.XLS"
' Especificar el filtro predeterminado
CommonDialog1.FilterIndex = 2
' Presentar el cuadro de diálogo Abrir
CommonDialog1.ShowSave
' Presentar el nombre del archivo seleccionado
NameExcel = CommonDialog1.FileName
 
' MsgBox CommonDialog1.FileName
 
 
 
 
MousePointer = vbHourglass
 
 
With ef1
.OpenFile NameExcel
CentiRW = 0
' METEMOS LA CABECERA DEL FICHERO
For colu = 0 To flxResults.Cols - 1
If flxResults.TextMatrix(0, colu) <> "" Then
.EWriteString 0, colu, flxResults.TextMatrix(0, colu)
Else
.EWriteString 0, colu, " "
End If
Next colu
 
 
For i = 1 To PaginasGRID
MuestraGrid (i)
For rw = 1 To flxResults.Rows - 1
CentiRW = CentiRW + 1
 
For colu = 0 To flxResults.Cols - 1
If flxResults.TextMatrix(rw, colu) <> "" Then
.EWriteString CentiR
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Gracias y otra cosa

Publicado por Enrique (3 intervenciones) el 30/11/2000 00:00:00
Gracias Josema, esto me puede servir para futuros programas en VB, pero yo posiblemente no me supe explicar bien, veras, yo estoy trabajndo con visual basic de excel, ahi te va un ejemplo:
Tengo un libro de excel al que le vamos a llamar "LibroX", este libro tiene una "Macro" que abre otro libro de excel, "LibroY", OK, entonces en el "LibroX" se anotan unos datos que posteriormente se copian al "LibroY", con otra macro, y ese va a ser mi respaldo, Resp-01.xls, pero yo lo que quiero es que el mismo excel me guarde el archivo con el nombre que quiero y en la carpeta que quiero. Todo esto es en el entorno de excel. Si tienes ayuda sobre esto por que yo soy nuevo en esto te lo agradeceria muchisimo. De todas maneras muchas gracias.
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

RE:Guardar archivos de Excel en VB

Publicado por Erik (102 intervenciones) el 01/12/2000 00:00:00
Si el problema es que te avisa de que el archivo existe y no quieres que avise lo tienes muy fácil: bórralo primero y grabas después:

Kill "C:\Mis documentos\Resp-01.xls"

Y después:

ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\Resp-01.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
True, CreateBackup:=False

Ya tá. Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Gracias

Publicado por Enrique (3 intervenciones) el 04/12/2000 00:00:00
Gracias Erik, me sirvio mucho tu ayuda.
un saludo.
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

Gracias

Publicado por james (1 intervención) el 14/03/2016 23:01:25
hola buena tarde

me ha servido tu aporte solo que tengo un problema quiero ponerle a el archivo antes de guardarlo contraseña pero esta viene de 2 variables una que es string y otra que es date podrias ayudarme ya que no lo eh logrado 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