[求助] 对象变量或with块变量未设置怎么解决

xtzxf0011

Sub wbInput() '向未打开的工作簿中输入数据
    Dim wb1 As Workbook, xrow As Integer, arr
    wb1 = ThisWorkbook.Path & "\员工花名册.xlsx"
    Workbooks.Open (wb1)
    With ActiveWorkbook.Worksheets(1)
        xrow = .Range("A1").CurrentRegion.Rows.Count + 1
        arr = Array(xrow - 1, "马军", "男", #7/8/1987#, #3/1/2010#, "2010年新招")
        .Cells(xrow, 1).Resize(1, 6) = arr
    End With
    ActiveWorkbook.Close savechanges:=True
End Sub

lsc900707

Sub wbInput() '向未打开的工作簿中输入数据
    Dim wb As Workbook, xrow As Integer, arr
    Application.DisplayAlerts = False
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\员工花名册.xlsx")
    With wb.Sheets(1) '这是指第一张表，如何不是按顺序获取，而是准确获取某个工作表名呢
        xrow = .Range("A1").CurrentRegion.Rows.Count + 1
        arr = Array(xrow - 1, "马军", "男", #7/8/1987#, #3/1/2010#, "2010年新招")
        .Cells(xrow, 1).Resize(1, 6) = arr
    End With
    wb.Close savechanges:=True
    Application.DisplayAlerts = True
End Sub

xtzxf0011

lsc900707 发表于 2018-8-16 18:12
Sub wbInput() '向未打开的工作簿中输入数据
    Dim wb As Workbook, xrow As Integer, arr
    Applica ...

大神好，问题解决了！我百度了一下，是这样子的吗？DisplayAlerts 属性的作用(VBA) 参阅应用于示例特性 如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该值为 True。Boolean 类型，可读写。 说明 默认值为 True。如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，请将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。 如果将该属性设置为 False，则在代码运行结束后，Micorosoft Excel 将该属性设置为 True，除非正运行交叉处理代码。 如果使用工作簿的 SaveAs 方法覆盖现有文件，“覆盖”警告默认为“No”，当 DisplayAlerts 属性值设置为 True 时，Excel 选择“Yes”。 示例 本示例关闭工作簿 Book1.xls，但不提示用户保存所作更改。Book1.xls 中的所有更改都不会保存。 Application.DisplayAlerts = False Workbooks("BOOK1.XLS").Close Application.DisplayAlerts = True 一般情况下，如果某一应用程序未处于运行状态，那么当初始化与该应用程序相连的 DDE 通道时，将显示一条提示消息。本示例使该提示消息不显示。

xtzxf0011

lsc900707 发表于 2018-8-16 18:12
Sub wbInput() '向未打开的工作簿中输入数据
    Dim wb As Workbook, xrow As Integer, arr
    Applica ...

大神好，问题解决了！我百度了一下，是这样子的吗？DisplayAlerts 属性的作用(VBA) 参阅应用于示例特性 如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该值为 True。Boolean 类型，可读写。 说明 默认值为 True。如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，请将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。 如果将该属性设置为 False，则在代码运行结束后，Micorosoft Excel 将该属性设置为 True，除非正运行交叉处理代码。

lsc900707

xtzxf0011 发表于 2018-8-16 19:58
大神好，问题解决了！我百度了一下，是这样子的吗？DisplayAlerts 属性的作用(VBA) 参阅应用于示例特性  ...

没错，如果不关闭对话框你试试就知道！

xtzxf0011

大神好，下面这个程序又有问题了，请大神诊断，谢谢！
Sub Fenlei()
    Dim i As Long, bj As String, rng As Range
    i = 2 '成绩表中要处理的第１条记录在第2行
    bj = Worksheets("成绩表").Cells(i, "C").Value
    Do While bj <> ""
        Set rng = Worksheets(bj).Range("A1048576").End(xlUp).Offset(1, 0)
        Worksheets("成绩表").Cells(i, "A").Resize(1, 7).Copy rng '将成绩记录复制到相应的工作表中
        i = i + 1
        bj = Worksheets("成绩表").Cells(i, "C").Value
    Loop
End Sub

xtzxf0011

下面是附件

wj2368

xtzxf0011 发表于 2018-8-17 09:40
下面是附件

附件是空的

xtzxf0011

不知出了什么问题，下面是附件！

lsc900707

xtzxf0011 发表于 2018-8-17 10:03
不知出了什么问题，下面是附件！

按列拆分工作表的案例很多的。

1. Private Sub CommandButton1_Click()
   
2.     tms = Timer
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> ActiveSheet.Name Then sht.Delete
   
7.     Next
   
8.     Application.DisplayAlerts = True
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     arr = [a1].CurrentRegion
    
11.     m = UBound(arr): n = UBound(arr, 2)
    
12.     Set rng = [a1].Resize(1, n)
    
13.     For i = 2 To m
    
14.         If Not d.exists(arr(i, 3)) Then
    
15.             Set d(arr(i, 3)) = Range("a" & i).Resize(1, n)
    
16.         Else
    
17.             Set d(arr(i, 3)) = Union(d(arr(i, 3)), Range("a" & i).Resize(1, n))
    
18.         End If
    
19.     Next
    
20.     x = d.keys
    
21.     For k = 0 To UBound(x)
    
22.         Set sht = ActiveWorkbook.Sheets.Add(, after:=ActiveSheet)
    
23.         sht.Name = x(k)
    
24.         d.items()(k).Copy sht.[a2]
    
25.         rng.Copy sht.[a1]
    
26.     Next
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox Format(Timer - tms, "拆分完成，共耗时：0.00秒")
    
29. End Sub
    

复制代码