Cuestión : sobresalir el teléfono y el fax del extracto del vba en campo de dirección

Tengo una carpeta de los xlsx y los csvs con datos del teléfono y del fax en una columna de la dirección que quiera poner en su teléfono y fax separados column.

Ideally, pienso que las reglas siguientes extraerían los datos deseados successfully.

1. No todos los números pertenecen a los teléfonos (es decir códigos postales) no que todos los números de teléfono son precedidos por cualquier cosa que lo identifica (IE. expedientes del teléfono, del pH, del tel.) no todos los tienen un teléfono, un fax o un either.

2. Sus son los números consecutivos del atleast 10+ en un teléfono (con códigos internacionales y la marca pueden estar 13-15 números) que pudo tener algunos de un de los después de separadores [.], [-], [)], [(] o solo espacio de A [].

3. La primera ocurrencia del filamento de números según lo descrito en #2 es el teléfono #, la segunda ocurrencia es el fax #.  el


I manejó ya funcionar con una escritura en una carpeta de archivos. Acabo de notar que será insostenible para que entre los expedientes uno por uno y extraiga manualmente el teléfono y el fax # ' s puesto que hay many. class= del

Respuesta : sobresalir el teléfono y el fax del extracto del vba en campo de dirección

Intentar el siguiente:

Utiliza funciones del usuario.

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

fnValNum de la función (strInput como secuencia) como boleano
'Utiliza “el tipo biblioteca de las expresiones regulares de Microsoft VBScript”
regEx dévil como objeto
    
    Fijar el regEx = CreateObject (“vbscript.regexp”)
    regEx.IgnoreCase = verdad
    regEx.Pattern = “([0-9] [-. ()] *) {10.15}”
    el fnValNum = regEx.test (strInput) = verdad
    
Fijar el regEx = nada
Terminar la función

fnGetNum de la función (strInput como secuencia, telNum como boleano) como secuencia
'Utiliza “el tipo biblioteca de las expresiones regulares de Microsoft VBScript”
regEx dévil como objeto
colMatch dévil como objeto
Itm dévil como variante
    
    Si fnValNum (strInput) entonces
        Fijar el regEx = CreateObject (“vbscript.regexp”)
        regEx.IgnoreCase = verdad
        regEx.Global = verdad
        regEx.Pattern = “([0-9] [-. ()] *) {10.15}”
        Fijar el colMatch = regEx.Execute (el strInput)
        Si telNum entonces
            fnGetNum = colMatch (0)
        
            Si colMatch.Count > 1 entonces _
                fnGetNum = colMatch (1)
        Terminar si
    Terminar si
    
Fijar el regEx = nada
Terminar la función
 
sample-data-1-.xls (34 KB) (tipo de archivo detalles) 
cifrar establecido en archivo suministrado
 
Otras soluciones  
 
programming4us programming4us