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

Bun venit pe Forumul Softpedia!

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