Si understadn d'I vous correctement. Vous voulant prendre la rangée deux du CSV et lui peuplez la gamme D4 : D13 en votre cahier de travail courant. En d'autres termes, multi-colonnes (1 rangée) à 1 colonne (rangées multi) :
Faible cwb en tant que nouveau cahier de travail
Placer le cwb = l'Excel.ActiveWorkbook
Obscurcir le nwb en tant que nouveau cahier de travail
Placer le nwb = l'Application.Workbooks.Open (« C:\MyCSV.csv ")
nwb.ActiveSheet.Range (« A2 : G2 »). Choisi
Selection.Copy
cwb. Activer
Gamme (« D4 »). Choisi
Pâte de Selection.PasteSpecial : =xlPasteAll, opération : =xlNone, SkipBlanks : = _
Faux, transposer : =True
nwb. Savechanges étroits = faux
Vous devrez éditer les cuisinières et le chemin de CSV naturellement.