Hola a todos.Estoy programando una macro en Excel para listar los números de los puertos serie disponibles de mi pc (COM1, COM4, COM14, etc.). he intentado con este código
Dim TotalPuertos
Application.COMAddIns.Update
TotalPuertos = Application.COMAddIns.Count
ComboBox1.Clear
For i = 1 To TotalPuertos
ComboBox1.AddItem Application.COMAddIns(i)
Next i
Pero no soy capaz de que me salga como COM1, COM4, COM14, etc. o incluso como 1, 4, 14, etc.
¿Alguna idea?
Saludos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos.Estoy programando una macro en Excel para listar los números de los puertos serie disponibles de mi pc (COM1, COM4, COM14, etc.). he intentado con este código
Dim TotalPuertos
Application.COMAddIns.Update
TotalPuertos = Application.COMAddIns.Count
ComboBox1.Clear
For i = 1 To TotalPuertos
ComboBox1.AddItem Application.COMAddIns(i)
Next i
Pero no soy capaz de que me salga como COM1, COM4, COM14, etc. o incluso como 1, 4, 14, etc.
¿Alguna idea?
Saludos