Подсчет данных в нескольких файлах Excel vba

Question

У меня есть несколько файлов xls в папке.

В колонке G: G в справочном листе, он имеет ДАННЫЕ, как O, R

Я хочу, чтобы подсчитать общее число O, R индивидуально и поместить его в таблицу Excel.

у меня есть этот код, пожалуйста, помочь его не выполняет цикл также

Private Sub CommandButton2_Click() 

Dim CSVfolder As String, _ 
    Xlsfolder As String, _ 
    fname As String, _ 
    wbook As Workbook, _ 
    SRange As Range, _ 
    k As Integer 

Xlsfolder = "C:\Users\sam\Desktop\macro\macro\macro" 

fname = Dir(Xlsfolder & "*.xls") 
k = 5 
Do While fnmae <> "" 
Workbooks.Open (fnamme) 

Set SRange = Workbooks(fname).Worksheets("Findings").Range("G:G") 
Cells(3, k) = Application.CountIf(SRange, "O") 
Cells(4, k) = Application.CountIf(SRange, "Cd") 
Cells(5, k) = Application.CountIf(SRange, "Cr") 
Cells(6, k) = Application.CountIf(SRange, "Cn") 
Cells(7, k) = Application.CountIf(SRange, "A") 
Cells(8, k) = Application.CountIf(SRange, "Cf") 

Workbooks(fname).Close 

Loop 
End Sub 

Answer 1

Вы можете сделать что-то очень простое, как это.

=('NAME_OF__SHEET'!A1) 

NAME_OF__SHEET = "the name of your sheet" A1 = column, row 

and your done! 

Или, конечно, вы можете использовать VBA для импорта данных из нескольких файлов в один лист, и работать на нем.

Sub combine() 

    Dim app As New Excel.Application 
    app.Visible = False 

    Dim wbM As Workbook 
    Set wbM = Workbooks("main") 

    Dim fd As FileDialog 
    Set fd = Application.FileDialog(msoFileDialogFilePicker) 
    fd.AllowMultiSelect = True 
    Files = fd.Show 

    For i = 1 To fd.SelectedItems.Count 
     app.Workbooks.Open fd.SelectedItems(i) 
    Next i 

    Dim wb As Workbook 
    For Each wb In app.Workbooks 
     If wb.Name <> "main.xlsm" Then 
      Dim wsN As Worksheet 
      Set wsN = wbM.Sheets.Add(after:=wbM.Sheets(wbM.Sheets.Count)) 
      wsN.Name = wb.Name 

      wbM.Sheets(wb.Name).Range("A1:K1").Value = wb.Sheets(1).Range("A1:K1").Value 

      wb.Close SaveChanges:=False 
     End If 
    Next 

    app.Quit 
    Set app = Nothing 

End Sub