使用vba將信息從.csv文件中的單元格提取到Excel中的變量中

Question

我正在為Excel工作表創建VBA宏，但不確定如何執行我的功能之一。 我在宏中有一個專用子，用於獲取.csv文件的路徑（例如，將C：/files/file.csv存儲為變量“ csvfile”）。

這時我需要做的是根據某個公式自動從該csv文件中提取信息，並將其保存為變量：

=COUNTIFS(F2:F10000,"=medium",Z2:Z10000,"=Open")

因此，總而言之，在電子表格Main.xlsx的宏中，我需要在路徑存儲在變量csvfile中的文件上運行上述公式，並將返回的數字保存為宏中的變量，以便我可以使用該數字在我的宏中。

實際上，我需要做九次操作，每次公式都略有不同，但是一旦我計算出一個變量，我想我就可以對其進行修改以產生我需要的所有結果。

謝謝

Answer 1

這是一種實現方法的示例：

Sub OpenAndCount()
    Dim sFile As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim cnt As Long
    Dim rng1 As Range
    Dim rng2 As Range


    sFile = "c:\files\file.csv"
    Set wb = Workbooks.Open(sFile)
    Set ws = wb.Sheets(1)
    Set rng1 = ws.Range("F2:F100000")
    Set rng2 = ws.Range("Z2:Z100000")

    cnt = Application.WorksheetFunction.CountIfs(rng1, "=medium*", rng2, "=open")

    Debug.Print cnt
    wb.Close
End Sub