Question

我一直在努力研究在后台有excel数据库的powerpoint。目前我在PPT VBA中将表单作为争论传递出来时遇到了麻烦。函数lastrow和lastcoulmn返回“用户定义的类型未定义”的错误。帮助将不胜感激。感谢。

Dim oXLApp As Object
Dim oWb As Object
Dim Deps As Excel.Range
Dim Dep, Shift, Name, EmpNo, Sup As String
Dim Sups As Excel.Range
Dim Shifts As Excel.Range

Public Sub getexceldata()
Dim str As String
Set oXLApp = CreateObject("Excel.Application")
Set oWb = oXLApp.Workbooks.Open(ActivePresentation.Path & "\" & "Property Wide.xlsm")

'Shifts
Set Shifts = oWb.Sheets(4).Range("A1:A" & lastRow(oWb.Sheets(4), "a"))

'departments
Set Deps = oWb.Sheets(3).Range("A1:" & Chr(lastColumn(oWb.Sheets(3), "1") + 64) & "1")

'supervisors

End Sub


Public Function lastRow(ByVal SheetA As Excel.Application.Sheet, Optional Columnno As Char = "/")     As Long
If (Columnno = "/") Then
Set lastRow = SheetA.UsedRange.Row - 1 + SheetA.UsedRange.Rows.Count
Else
Set lastRow = SheetA.Range(Columno & Rows.Count).End(xlUp).Row
End If
End Function

Public Function lastColumn(ByVal SheetA As Excel.Application.Sheet, Optional rowno As Char = "/")     As Integer
If (rowno = "/") Then
Set lastColumn = SheetA.UsedRange.Column - 1 + SheetA.UsedRange.Columns.Count
Else
Set lastColumn = SheetA.Cells(rowno, Columns.Count).End(xlToLeft).Column
End If
End Function

Answer 1

第一个问题是CHAR不是有效的变量类型，因此我建议将其更改为字符串。

接下来，请确保在代码参考中包含Microsoft Office Excel 14.0对象库。

有了这个，您可以对代码稍作调整，一切都应该有效。

Dim oXLApp As Object
Dim oWb As Object
Dim Deps As Excel.Range
Dim Dep, Shift, Name, EmpNo, Sup As String
Dim Sups As Excel.Range
Dim Shifts As Excel.Range

Public Sub getexceldata()
Dim str As String
Set oXLApp = CreateObject("Excel.Application")
Set oWb = oXLApp.Workbooks.Open(ActivePresentation.Path & "\" & "Property Wide.xlsm")

'Shifts
Set Shifts = oWb.Sheets(4).Range("A1:A" & lastRow(oWb.Sheets(4), "a"))

'departments
Set Deps = oWb.Sheets(3).Range("A1:" & Chr(lastColumn(oWb.Sheets(3), "1") + 64) & "1")

'supervisors

End Sub


Public Function lastRow(ByVal SheetA As Worksheet, Optional Columnno As String = "/")     As Long
If (Columnno = "/") Then
Set lastRow = SheetA.UsedRange.Row - 1 + SheetA.UsedRange.Rows.Count
Else
Set lastRow = SheetA.Range(Columno & Rows.Count).End(xlUp).Row
End If
End Function

Public Function lastColumn(ByVal SheetA As Worksheet, Optional rowno As String = "/")     As Integer
If (rowno = "/") Then
Set lastColumn = SheetA.UsedRange.Column - 1 + SheetA.UsedRange.Columns.Count
Else
Set lastColumn = SheetA.Cells(rowno, Columns.Count).End(xlToLeft).Column
End If
End Function

有了它，你应该拥有你需要的东西。

如何在Powerpoint VBA中将工作表作为参数传递？

1 个答案: