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: 29,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 '[email protected][email protected] '45)

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

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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