Necesito ayuda

Luis
14 de Enero del 2004
Bueno espero q me puedan ayudar, mi problema es el sgte: Como puedo hacer para capturar el nombre de mi pc, claro ya sea por medio de Vbasic o por un procedure en SQL ademas si pueden enviarme un ejemplito de como pasar automaticamente los datos de mi tabla a un archivo excel por medio de una aplicacion en Vbasic

rafa
14 de Enero del 2004
Hola Luis.
Tienes que declarar en un modulo:
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Global nombrePc As String

y luego una funcion similar a esta:

Public Sub RecuperaNombrePc()
Dim strBuff As String
Dim lNum As Long, lTam As Long
strBuff = Space(255)
lTam = Len(strBuff)
lNum = GetComputerName(strBuff, lTam)
nombrePC = Trim(strBuff)
Dim i As Integer
Dim c As Integer
For i = 1 To Len(nombrePC)
c = Asc(Mid(nombrePC, i, 1))
If c = 0 Then
nombrePC = Left(nombrePC, i - 1)
End If
Next i
End Sub

Un saludo

Luis
14 de Enero del 2004
Muchas gracias RAFA por la ayuda pero me gustaria saber sobre mi 2 pregunta con respecto a lo de EXCEL no se si no fuera mucha molestia... Me gustaria q me escribieras al [email protected] con las soluciones

Luis
14 de Enero del 2004
y Para WORD se hara lo mismo q para EXCEL?
Por ejemplo por mi sistemas ingreso el nombre de una empresa fecha etc etc como para una solicitud quiero q esos valores pasarlos a WORD automaticamente SE PUEDE..?