Excel VBA: Copiez deux colonnes dans un fichier différent

vitoscal

Je suis relativement nouveau sur VBA et j'ai quelques questions.

En fin de compte, mon code doit copier les données de différents fichiers dans une feuille de données principale.

Je ne connais pas les différents noms des différents fichiers (cela est déjà couvert), car il y aura de nouvelles données générées de temps en temps. Tous ces fichiers sont xlsx.

La seule chose qui me manque est que mon code copie les données de différents fichiers dans la plage "a18 - fin de colonne a" et "b18 - fin de colonne b". En fin de colonne, je veux dire qu'il n'y a plus de données.

Malheureusement, je ne sais pas comment copier cela et aussi comment stocker TOUTES les données de toutes les différentes feuilles dans ma feuille principale sans écraser les données.

Code:

Sub CopyData()
    Dim strFile As String, strPath As String, strType As String
    Dim wbX As Workbook, wksX As Worksheet, wksN As Worksheet
    Dim lngCount As Long
    Application.ScreenUpdating = False
    strPath = "C:\..."
    strType = "xlsx"
    Set wksN = ThisWorkbook.Sheets(1)
    lngCount = 1
    wksN.Range(wksN.Rows(lngCount), wksN.Rows(wksN.UsedRange.Rows.Count + lngCount)).Delete

   strFile = Dir(strPath & "\*." & strType)
   Do Until strFile = ""
       'Debug.Print (strFile)
       Set wbX = Workbooks.Open(strPath & "\" & strFile)
       Set wksX = wbX.Sheets(1)
       wksN.Cells(lngCount, 1) = wksX.Cells(1, 1)
       lngCount = lngCount + 1
       wbX.Close False
       strFile = Dir
   Loop
   Application.ScreenUpdating = True
   wksN.SaveAs Filename:="Main"
End Sub

Pour le moment, mon code copie toutes les cellules a1 de tous les fichiers xlsx de mon dossier et colle le contenu les uns sous les autres.

arun v

Le code ci-dessous ouvre chaque fichier d'un dossier cible et le fusionne en un,

Code:

Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
 Application.ScreenUpdating = False
 Set mergeObj = CreateObject("Scripting.FileSystemObject")
 Set dirObj = mergeObj.Getfolder("\\C:\ update the target folder")
 Set filesObj = dirObj.Files
 'Here it will open each and every file in the target folder
 For Each everyObj In filesObj
 Set bookList = Workbooks.Open(everyObj)
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
' Paste it in the Macro sheet's non empty row
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close 
Next
End Sub

Que toi

Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.

En caso de infracción, por favor [email protected] Eliminar

Editado en
0

Déjame decir algunas palabras

0Comentarios
Iniciar sesiónRevisión de participación posterior

Artículos relacionados

Gulp copiez le HTML et collez-le dans un fichier différent

Copiez les lignes d'un fichier Excel dans un autre et allouez row.cells dans les colonnes de droite

Comment concaténer deux cadres avec un nombre différent de colonnes dans les pandas?

Créez un fichier Excel dans un répertoire différent

Copiez un fichier sur le serveur avec un nom de fichier différent en utilisant Python Paramiko sur ssh / sftp

Fusionner un nombre différent de colonnes dans R

Créer un nouveau fichier en comparant deux colonnes dans deux fichiers en utilisant awk

Soustrayez deux colonnes de tables différentes avec un nombre de lignes différent

Accéder à Array dans un fichier Swift différent

Javascript: créer un tableau à partir de deux colonnes dans un fichier .cvs

R ggplot: Deux histogrammes (basés sur deux colonnes différentes) dans un graphique

Lisez les deux colonnes d'un fichier et écrivez une valeur dans la troisième colonne

Ajout de deux listes pour séparer les colonnes dans un fichier csv en Python

Copiez les cellules d'un classeur dans plusieurs classeurs Excel

Utilisation de deux boucles pour boucler deux variables pour générer un fichier Excel avec des données et des noms de feuille différents dans R

Deux façons d'écrire dans un fichier texte à l'aide d'Excel VBA: Microsoft Standard Library vs Microsoft Scripting Runtime

Comment grouper une colonne de dataframe pandas et enregistrer un groupe différent sur plusieurs feuilles dans le même fichier Excel?

Comment lier des tibbles par ligne avec un nombre différent de colonnes dans R

Sélectionnez les colonnes de la table dans un schéma différent de public

Comment concater ou fusionner trois tables avec un nombre différent de colonnes dans les pandas?

Colonnes SUM par valeur dans deux colonnes différentes

numéros python dans un ordre différent dans le fichier

Faire un toast dans une activité à partir d'un fichier de classe Java différent

nécessite un package qui a un nom de fichier différent dans lua

lire et filtrer un fichier .DAT avec un montant de colonne différent dans R

Comment fusionner deux tableaux numpy avec le même nombre de lignes mais un nombre différent de colonnes

Les pandas Python convertissent plusieurs en-têtes dans un fichier Excel en colonnes

Comment importer un fichier Excel lorsque chaque colonne se divise en sous-colonnes dans SAS

Excel VBA correspond au nom de l'en-tête sur un classeur différent et copie la colonne dans le classeur principal

TOP Lista

CalienteEtiquetas

Archivo