Rechercher une chaîne à l'aide de VBScript et copier cette colonne dans une autre feuille de calcul

Question

J'ai Book1.csv et Book2.xlsx. Book1.csv a beaucoup de colonnes avec des données. Chaque colonne a un titre unique dans la première ROW. J'ai besoin de trouver une colonne avec le titre "Processor Time" et de copier toutes les données disponibles dans cette colonne à column1 dans Book2.xlsx en utilisant VBScript. S'il vous plaît aider.

Answer 1

Vous pouvez utiliser ADO pour obtenir la colonne:

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Docs\;" 
strcon = strcon & "Extended Properties=""Text;FMT=Delimited;HDR=Yes;IMEX=1"";" 

cn.Open strcon 

strSQL = "Select [Processor Time] From [Book1.csv]" 

rs.Open strSQL, cn 

MsgBox rs.GetString 

Vous pouvez utiliser l'automatisation avec Excel:

Set xl = CreateObject("Excel.Application") 

Vous pouvez écrire à Excel à partir d'un jeu d'enregistrements avec:

xl.Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset rs 

Vous pouvez poster en arrière si vous avez des problèmes pour assembler les bits.

EDIT re Commentaire

Essayez de changer votre code autour d'un petit:

Set xl = CreateObject("Excel.Application") 
xl.Visible = True 
Set objWorkbook1=xl.Workbooks.Open("C:\Docs\book2.xlsx") 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Docs\;" 
strcon = strcon & "Extended Properties=""Text;FMT=Delimited;HDR=Yes;IMEX=1"";" 

cn.Open strcon 
strSQL = "Select [Processor Time] From [Book1.csv]" 
rs.Open strSQL, cn 

objWorkbook1.Worksheets("Sheet1").Cells(2, 1).CopyFromRecordset rs