Crear Excel si abrirlo VB10
Publicado por Dante (1 intervención) el 01/03/2017 19:12:21
Hola que tal a todos, tengo un problema al querer realizar un programa que utilice un excel como plantilla, y al guardarlo me lo guarde en otra carpeta, sin alterar el excel original, todo esto sin abrir los excel, o bueno que no se vean visibles, ojala y me puedan ayudar, ya que no e podido resolverlo ya que soy muy novato en esto, a continuación les dejo el codigo con el que estoy trabajando, el problema en este es que me sustituye el archivo origen, y a la vez me abre el excel, saludos.
El código es:
El código es:
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
Dim xlibro As Microsoft.Office.Interop.Excel.Application
Dim strRutaExcel As String
Dim Workbooks As String
'El siguiente codigo es para crear la ruta,entre comillas se puso la ruta donde esta el libro
strRutaExcel = "C:\Nombre.xlsx"
'El siguiente codigo es para abrir el libro y hacerlo visible, si se quiere dejar el libro oculto, se cambia la palabra True por False
xlibro = CreateObject("Excel.Application")
xlibro.Workbooks.Open(strRutaExcel)
'Aquí le pongo false para que no se abra el excel, pero no me lo llena con los datos
xlibro.Visible = True
'Activamos el libro
xlibro.Workbooks("OT.xlsx").Activate()
'Activamos la hoja especifica del libro
xlibro.Sheets("HOJA 1").Select()
'esta es la instruccion para modificar la celda con el contenido de unos textboxs
xlibro.Range("C5,C21").Value = TextBox1.Text
xlibro.Range("H5,H21").Value = TextBox2.Text
xlibro.Range("H6,H22").Value = TextBox3.Text
xlibro.Range("H7,H23").Value = TextBox4.Text
xlibro.Range("H8,H24").Value = TextBox5.Text
xlibro.Range("H14,H30").Value = TextBox6.Text
xlibro.Range("C9,C25").Value = TextBox7.Text
xlibro.Range("H14,C30").Value = TextBox8.Text
Valora esta pregunta
0