Fråga : import CSV som överträffar

Denna bör vara mycket simple.
I har csv att spara som innehåller titelrader för 10 kolonner, och deras respektive värderar under. Jag behöver en makro, eller vbs kodifierar till den importen värderar endast från det data in i en existerande arbetssedel på celler D4: D13.
thanks Related lösningar för class= ": " title= " för Importind CSV " för qRelatedChild " för class= in i för en Excelmall " in i en Excel template

Svar : import CSV som överträffar

Om I-understadn dig korrekt.  Du som önskar att ta, ror två av CSVEN, och den befolkar spänner D4: D13 i din strömarbetsbok.  Med andra ord mång--kolonner (1 ror), till 1 mång- kolonn (ror):

   Dunkel cwb som den nya arbetsboken
   Fastställd cwb = Excel.ActiveWorkbook
   Dunkel nwb som den nya arbetsboken
   Fastställd nwb = Application.Workbooks.Open (”C:\MyCSV.csv”)
   nwb.ActiveSheet.Range (”A2: G2”). Valt
   Selection.Copy
   cwb. Aktivera
   Spänna (”D4”). Välj
   Selection.PasteSpecial-deg: =xlPasteAll funktion: =xlNone SkipBlanks: = _,
       Transponera, falskt: =True
       nwb. Nära savechanges = falskt

Du ska behov att redigera spänner och CSV-banan naturligtvis.