Multivac, Asimov e IA: el futuro que ya vivimos hoy

Imagen
  Multivac vive entre nosotros: una reflexión sobre Asimov, la IA en la actualidad ¿Qué pensaría Isaac Asimov si viera que hoy, en 2025, muchas personas tenemos conversaciones con inteligencias artificiales desde nuestros celulares? Como lectora de sus cuentos, no puedo evitar pensar en Multivac , esa supercomputadora que lo sabía todo y que respondía preguntas humanas durante generaciones. En los relatos de Asimov, solo unos pocos privilegiados podían acceder a ella. Hoy, podemos escribirle a una IA mientras tomamos un café. Y no solo eso:  responde con claridad, empatía, de manera graciosa o hasta reflexiona . ¿Acaso no estamos viviendo una de las visiones de su ciencia ficción? En muchas partes del cuento habla del multivac como un ente y como se conecta entre galaxias y como pueden llamarla desde un dispositivo llamarla desde un dispositivo de 5 cm. Este cuento habla de la historia de la relación de la humanidad con un computadora ,como empieza con que solo ciertos ing...

Macro de Excel para abrir archivo csv

Hay veces que quieres abrir un archivo de Excel pero está separado por comas, punto y coma o por un pipe. Hay formas de hacerlos desde Excel. Les quiero compartir algunas opciones de como hacerlo y espero que les sean de utilidad.

1.Es abrir el archivo en Excel y utilizar la función de separar por columnas y seleccionar el delimitador, por ejemplo ";"






2. Es colocar "sep=;" en el primer renglón del archivo que quieres abrir y guardar en formato CSV y abrirlo en Excel y te lo abrirá separado en columnas.




3. Otra forma es con una macro, esté en mi gusto es la que más me funciona porque si hay alguna coma en la descripción o en alguna columna, si lo abres desde Excel te va a desacomodar las columnas. 

Este botón te abrirá un pantalla para abrir el archivo que quieres separar y te lo abrirá en una hoja de excel ya separado.

El código de la macro es el siguiente 
Private Sub CommandButton1_Click()

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim wb As Workbook
  
  strArchivo = Application.GetOpenFilename
  If strArchivo = False Then Exit Sub
  Workbooks.OpenText fileName:=strArchivo
  
  Set wb = Workbooks.Open(strArchivo)
  
  fnd = ","
  rplc = " "

  Set sht = wb.Sheets(1)

 'Replace comma
 sht.Cells.Replace what:=fnd, Replacement:=rplc, _
 LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
 SearchFormat:=False, ReplaceFormat:=False
  
  
 sht.Columns("A:A").Select
 Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
 Semicolon:=True, Comma:=False, Space:=False, Other:=False


End Sub

Si les gustaría ver un vídeo dejen sus comentarios.

Espero les sea de utilidad y nos compartan 🤗😁

Comentarios

  1. Gracias por compartir, me fue util en un desarrollo personal..

    ResponderBorrar
    Respuestas
    1. Hola que bueno que te ayudó 👍, gracias por visitarnos y dejar tu comentario

      Borrar
  2. Buen día, muy buen aporte. Muchas gracias.
    Aunque solo elimina las comas, no separa las palabras en columnas. ¿Cómo se podría hacer?

    ResponderBorrar

Publicar un comentario

Dejanos tus dudas y comentarios

🚀 Mantener este blog funcionando requiere tiempo y café. ¡Puedes contribuir con uno aquí!

Entradas más populares de este blog

Guía Práctica: Ejemplo Completo de ASPX para Desarrolladores Web

📊 Automatiza tu trabajo: Convierte tablas de Word a Excel con una macro

API de banxico para obtener tipo de cambio utilizando Javascript