Sunday, July 4, 2010

VBA Function to extract all numeric characters

Public Function extractallnumeric(Str)
Dim i, Numeric1
Numeric1 = ""
For i = 1 To Len(Str)
If (IsNumeric(Mid(Str, i, 1))) Then
Numeric1 = Numeric1 & Mid(Str, i, 1)

End If
Next i
extractallnumeric = Numeric1
End Function
at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...

  • Copy Data from PDF to Excel Using Send-keys
    If you want to copy the data from pdf file to Excel. Sub method1_using_sendkey() Dim task ' open the file ' change the path of ...
  • Import data from SQL
    Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...