Question

我已经构建了一个代码，该代码在我使用get open filename对话框打开的另一个工作簿上执行sumif。我打算每天使用这个公式，因此我打算获取信息的工作簿和我打算粘贴结果的工作簿将根据当天的日期继续有不同的名称。我在SUMIF公式上遇到类型不匹配。请帮忙。

Sub flextab()

Dim LastCol As Integer, LastRow As Long
 ' Get the dimensions
With Sheets("Flex")
     LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
End With
    'Insert a column where required.
   Cells(2, LastCol - 1).EntireColumn.Insert
   'Insert the date
   Cells(2, LastCol - 1).Value = Date - 1

'Insert the balance sheet balances for the day
Dim wb1 As Workbook, wb2 As Workbook
Dim FileName1 As String, FileName2 As String
Dim BalSheet As Worksheet
Dim Ret1

FileName1 = ThisWorkbook.Name

   '~~> Get the first File
Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _
, "Please select the Balance sheet for the day")
If Ret1 = False Then Exit Sub

Set wb2 = Workbooks.Open(Ret1)
FileName2 = wb2.Name

Workbooks(FileName1).Activate

      'let's get a reference to the worksheet with the source values
Set BalSheet = Workbooks(FileName2).Worksheets("Sheet1")

 With Worksheets("Flex").Range(Cells(5, LastCol - 1), Cells(109, LastCol - 1))
    'let's put in our SUMIF formulas
    .Formula = "=SUMIF(" & BalSheet.Range("B2:B20000") & "," & Worksheets("Flex").Range("A5") & " , " & BalSheet.Range("n2:n20000") & ")"

    'let's convert the formulas into values
    .Value = .Value
End With
     wb2.Close SaveChanges:=False
Set wb2 = Nothing
Set wb1 = Nothing
End Sub

Answer 1

您正在为字符串添加范围，而范围是对象。试试这个：

"=SUMIF(" & BalSheet.Range("B2:B20000").Address & "," & Worksheets("Flex").Range("A5").Value & " , " & BalSheet.Range("n2:n20000").Address & ")"

而不是：

"=SUMIF(" & BalSheet.Range("B2:B20000") & "," & worksheets("Flex").Range("A5") & " , " & BalSheet.Range("n2:n20000") & ")"

您正在使用2个工作簿，但是您正在使用一些没有限定符的工作表。

如果您关注错误的工作簿，如果活动的工作簿没有Flex工作表，则会失败。

所以改变这个：工作表（“Flex”）。范围（单元格（5，LastCol - 1）

到此：

wbX.Worksheets("Flex").Range(Cells(5, LastCol - 1)

其中X是正确的工作簿。

在我的VBA sumif公式中使用变量名

1 个答案: