循环增加一列

Question

我面临着一个看起来很奇怪的问题。

我想遍历目录中的所有文件以计算文件数量（对i = 1进行文件编号）（确定），打开每个文件（确定）并将范围复制到母版。我的问题是我希望在每个文件之后，我的粘贴目标都将在右侧的步骤上移动（使用我的循环i）。由于我不知道原因，它无法正常工作，我认为它是因为我没有放置我的循环在正确的位置，但我不知道在哪里放置它。

如果有人有任何想法，我将非常感谢您的帮助：）

让·米歇尔

Sub synthèsewb()

    Dim synthese As Worksheet
    Dim chemin As String
    Dim fichier As String
    Dim WorkBk As Workbook
    Dim SourceRange As Range
    Dim DestRange As Range

    Dim i As Integer

    ' détermine la feuille de synthèse
    Set synthese = ThisWorkbook.Sheets(1)

    ' chemin d'accès aux fichiers
     chemin = "V:\DFIN\COM\CCG\CONSO\6-Fichiers de contrôle de liasses\2017\traitement par macro\"

    ' appel de tous les fichiers xls
    fichier = Dir(chemin & "*.xls*")

    'Comptage nombre de fichiers existant
    Do Until fichier = ""
        nbfichier = nbfichier + 1
        fichier = Dir
    Loop

    ' boucle sur tous les fichiers
             Do While fichier <> ""

            ' ouvre les fichiers

                 Set WorkBk = Workbooks.Open(chemin & fichier)

            'boucle sur toutes les feuilles du classeur ouvert

                        For Each sh In WorkBk.Worksheets
                            nom = WorkBk.Name
                           For i = 2 To nbfichier
                                 If sh.Name = "copieSynthèse" Then


                                sh.Range("H16:H22").Copy synthese.Cells(3, i)
                                sh.Range("H10").Copy synthese.Cells(10, i)

                                Set alimenter = ThisWorkbook.Sheets(1).Cells(2, i)

                                            For Each c In alimenter.Cells

                                                    If c.Value = "" Then c.Value = nom

                                            Next c


                                End If
                                i = i + 1
                          Next i
                       Next sh



        ' Close the source workbook without saving changes.
        WorkBk.Close savechanges:=False

        ' Use Dir to get the next file name.
        fichier = Dir()
    Loop



    ' Call AutoFit on the destination sheet so that all
    ' data is readable.
    ActiveSheet.Columns.AutoFit
End Sub

Answer 1

我认为您根本不需要i循环。

i = 2
Do While fichier <> ""
    ' ouvre les fichiers
    Set WorkBk = Workbooks.Open(chemin & fichier)
    nom = WorkBk.Name
    'boucle sur toutes les feuilles du classeur ouvert
    For Each sh In WorkBk.Worksheets
        If sh.Name = "copieSynthèse" Then
            sh.Range("H16:H22").Copy synthese.Cells(3, i)
            sh.Range("H10").Copy synthese.Cells(10, i)
            Set alimenter = ThisWorkbook.Sheets(1).Cells(2, i)
            If alimenter.Value = "" Then alimenter.Value = nom
        End If
    Next sh
    ' Close the source workbook without saving changes.
    WorkBk.Close savechanges:=False
   ' Use Dir to get the next file name.
    fichier = Dir()
    i = i + 1
Loop

如果您要为每个文件移动2列，则将其更改为i = i + 1 。 请注意，我无法测试它是否没有相同的文件，并且复制环境会花费很长时间。 另外，您不需要迭代1x1范围，只需直接引用即可。

Answer 2

我不会说法语，但是我可以说nbfichier拥有当前打开的工作簿的编号。

话虽这么说，因为期望的起始值为1，所以以i=2开始循环没有任何意义。

For i = 2 To nbfichier