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,478
Î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

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

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