Quantcast
Channel: Archivo de solo lectura
Viewing all articles
Browse latest Browse all 5

Archivo de solo lectura

$
0
0

Hola,

El código siguiente actualiza una tabla en excel, pero en la línea con asteriscos, me duplica un archivo de solo lectura de la plantilla donde tengo la tabla; me explico: Si el archivo de la plantilla se llama: datos.xlsx, me crea un archivo datos.xlsx (solo lectura) y los datos entonces caen en el segundo archivo cuestión que no debería pasar.

'---------------------------------
Sub ActualizarProducto()
  Dim Connection As ADODB.Connection
  Dim ConnectionString As String
   
  ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _
                     ";Extended Properties='Excel 12.0 Xml';"
  'Defino la tabla  
  Call DefinirRango("PRODUCTOS", "A1:H", "TbProductos") 'hoja, rango, nombretabla
  '------
  Dim Sql As String
 
  Sql = "UPDATE [TbProductos] SET PRODUCTO='" & txtProd & "', SERIAL='" & txtSerial & "', PRECIO='" & txtPrecioProd & "', STOCK_MINIMO='" & txtStockMin & "', EXISTENCIA_INICIAL='"& txtExistenciaI & "' WHERE ID_PROD=" & txtIdProd
Debug.Print Sql, Chr(13); ConnectionString
 
  Set Connection = New ADODB.Connection
  Call Connection.Open(ConnectionString) ******
   
  Call Connection.Execute(Sql, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adExecuteNoRecords)
 
  Connection.Close
  Sql = Empty
  Set Connection = Nothing
End Sub
'---------------------

También me ha ocurrido cuando combino correspondencia entre word y excel con (VBA) en  esta linea:

---objWord.ActiveDocument.MailMerge.OpenDataSource Name:=wBase, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=wBase;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Ty", SQLStatement:="SELECT * FROM" & wHoja, SQLStatement1:="", SubType:=wdMergeSubTypeAccess-

He dejado esta misma consulta en varios foros y muchas paginas pero al parecer no hay casos así: ¿alguna sugerencia?

Según la página de microsoft puede ser que el office no está licenciado o no está actualizado. Uso office 2019, con win 10, pero no veo la relacion.

Gracias, por anticipado

Viewing all articles
Browse latest Browse all 5

Latest Images

Pangarap Quotes

Pangarap Quotes

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Trending Articles


FORECLOSURE OF REAL ESTATE MORTGAGE


Gwapo Quotes : Babaero Quotes


Libros para colorear


Mandalas de flores para colorear


Dibujos para colorear de perros


Dromedario para colorear


mayabang Quotes, Torpe Quotes, tanga Quotes


Love Quotes Tagalog


Bolerong Mananayaw Qoutes 2019


Mga Tala sa “Unang Siglo ng Nobela sa Filipinas” (2009) ni Virgilio S. Almario


Ang Nobela sa “From Darna to ZsaZsa Zaturnnah: Desire and Fantasy, Essays on...


Winx Club para colorear


Girasoles para colorear


Loro para colorear


Renos para colorear


Lagarto para colorear


Long Distance Relationship Tagalog Love Quotes


Tagalog Love Facts About Men


RE: Mutton Pies (mely)


El Vibora (1971) by Francisco V. Coching and Federico C. Javinal





Latest Images

Pangarap Quotes

Pangarap Quotes

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC