Showing posts with label Extract numeric characters. Show all posts
Showing posts with label Extract numeric characters. Show all posts

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 No comments:
Labels:
Subscribe to: Posts (Atom)

Import data from SQL

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

  • Export Range in Json Format
    Macro to Export Range in Json Format Option Explicit Sub export_in_json_format()     Dim fs As Object     Dim jsonfile     Dim rangetoex...
  • Running SQL Queries within Excel Environment
    If you want to run SQL queries within Excel environment without  connecting to any database, you can do it with creating the ADODB   conn...