Question

VBA编译错误

Private Sub UserForm_Initialize()
Dim hwnd As Long
Dim lStyle As Long
hwnd = FindWindow("ThunderDFrame", Me.Caption) '找到窗口的句柄
lStyle = GetWindowLong(hwnd, GWL_STYLE) '获得窗口的样式
lStyle = lStyle Or WS_MINIMIZEBOX '在原窗口样式增加最小化按钮
lStyle = lStyle Or WS_MAXIMIZEBOX '进一步增加最大化按钮
lStyle = lStyle Or WS_THICKFRAME '进一步增加窗口边框，使得窗口可以通过鼠标拖拉改变大小
SetWindowLong hwnd, GWL_STYLE, lStyle '将新的窗口样式指定给窗口

ListView1.ColumnHeaders.Add , , "物料名称", Width / 3.5

ListView1.ColumnHeaders.Add , , "物料规格", Width / 4
ListView1.ColumnHeaders.Add , , "物料成分", Width / 2, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "序号", Width / 9, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "备注", Width / 9, lvwColumnCenter
ListView1.View = lvwReport ' listivew的显示格式为报表格式
ListView1.Sorted = True ' listivew的排序属性为true
ListView1.SortKey = 0 ' listivew排序的索引为 '物料名称', 从 0 开始
ListView1.Gridlines = True ' 显示网格线
ListView1.FullRowSelect = True ' 允许整行选中
Label2.Caption = ""
Label3.Caption = ""

'设置循环,填充记录
Dim rw As String
rw = Sheet1.Range("A65536").End(xlUp).Row
Dim total As String
total = 0
With Sheet1
For i = 2 To rw
Set ITM = ListView1.ListItems.Add()
ITM.Text = .Cells(i, 1)
ITM.SubItems(1) = .Cells(i, 2)
ITM.SubItems(2) = .Cells(i, 3)
ITM.SubItems(3) = .Cells(i, 4)
ITM.SubItems(4) = .Cells(i, 5)
total = total + .Cells(i, 5).Value
Next i
End With
Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
TextBox1.SetFocus
End Sub
excel 运行显示userforml ，上面是代码求各位高手帮忙

Answer 1

哪行代码提示错误 就把对应的API声明 或者 常量写进去

如：FindWindow
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GWL_STYLE As Long = -16& '常量

不知道的，按关键字百度都有