TextBox to Integer

#1
dustcp

Posted 08 May 2012 - 00:20

Junior Member

Grup: Members
Posts: 84
Înscris: 07.10.2010

Salut! Vreau ca dintr-un textbox sa export datele ca integer printr-un buton intr-un excel, in sheet 2 pentru a folosi baza de date in alt program ulterior. Eu am incercat sa fac ceva, problema este ca daca modific datele din textbox. cand deschid fisierul excel respectiv, imi deschide si un "book" precedent, inainte sa fie modificat.
Puteti sa ma ajutati?
Folosesc Visual Basic 6.3.

Back to top

#2
MarianG

Posted 08 May 2012 - 08:36

be that as it may

Grup: Moderators
Posts: 31,428
Înscris: 10.08.2005

texbox-ul este precum Notepad.

Back to top

#3
horohoro

Posted 31 May 2012 - 04:42

Junior Member

Grup: Members
Posts: 103
Înscris: 11.02.2010

sa inteleg ca vrei sa scapi de caractere si sa ramai doar cu cifre?

vezi poate te ajuta functia asta:

Public Function ConvertesteInNumar(ByVal strNumar As String) As String
  Dim a As Integer
  Dim buf As String
	
  For a = 1 To Len(strNumar)
   If IsNumeric(Mid(strNumar, a, 1)) Then buf = buf & Mid(strNumar, a, 1)
  Next a

  ConvertesteInNumar = CDbl(buf)
End Function

msgbox "TextBox=" & ConvertesteInNumar(Text1.text) & vbcrlf & _
		"String=" & ConvertesteInNumar(plictiseala2viata4ever2167 'z@_@x '45)

Edited by horohoro, 31 May 2012 - 04:47.

Back to top

Anunturi

Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

TextBox to Integer

#1 dustcp Posted 08 May 2012 - 00:20

#2 MarianG Posted 08 May 2012 - 08:36

#3 horohoro Posted 31 May 2012 - 04:42

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
dustcp

Posted 08 May 2012 - 00:20

#2
MarianG

Posted 08 May 2012 - 08:36

#3
horohoro

Posted 31 May 2012 - 04:42