Visual Basic 6 AJUDEM !!!

Abrir O Excel ??

pessoal para abrir o word o codigo no basic é

Dim Abrir As Object
Set Abrir = CreateObject("word.Application")
Abrir.Visible = -1

AGORA A O PROBLEMA E ABRIR O EXCEL
com a mesma a logica seria

Dim Abrir As Object
Set Abrir = CreateObject("excel.Application")
Abrir.Visible = -1

MAS NAO TA A DAR
 
Tenta assim:

Código:
Dim ApExcel As Object
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = False
ApExcel.Workbooks.Add
 
' escrever dados tipo
ApExcel.Cells(1, 1).Value = "teste"
 
ApExcel.Visible = True
 
pessoal tenho ja uma base de dados em que posso adicionar os nome dos clientes e fiz este codigo para poder procurar pelo nomes das pessoas (tipo encontrar uma ficha) . SO que o meu problema e que nao consigo fazer para encontrar os numeros das pessoas. Pois as pessoas tem um cod de inscrição tipo 01 , 02. PESSOAL SE SOUBEREM MANDEM DICAS AGRADECIA


Dim dado As String
dado = InputBox(" informe o nome e entre com os dados ", "nome")
Data1.Recordset.AddNew
Text1.Text = dado
End Sub

se ainda percisas de fazer isto é assim:
x= InputBox(" intruduza o seu codigo ")
Me.data1.RecordSource = "SELECT * From (tabela) LIKE (tabela.campo) " & "'" & x & "%'"
me.data1.refresh

penso que isso vai dar para o que queres
 
executavel COMO CRIO FICHEIRO DE INSTALAÇÃO

pessoal como faço depois de tudo terminado num programa em visual basic criar um ficheiro(nosso programa feito) de instalaçao? ou seja install , escolher a directoria e dpois executar
 
Pesquisar pelo nome completo !

pessoal este é o codigo (visual Basic) que tenho para pesquisar numa base dados os nomes das pessoas ... mas o problema é que só me esta a procurar pelo primeiro nome . Por exemplo pesquiso por joao pedro , ele so procura por joao e depois se houver varias pessoas com o nome joao nao me serve de nada .

Dim dado As String, busca As String
dado = InputBox("qual o nome ", " nome")
busca = " nome='" & dado & " '"
Data1.Recordset.FindFirst busca
If Data1.Recordset.NoMatch Then
MsgBox ("o nome " & dado & " nao existe!")
End If

qual é o erro que estou a cometer preciso mesmo de ajuda
 
??

Dim intobj As Object
Set intobj = CreateObject("InternetExplorer.Application")
intobj.Visible = -1
intobj.Navigate "http://www.google.pt/index.html"
Do Until intobj.busy = True
Loop

preciso de ajuda para me esplicarem este codigo que significa object??
 
Última edição:
Back
Topo